如何将Likert绘图函数批量应用于数据框列表并保存图像？

问题场景 #

你有一组基于Likert量表的数据集列表，以及一个可以生成Likert条形图的自定义函数，但需要实现批量处理列表中的所有数据框，并将每个结果图保存到指定文件夹。

现有代码 #

数据定义：

df1<-data.frame(A=c(1,2,2,3,4,5,1,1,2,3),
                B=c(4,4,2,3,4,2,1,5,2,2),
                C=c(3,3,3,3,4,2,5,1,2,3),
                D=c(1,2,5,5,5,4,5,5,2,3),
                E=c(1,4,2,3,4,2,5,1,2,3))
df1[colnames(df1)] <- lapply(df1[colnames(df1)], factor)


df2<-data.frame(A=c(1,2,2,3,4,5,1,1,2,3),
                B=c(4,4,2,3,4,2,1,5,2,2),
                C=c(3,3,3,3,4,2,5,1,2,3),
                D=c(1,2,5,5,5,4,5,5,2,3),
                E=c(1,4,2,3,4,2,5,1,2,3))
df2[colnames(df2)] <- lapply(df2[colnames(df2)], factor)


df3<-data.frame(A=c(1,2,2,1,4,5,3,1,2,3),
                B=c(3,4,1,3,4,1,3,5,2,2),
                C=c(3,3,1,3,3,2,5,1,2,3),
                D=c(3,1,5,5,5,1,5,5,2,3),
                E=c(3,1,2,3,4,2,5,3,2,1))
df3[colnames(df3)] <- lapply(df3[colnames(df3)], factor)


list_df <- list(df1, df2, df3)  # 避免用list作为变量名，覆盖内置函数

绘图函数：

install.packages("likert")
library(likert)
library(ggplot2)  # 显式加载ggplot2，ggsave依赖它

plot_likert <- function(data, title){
  plot(likert(reverse.levels(data)),
       type ="bar", center=3, group.order=names(data)) +
    labs(x = "Theme", title=title, subtitle=paste("Number of observations:", nrow(data))) + 
    guides(fill=guide_legend("Rank"))  
}

解决方案 #

1. 准备输出文件夹 #

先创建用于保存图像的文件夹，避免因路径不存在报错：

output_folder <- "likert_output_plots"
if (!dir.exists(output_folder)) {
  dir.create(output_folder)
}

2. 批量生成并保存图像 #

提供两种实现方式，按需选择：

方式一：Base R 原生实现

通过遍历列表索引，为每个数据框生成对应标题和文件名，再调用绘图函数并保存：

# 生成每个图的标题和保存路径
plot_titles <- paste("Likert Analysis - Dataset", 1:length(list_df))
save_paths <- file.path(output_folder, paste0("likert_plot_", 1:length(list_df), ".png"))

# 批量处理
lapply(seq_along(list_df), function(idx) {
  # 生成图像
  plot_obj <- plot_likert(list_df[[idx]], plot_titles[idx])
  # 保存图像，可调整width/height/dpi参数
  ggsave(save_paths[idx], plot = plot_obj, width = 8, height = 6, dpi = 300)
})

方式二：tidyverse 风格实现

使用purrr包的map2和walk2函数，代码更简洁：

library(purrr)
library(stringr)

# 生成标题和保存路径
plot_titles <- str_c("Likert Analysis - Dataset ", 1:length(list_df))
save_paths <- str_c(output_folder, "/likert_plot_", 1:length(list_df), ".png")

# 批量绘图并保存
map2(list_df, plot_titles, ~plot_likert(.x, .y)) %>% 
  walk2(save_paths, ~ggsave(.y, plot = .x, width = 8, height = 6, dpi = 300))

注意事项 #

• 不要使用list作为变量名，这会覆盖R内置的list()构造函数，示例中改为list_df。
• ggsave支持多种格式，只需修改文件名后缀（如.pdf、.jpeg）即可切换保存格式。
• 可根据需求调整ggsave的width、height（单位默认英寸）和dpi参数，控制图像尺寸和清晰度。

内容的提问来源于stack exchange，提问作者maplesyrup123