R语言QQ图绘制异常：函数运行警告导致图形无法输出

嘿，我来帮你拆解这个问题～ 你遇到的两个问题（缺失值警告+PDF无图）其实都是R函数里用ggplot的常见坑，咱们一步步解决：

1. 先搞定「Removed 1 rows containing missing values」的警告 #

这个警告是因为你的数据框里存在缺失值(NA)，ggplot在绘制QQ图的参考线（geom_abline/geom_qq_line）时，无法处理带NA的行，所以自动剔除了这些行。解决办法有两种：

• 提前清理缺失值：先把带NA的行删掉，再传入函数：

  mydataframe_clean <- na.omit(mydataframe)
  # 或者按列清理，比如只保留前4列无NA的行：
  # mydataframe_clean <- mydataframe[complete.cases(mydataframe[,1:4]), ]
  

• 在绘图时忽略NA：在geom层里加上na.rm = TRUE参数，告诉ggplot跳过缺失值：

  # 把geom_qq和参考线改成：
  geom_qq(na.rm = TRUE) +
  geom_qq_line(na.rm = TRUE)
  

  （顺便提一句：ggplot2现在推荐用geom_qq_line()代替geom_abline()来画QQ图的参考线，更适配QQ图的逻辑）

2. 解决PDF里没有QQ图的问题 #

这是函数里用ggplot的经典坑：在函数内部生成的ggplot对象，必须显式调用print()才能渲染输出，尤其是在非交互式环境（比如保存PDF）里。

举个错误和正确的函数写法对比：

# ❌ 错误写法：函数内只生成ggplot对象，没print
plot_qq <- function(df) {
  for(col in colnames(df)) {
    p <- ggplot(df, aes(sample = .data[[col]])) +
      geom_qq(na.rm = TRUE) +
      geom_qq_line(na.rm = TRUE) +
      labs(title = paste("QQ Plot for", col))
    p # 这里只是返回对象，不会主动渲染
  }
}

# ✅ 正确写法：显式print ggplot对象
plot_qq <- function(df) {
  for(col in colnames(df)) {
    p <- ggplot(df, aes(sample = .data[[col]])) +
      geom_qq(na.rm = TRUE) +
      geom_qq_line(na.rm = TRUE) +
      labs(title = paste("QQ Plot for", col))
    print(p) # 关键：必须打印才能生成图形
  }
}

然后保存PDF的时候，要确保正确打开/关闭设备：

pdf("qq_plots.pdf") # 打开PDF设备
plot_qq(mydataframe_clean) # 调用函数，print会把图形输出到PDF
dev.off() # 关闭设备，完成保存

额外小技巧：用purrr批量画图更简洁 #

如果不想写循环，用purrr包可以更优雅地批量生成QQ图：

library(purrr)
library(ggplot2)

# 生成所有QQ图的列表
qq_plots <- map(names(mydataframe_clean), function(col) {
  ggplot(mydataframe_clean, aes(sample = .data[[col]])) +
    geom_qq(na.rm = TRUE) +
    geom_qq_line(na.rm = TRUE) +
    labs(title = paste("QQ Plot for", col))
})

# 保存到PDF
pdf("qq_plots.pdf")
walk(qq_plots, print) # walk会遍历列表并print每个图形
dev.off()

这样应该就能解决你的问题啦～

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