R语言ggplot2动态绘图标题如何去除空列对应的NA值

问题场景 #

使用R生成联动筛选配置的动态图表时，图表标题需要拼接从Excel配置表读取的各筛选维度值，但配置表中部分字段刻意留空时，直接拼接会出现NA值或无效空内容，影响标题展示。
原有问题代码如下：

filters<-readxl("settings1.xlsx") {settings1 is defined as follows:manufacturer=audi,model="",displ=1.8,year=1999)
data<-mpg  
                                          
ggplot(filtrated data, aes(x = displ, y = cty)) + 
  geom_point(size = 7, colour = "#EF783D", shape = 17) +
  geom_line(color = "#EF783D") +
        ggtitle(paste0("Insights :","  ",paste0(filters$manufacturer,filters$model,filters$displ,filters$year,collapse = ",")))

问题原因 #

Excel中留空的单元格读入R后，会被识别为NA或空字符串""，直接调用paste拼接时没有提前过滤这类无效值，就会导致最终标题出现NA、连续分隔符等异常内容。

修复方案 #

在拼接标题前新增一步值清洗逻辑，统一过滤掉所有NA、空字符串、纯空格的无效字段值，再执行拼接即可。同时补全原代码中缺失的配置读取、数据筛选逻辑，完整可运行代码如下：

library(readxl)
library(ggplot2)
library(dplyr)

# 读取筛选配置
filters <- read_excel("settings1.xlsx")

# 按配置筛选绘图数据，空配置项不做对应维度筛选
plot_data <- mpg %>%
  filter(
    manufacturer == filters$manufacturer,
    if (nchar(trimws(filters$model)) > 0) model == filters$model else TRUE,
    displ == filters$displ,
    year == filters$year
  )

# 提取所有需要拼接到标题的字段值
title_content <- c(
  filters$manufacturer,
  filters$model,
  filters$displ,
  filters$year
)
# 过滤无效值：移除NA、空字符串、纯空格内容
title_content <- title_content[!is.na(title_content) & nchar(trimws(title_content)) > 0]
# 拼接最终标题
final_title <- paste0("Insights :  ", paste(title_content, collapse = ", "))

# 生成图表
ggplot(plot_data, aes(x = displ, y = cty)) + 
  geom_point(size = 7, colour = "#EF783D", shape = 17) +
  geom_line(color = "#EF783D") +
  ggtitle(final_title)

效果说明 #

以给出的示例配置为例，model字段为空会被自动过滤，最终生成的标题为Insights : audi, 1.8, 1999，不会出现NA或无效空占位。后续调整配置时任意字段留空，都会被自动识别过滤，无需修改标题拼接逻辑。

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