如何在R中将空向量转为‘zero’适配R Markdown报告输出？

问题背景 #

我使用R Markdown生成月度Word报告，需汇总上月以来采集特定数据的野外站点，验证本月采集的SiteId是否与上月重复。现有对比方法在存在重复站点时能正常渲染报告，但无重复时repeats会变成空向量（numeric(0)），导致报告无法正确显示“0个重复站点”的信息，期望无重复时输出：本月有0（zero）个重复站点。

现有场景代码 #

场景1：存在重复站点 #

# SCENARIO 1: 存在跨月重复的野外站点
this_month <- data.frame(
  SiteId = c(101,102,103,104), # 示例唯一站点ID
  Species_A = c('present','present','present','present') # 模拟数据
)
last_month <- data.frame(
  SiteId = c(104,106,102,108), # 包含重复ID
  Species_A = c('present','present','present','present') 
)

# 对比本月与上月站点
match <- this_month$SiteId %in% last_month$SiteId  
pos <- which(match == TRUE) 
repeats <- this_month$SiteId[pos] 

此时match返回[1] FALSE TRUE FALSE TRUE，pos返回[1] 2 4，repeats返回[1] 104 102。原行内代码：
There were r n_distinct(repeats)sites repeated this month. These were Sites:r as.integer(repeats).
可正常渲染为：本月有2个重复站点，分别是：104、102。

场景2：无重复站点 #

# SCENARIO 2：无跨月重复的野外站点
this_month <- data.frame(
  SiteId = c(101,102,103,104), 
  Species_A = c('present','present','present','present')
)
last_month <- data.frame(
  SiteId = c(105,106,107,108), # 无重复ID
  Species_A = c('present','present','present','present')
) 

# 对比站点
match <- this_month$SiteId %in% last_month$SiteId
pos <- which(match == TRUE) 
repeats <- this_month$SiteId[pos] 

此时match返回[1] FALSE FALSE FALSE FALSE，pos返回integer(0)，repeats返回numeric(0)，原行内代码无法正确显示0个重复的信息。

解决方案 #

可以通过条件判断处理空向量的情况，以下两种方法均可实现需求：

方法1：行内代码直接分支判断 #

将原行内代码替换为：

`r if (length(repeats) == 0) {
  "本月有0（zero）个重复站点。"
} else {
  paste0("本月有", length(repeats), "个重复站点，分别是：", paste(repeats, collapse = "、"), "。")
}`

• 当repeats为空向量时，length(repeats)返回0，触发第一分支输出指定文本；
• 当存在重复时，用paste0拼接重复数量和站点ID列表，collapse = "、"确保站点ID用中文顿号分隔。

方法2：提前定义显示文本 #

在代码块中先处理好显示内容，再在行内引用：

# 提前生成报告文本
repeat_text <- if (length(repeats) == 0) {
  "本月有0（zero）个重复站点。"
} else {
  paste0("本月有", length(repeats), "个重复站点，分别是：", paste(repeats, collapse = "、"), "。")
}

然后在行内引用：
r repeat_text

额外优化：简化重复站点获取代码 #

原代码中match和pos的步骤可以简化为一行，效果完全一致：

repeats <- this_month$SiteId[this_month$SiteId %in% last_month$SiteId]

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