Question

我试图在每个情节上绘制多个带有形状的子图。从下面的代码中，如果我显示一个图，我得到以下图：

当我在一个子图中放置这个图的4个副本时，我得到以下内容：

正如您所看到的，每个子图上应绘制的所有4条线都被绘制在左上方子图中的原始位置。我有什么想法可以解决这个问题吗？

**编辑 - 使用“纸张”

如果我在边缘形状的声明中使用xref和yref的“纸张”，则形状不能正确缩放。也许我在错误的背景下使用“纸”？我在下面附上了一张图片

library(plotly)
library(igraph)

tree <- make_tree(127,2)
tree_layout <- layout_as_tree(tree)
tree_layout_df <- as.data.frame(tree_layout)
Xn <- tree_layout_df[,1]
Yn <- tree_layout_df[,2]

edge_shapes  = list(
    type="line",
    line=list(color="#030303",width=5),
    opacity=0.3,
    x0 = 0, x1=0,
    x1 = 5,y1 = 5
)

reg_tree_plot <- plot_ly() %>%
    add_trace(x=~Xn[0:63], y=~Yn[0:63], type='scatter', width=700, height=500)

tree_layout <- layout(reg_tree_plot, shapes=edge_shapes)
x <- tree_layout
y <- tree_layout
z <- tree_layout

sub <- subplot(tree_layout,y,z,x,
              nrows=2,
              margin=0.05,
              shareX=FALSE,
              shareY=FALSE)

Answer 1

我认为这显然是subplot中的一个错误，可以得到补偿，但它很丑陋，需要维护。如果将其发布到plotly站点并查看布局中的数据，则可以看到此信息。请注意，适当的坐标系似乎是：

＆＃34; X 1＆＃34;＆＃34; Y 1＆＃34; - 第一个图 - 左上角
＆＃34; X 2＆＃34;＆＃34; Y2＆＃34; - 第二个图 - 右上角
＆＃34; X 3＆＃34;＆＃34; Y3＆＃34; - 第3个图 - 左下角
＆＃34; X 4＆＃34;＆＃34; Y 4＆＃34; - 第4个情节 - 留给读者练习

这里有几个问题：

在没有适当坐标参考的情况下，形状被添加到布局中。
第2和第4图的y坐标系统与第1和第3图中的y坐标系统有所不同，可能与下一期有关。
第一个和第三个图的x轴没有被绘制，可能坐标系也没有正确设置，但这些结构看起来很混乱，所以我没有仔细观察它。
我认为您的代码中存在拼写错误，您在创建x0时指定了edge_shape两次。

无论如何，这里有一些代码可以做你想要的（但是有轴bug）。

library(plotly)
library(igraph)

tree <- make_tree(127,2)
tree_layout <- layout_as_tree(tree)
tree_layout_df <- as.data.frame(tree_layout)
Xn <- tree_layout_df[,1]
Yn <- tree_layout_df[,2]

get_edgeshape <- function(xref,yref,xfak=1,yfak=1){
  edge_shapes  = list(
    type="rect",
    line=list(color="#030303",width=5),
    opacity=0.3,
    x0 = 0*xfak, x1 = 5*xfak,
    y0 = 0*yfak, y1 = 5*yfak,
    xref=xref,
    yref=yref
  )
}
reg_tree_plot <- plot_ly() %>%
  add_trace(x=~Xn[0:63], y=~Yn[0:63], type='scatter', width=700, height=500)

ycor1 <- 2
ycor2 <- 2*1.125
tree_layout <- layout(reg_tree_plot, shapes=get_edgeshape("x1","y1",yfak=ycor1))
x <-           layout(reg_tree_plot, shapes=get_edgeshape("x2","y2",yfak=ycor2))
y <-           layout(reg_tree_plot, shapes=get_edgeshape("x3","y3",yfak=ycor1))
z <-           layout(reg_tree_plot, shapes=get_edgeshape("x4","y4",yfak=ycor2))

sub <- subplot(tree_layout,y,z,x,
               nrows=2,
               margin=0.05,
               shareX=F,
               shareY=F)
sub

结果如下：

请注意，这不是一个很好的解决方案，如果您更改布局中的任何内容，则需要调整参数。只有一个情节修复才能真正解决痛苦。所以我在github网站上将其作为一个问题提交。

我正在使用github（4.7.0）的最新情节，与devtools::install_github("ropensci/plotly")一起安装，这是我的sessionInfo()：

R version 3.4.0 (2017-04-21)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] igraph_1.0.1  plotly_4.7.0  ggplot2_2.2.1

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.10      magrittr_1.5      devtools_1.12.0   munsell_0.4.3     xtable_1.8-2      viridisLite_0.2.0 colorspace_1.3-2 
 [8] R6_2.2.0          rlang_0.1.1       httr_1.2.1        plyr_1.8.4        dplyr_0.5.0       tools_3.4.0       grid_3.4.0       
[15] gtable_0.2.0      DBI_0.6-1         git2r_0.18.0      withr_1.0.2       crosstalk_1.0.0   htmltools_0.3.6   yaml_2.1.14      
[22] lazyeval_0.2.0    digest_0.6.12     assertthat_0.2.0  tibble_1.3.1      shiny_1.0.3       tidyr_0.6.3       purrr_0.2.2.2    
[29] htmlwidgets_0.8   curl_2.5          mime_0.5          memoise_1.1.0     compiler_3.4.0    scales_0.4.1      jsonlite_1.4     
[36] httpuv_1.3.3

Answer 2

至少目前，如果您使用纸张坐标，则只会在subplot()中重新缩放/重新定位形状和注释，例如：

rect <- list(
  type = "rect",
  xref = "paper", yref = "paper",
  x0 = 0.5, x1 = 0.6, 
  y0 = 0.5, y1 = 0.6
)
p1 <- layout(plot_ly(), shapes = rect)
subplot(p1, p1)

可以在此处跟踪非纸张坐标的进度 - https://github.com/ropensci/plotly/issues/1019

Plotly - 使用子图形成位置

2 个答案: