R:Plotly和subplot():基于因子创建子图的最快方法

时间:2017-03-17 12:57:48

标签: r plotly

我有一个dataframe,例如:

 line station   var
1       a 39446
1       b 82964
1       c 57840
1       d 78946
1       e 69972
1       f 14303
1       g 78179
2       a 37738
2       b 62261
2       c 19378
2       d 76435
2       e 17181
2       f 75148
2       g 10882

我想使用plot_ly从这些数据创建一个子图。我想要一个条形图,其中工作站为x值,var为y值。我希望有两个基于线的子图。我知道我可以这样做:

p1 <- plot_ly(data = df[df$line == "1", ], x = ~station, y = ~var, type = "bar")
p2 <- plot_ly(data = df[df$line == "2", ], x = ~station, y = ~var, type = "bar")
p3 <- subplot(p1, p2, nrows = 2)

这有点重复,因为p1p2的代码基本相同。本地执行此操作的最快方法是什么?我知道facet_gridggplotly但我想在情节上本土化。

谢谢:)

1 个答案:

答案 0 :(得分:4)

你可以split df,并构建每个情节。 幸运的是subplot支持列表,所以你可以管它:

library(plotly)
library(purrr)

df %>% 
    split(df$line) %>% 
    map(~{
        plot_ly(data = .x, x = ~station, y = ~var, type = "bar")
    }) %>% 
    subplot(margin = .05)

enter image description here

仅使用基础R:

splitted_list <- split(df, df$line)

plot_list <- lapply(splitted_list, plot_ly, x = ~station, y = ~var, type = "bar")

subplot(plot_list, margin = .05)