如何在ggplot2副标题中结合文本与绘图点计数计算？

要实现副标题自动显示当前绘图数据的样本量（如N=24），核心是将文本拼接函数与数据集计数逻辑直接结合，而非把计数代码当成字符串传入。以下是几种实用方案：

基础方案：直接用paste()或sprintf()结合数据集行数 #

如果绘图用的是完整数据集（无缺失值过滤），直接用nrow()获取样本量：

library(ggplot2)

# 使用paste()
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(
    title = "车重与油耗的关系",
    subtitle = paste("N =", nrow(mtcars)) # 直接调用nrow()计算行数
  )

# 使用sprintf()（更适合格式化数字）
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(
    title = "车重与油耗的关系",
    subtitle = sprintf("N = %d", nrow(mtcars))
  )

处理过滤后的数据 #

如果绘图用的是经过筛选的数据集（比如用dplyr::filter()处理过），直接对筛选后的数据集计数即可：

library(dplyr)

filtered_data <- mtcars %>% filter(cyl == 4)

ggplot(filtered_data, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(
    title = "4缸车的车重与油耗",
    subtitle = paste("N =", nrow(filtered_data))
  )

统计实际绘图的有效点（处理缺失值） #

如果数据存在缺失值，geom_point()会自动跳过缺失的点，此时可以统计同时满足x、y变量非缺失的样本量：

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(
    subtitle = paste("N =", sum(!is.na(mtcars$wt) & !is.na(mtcars$mpg)))
  )

常见错误排查 #

如果之前只显示文本不显示数值，大概率是把计数代码当成了字符串传入（比如加了引号），比如错误写法：

# 错误：把nrow(mtcars)写成了字符串
labs(subtitle = paste("N =", "nrow(mtcars)"))

正确写法是直接调用nrow(mtcars)，不要加引号。

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