在R中使用paste0拼接文本与数据框列，避免文本重复

问题重现 #

原代码：

df1 <- data.frame(Name = c("约翰", "史蒂夫", "安迪"),
                  Age = c(24, 19, 36))
paste0("你好，以下是姓名列表：", df1$Name, "。希望这样没问题")

当前输出：

[1] "你好，以下是姓名列表：约翰。希望这样没问题"
[2] "你好，以下是姓名列表：史蒂夫。希望这样没问题"
[3] "你好，以下是姓名列表：安迪。希望这样没问题"

期望输出：

你好，以下是姓名列表：约翰, 史蒂夫, 安迪。希望这样没问题

解决方案 #

核心思路是先把df1$Name列的所有值合并成一个用逗号分隔的字符串，再和前后固定文本拼接。利用paste()函数的collapse参数就能实现：

# 第一步：合并姓名列的所有值为单个字符串
names_combined <- paste(df1$Name, collapse = ", ")
# 第二步：拼接固定文本
result <- paste0("你好，以下是姓名列表：", names_combined, "。希望这样没问题")

# 查看结果
result

执行后会得到期望的单条字符串：

[1] "你好，以下是姓名列表：约翰, 史蒂夫, 安迪。希望这样没问题"

简化写法 #

也可以把两步合并成一行代码，省去中间变量：

paste0("你好，以下是姓名列表：", paste(df1$Name, collapse = ", "), "。希望这样没问题")

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