使用现有列表中的名称创建 ggplots 并将其附加到新列表的功能

Question

我想创建一个包含绘图的命名列表。我从包含唯一 ID 的向量创建一个列表，用于过滤包含所有信息的主数据框。

然后我有一个函数，我在 lapply 中使用它来循环遍历唯一 ID 列表以过滤主数据框并创建图。然后我想将每个图附加到一个（最初）初始化的列表中，并且我希望列表条目的名称等于在 lapply 中传递的列表值。

我下面的代码创建了绘图，但是附加列表没有传递的列表 id 值的对应名称。

我有错误的方法吗？我见过使用 names(list) 等的问题/答案，但是传递给 lapply 的列表没有命名，我希望传递的列表条目成为新列表的名称。

提前致谢！

library(ggplot2)
library(dplyr)

unique_names = as.list(c("apple", "banana", "carrots"))
listy = list()
dframe = data.frame(x_var = seq(1:9)) %>% 
  mutate(y_var = x_var^3)
temp = data.frame(id = c("apple", "apple", "apple", "banana", "banana", "banana", "carrots", "carrots", "carrots"))
dframe = bind_cols(dframe,
                   temp)

fun_plots = function(my_list,
                     my_df,
                     my_appending_list) {
  a = filter(my_df,
             id == my_list)
  plt = ggplot() +
    geom_line(data = a,
              aes(x = x_var,
                  y = y_var))

  my_appending_list$my_list = plt
}

plot_list = lapply(unique_names,
                   fun_plots,
                   my_df = dframe,
                   my_appending_list = listy)

Answer 1

您可以避免编写函数并使用更多dplyr 魔法来改变列表。如果我理解正确，您希望“id”变量的每个值都有一个单独的绘图对象 - 如果是这样，您可以在“id”上执行group_by，然后为每个集合生成一个 ggplot 对象。方法如下

plot_df <- dframe %>% 
  group_by(id) %>% 
  do(plot = ggplot(.data) + geom_line(aes(x = x_var, y = y_var)) + ggtitle(.data$id))
plot_df
#> Source: local data frame [3 x 2]
#> Groups: <by row>
#> 
#> # A tibble: 3 x 2
#>        id     plot
#> *  <fctr>   <list>
#> 1   apple <S3: gg>
#> 2  banana <S3: gg>
#> 3 carrots <S3: gg>

您可以在 id 变量上设置一个 ggplot2。例如：

ggplot(dframe) + geom_line(aes(x = x_var, y = y_var)) + facet_wrap(~ id)

Answer 2

您可以使用 dplyr group_by 来完成此操作：

library(ggplot2)
library(dplyr)

unique_names = as.list(c("apple", "banana", "carrots"))
listy = list()
dframe = data.frame(x_var = seq(1:9)) %>% 
  mutate(y_var = x_var^3)
temp = data.frame(id = c("apple", "apple", "apple", "banana", "banana", "banana", "carrots", "carrots", "carrots"))
dframe = bind_cols(dframe,
                   temp)

dframe <- group_by(dframe, id) %>% do(plots=ggplot(data=.) +
                              aes(x=x_var, y=y_var) + geom_line() + ggtitle(unique(.$id)))

mylist <- as.list(dframe$plots)

mylist

HTH 詹姆斯

Answer 3

您可以取出my_appending_list 参数，因为它目前实际上并没有实现任何功能，您没有在函数中修改listy 对象。你可以这样做：

fun_plots = function(my_list,
                     my_df) {
    a = filter(my_df,
               id == my_list)
    plt = ggplot() +
        geom_line(data = a,
                  aes(x = x_var,
                      y = y_var))

    plt
}

plot_list = lapply(unique_names,
                   fun_plots,
                   my_df = dframe)
names(plot_list) = unique_names