在dataframe上使用lapply或循环切换qqplot的标题

install.packages("ggplot2")
install.packages("reshape2")
library(ggplot2)
library(reshape2)

df_long <- melt(df, id.vars = "目标变量")

# 创建标题列表
titles <- c("标题1", "标题2", "标题3")

# 使用lapply函数创建多个qqplot
qqplots <- lapply(titles, function(title) {
  ggplot(data = df_long, aes(x = value)) +
    geom_qq() +
    facet_wrap(~ variable) +
    ggtitle(title)
})

# 或者使用循环创建多个qqplot
qqplots <- list()
for (i in 1:length(titles)) {
  qqplot <- ggplot(data = df_long, aes(x = value)) +
    geom_qq() +
    facet_wrap(~ variable) +
    ggtitle(titles[i])
  qqplots[[i]] <- qqplot
}

print(qqplots[[1]])