Question

我有一个带有约70个变量的数据框（每个变量都是一个问题），我想使用相同的自定义主题为所有变量创建图。我认为这对于purrr()是可行的，但是我还没有弄清楚那个傻子。

基本上，我想通过以下代码运行每个变量（例如，i到N）：

  ggplot(aes(fct_rev(fct_infreq(`var_i`)))) +
  geom_bar(stat = "count") +
  labs(subtitle = `var_i`) +
  coord_flip() + 
  theme(...) +
  ggsave("var_i.svg", device = "svg")

我希望每个变量都获得一个svg，使用变量名称填充图表中的文件名和字幕。

相当于dput()：

structure(list(Species_L = c("setosa5.1", "setosa4.9", "setosa4.7", 
"setosa4.6", "setosa5", "setosa5.4", "setosa4.6", "setosa5", 
"setosa4.4", "setosa4.9", "setosa5.4", "setosa4.8", "setosa4.8", 
"setosa4.3", "setosa5.8", "setosa5.7", "setosa5.4", "setosa5.1", 
"setosa5.7", "setosa5.1"), Species_W = c("setosa3.5", "setosa3", 
"setosa3.2", "setosa3.1", "setosa3.6", "setosa3.9", "setosa3.4", 
"setosa3.4", "setosa2.9", "setosa3.1", "setosa3.7", "setosa3.4", 
"setosa3", "setosa3", "setosa4", "setosa4.4", "setosa3.9", "setosa3.5", 
"setosa3.8", "setosa3.8"), Species_PL = c("setosa1.4", "setosa1.4", 
"setosa1.3", "setosa1.5", "setosa1.4", "setosa1.7", "setosa1.4", 
"setosa1.5", "setosa1.4", "setosa1.5", "setosa1.5", "setosa1.6", 
"setosa1.4", "setosa1.1", "setosa1.2", "setosa1.5", "setosa1.3", 
"setosa1.4", "setosa1.7", "setosa1.5"), Species_PW = c("setosa0.2", 
"setosa0.2", "setosa0.2", "setosa0.2", "setosa0.2", "setosa0.4", 
"setosa0.3", "setosa0.2", "setosa0.2", "setosa0.1", "setosa0.2", 
"setosa0.2", "setosa0.1", "setosa0.1", "setosa0.2", "setosa0.4", 
"setosa0.4", "setosa0.3", "setosa0.3", "setosa0.3")), class = "data.frame", row.names = c(NA, 
-20L))

Answer 1

您可以循环浏览列名称。这样，您就可以将列名作为字符串使用，这样就可以轻松地在文件名和标签中使用，但是您必须做一些转换才能使aes()能够理解它：

for (var_name in colnames(df)) {
    p = ggplot(df, aes(fct_rev(fct_infreq(!! sym(var_name))))) +
        geom_bar(stat = "count") +
        labs(subtitle = var_name) +
        coord_flip()
    # Need to explicitly print the plot in the loop for it to
    #   show up
    print(p)
    ggsave(paste0(var_name, ".svg"))
}

Answer 2

我会编写一个函数-o debug，然后使用my_plot_func()遍历列名

purrr::map()

如何以编程方式为70多个变量生成ggplot？

2 个答案: