如何使用 R 在 plotly 中创建子图，其中每个子图是两条迹线

Question

这是一个我卡住的玩具示例

library(plotly)
library(dplyr)

# construct data.frame
df <- tibble(x=c(3,2,3,5,5,5,2),y=c("a","a","a","b","b","b","b"))

# construct data.frame of last y values
  latest <- df %>% 
   group_by(y) %>% 
   slice(n())

# plot for one value of y (NB not sure why value for 3 appears?)
  p <- plot_ly() %>% 
   add_histogram(data=subset(df,y=="b"),x= ~x) %>%   
  add_histogram(data=subset(latest,y=="b"),x= ~x,marker=list(color="red")) %>%
  layout(barmode="overlay",showlegend=FALSE,title= ~y)
  p

如何将这些设置为子图，每个 y 的唯一值一个？在现实世界的示例中，我将有 20 个不同的 y，因此理想情况下会循环或应用代码。此外，最好设置标准的 x 比例，例如 c(1:10) 并具有例如 2 行

TIA

Answer 1

1. 建立一个包含每个图的列表
2. 为直方图手动设置 bin 大小，否则自动选择将为图中的每条迹线选择不同的 bin（使其看起来很奇怪，就像您的示例中每条迹线的条具有不同宽度）
3. 使用 subplot 将所有内容放在一起
4. 使用注释列表为各个子图添加标题，如here 所述

像这样：

N = nlevels(factor(df$y))
plot_list = vector("list", N)
lab_list = vector("list", N)

for (i in 1:N) {
  this_y = levels(factor(df$y))[i]
  p <- plot_ly() %>% 
    add_trace(type="histogram", data=subset(df,y==this_y), x=x, marker=list(color="blue"),
              autobinx=F, xbins=list(start=0.5, end=6.5, size=1)) %>%   
    add_trace(type="histogram", data=subset(latest,y==this_y), x = x, marker=list(color="red"), 
              autobinx=F, xbins=list(start=0.5, end=6.5, size=1)) %>%
    layout(barmode="overlay", showlegend=FALSE)
  plot_list[[i]] = p

  titlex = 0.5
  titley = c(1.05, 0.45)[i]
  lab_list[[i]] = list(x=titlex, y=titley, text=this_y, 
                       showarrow=F, xref='paper', yref='paper', font=list(size=18))
}

subplot(plot_list, nrows = 2) %>%
  layout(annotations = lab_list)