如何使用R为plot_ly提供子图的字幕

时间:2016-05-17 20:29:50

标签: r plotly subplot subtitle

我想知道如何使用plot_ly为子图提供不同的字幕。请提示任何提示。在这种情况下我得到了一个BB冠军。感谢。

p <- subplot(
      plot_ly(economics, x = date, y = uempmed)%>%layout(showlegend = FALSE, title="AA"),
      plot_ly(economics, x = date, y = unemploy)%>%layout(showlegend = FALSE, title="BB"),
margin = 0.05
) 

3 个答案:

答案 0 :(得分:14)

布局中的title属性是指整个绘图表面的标题,因此只能有一个。但是,我们可以使用文本注释来创建&#34;标题&#34;对于您的子图,例如:

p <- subplot(
  plot_ly(economics, x = date, y = uempmed)%>%layout(showlegend = FALSE),
  plot_ly(economics, x = date, y = unemploy)%>%layout(showlegend = FALSE),
  margin = 0.05
) 
p %>% layout(annotations = list(
 list(x = 0.2 , y = 1.05, text = "AA", showarrow = F, xref='paper', yref='paper'),
  list(x = 0.8 , y = 1.05, text = "BB", showarrow = F, xref='paper', yref='paper'))
)

答案 1 :(得分:5)

您可以利用subplot()重新定位纸张引用的内容(如注释(以及形状,图像等)),而不是“手动”定位(即@ d-roy的答案)。

library(plotly)
library(dplyr)

my_plot <- . %>% 
  plot_ly(x = ~date, y = ~value) %>%
  add_annotations(
    text = ~unique(variable),
    x = 0.5,
    y = 1,
    yref = "paper",
    xref = "paper",
    xanchor = "middle",
    yanchor = "top",
    showarrow = FALSE,
    font = list(size = 15)
  )

economics_long %>%
  group_by(variable) %>%
  do(p = my_plot(.)) %>%
  subplot(nrows = NROW(.), shareX = TRUE)

答案 2 :(得分:2)

我可以不在子图()上而是在plot_ly对象本身上使用layout(annotations())方案。这样可以为动态可视化提供更好的位置。因此,要重做@ d-roy的答案:

p <- subplot(
  plot_ly(economics, x = date, y = uempmed) %>% 
     layout(annotations = list(x = 0.2 , y = 1.05, text = "AA", showarrow = F, 
xref='paper', yref='paper'), 
     showlegend = FALSE),
  plot_ly(economics, x = date, y = unemploy) %>% 
     layout(annotations = list(x = 0.2 , y = 1.05, text = "AA", showarrow = F, 
xref='paper', yref='paper'), 
     showlegend = FALSE),showlegend = FALSE))`. 

请注意,在这种情况下,注释的坐标对于每个注释都是相同的,因为它们引用的是每个子图,而不是整个组合图。