如何用paste()将数据框列的唯一值与字符串合并为单条输出？

你遇到的问题是因为paste()默认会将前缀与向量中的每个元素逐一拼接，导致每个日期前都重复了前缀。要实现将所有日期合并到同一句子中，需要分两步操作：

1. 先用paste()的collapse参数将所有唯一日期合并为一个带逗号分隔的字符串
2. 再将这个合并后的字符串与前缀拼接

正确代码示例 #

df <- data.frame(datetime = c("2023-04-17 13:20", "2023-04-19 16:13", "2023-04-19 16:46", "2023-04-18 09:23"))

# 合并唯一日期为单个字符串
combined_dates <- paste(unique(df$datetime), collapse = ", ")
# 拼接前缀与合并后的日期字符串
output <- paste("The following dates are present in the datetime column: ", combined_dates, sep = "")

print(output)

简化写法（用paste0省略sep参数） #

df <- data.frame(datetime = c("2023-04-17 13:20", "2023-04-19 16:13", "2023-04-19 16:46", "2023-04-18 09:23"))

output <- paste0("The following dates are present in the datetime column: ", paste(unique(df$datetime), collapse = ", "))
print(output)

输出结果 #

[1] "The following dates are present in the datetime column: 2023-04-17 13:20, 2023-04-19 16:13, 2023-04-19 16:46, 2023-04-18 09:23"

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