如何在R语言中将数据框列名与数字拼接？

嘿，我看你已经写好了创建矩阵、数据框以及转成长格式的代码，现在想要实现数据框列名与数字拼接的操作对吧？这在R里其实非常容易实现，我给你几个贴合你需求的具体方案：

首先先引用你的原始代码和数据方便参考：

你的原始代码：

mat=matrix(rnorm(40*5), ncol=5)
df=as.data.frame(mat)
df2 <- tidyr::gather(df, "x", "y", V1:V5)

生成的宽格式数据框df的列名为V1-V5，前几行数据如下：

V1          V2          V3          V4          V5
1  0.97111725  0.12937942 -0.89643594 -0.30144874  0.10405400
2  0.68372321 -0.08049954 -0.52891953 -0.56752185 -1.04425728
3  1.04553733  0.24499356  0.25919424 -1.51280159  0.70952009

核心用到的是R里的字符串拼接函数paste()和paste0()，前者可以自定义分隔符，后者默认无分隔符，根据你的需求选择即可。

场景1：修改宽格式数据框df的列名 #

如果你想直接修改df的列名，把原列名（V1-V5）和数字拼接，分两种情况：

情况A：拼接序列数字（比如V1→V1_1，V2→V2_2...） #

适合给每个列名对应一个从1开始的序列数字：

# 生成新列名：原列名 + 下划线 + 1到列数的序列
new_colnames <- paste0(colnames(df), "_", 1:ncol(df))
# 替换原列名
colnames(df) <- new_colnames

# 查看修改后的列名
colnames(df)
# 输出："V1_1" "V2_2" "V3_3" "V4_4" "V5_5"

情况B：拼接自定义数字向量 #

如果你有一组特定的数字要和列名对应拼接（比如c(10,20,30,40,50)）：

# 自定义要拼接的数字向量
custom_nums <- c(10,20,30,40,50)
# 用下划线分隔列名和数字，生成新列名
new_colnames <- paste(colnames(df), custom_nums, sep = "_")
# 替换列名
colnames(df) <- new_colnames

# 查看结果
colnames(df)
# 输出："V1_10" "V2_20" "V3_30" "V4_40" "V5_50"

场景2：在长格式数据框df2中拼接列名与数字 #

如果你是想在转成的长格式df2里，把x列的原列名和数字拼接，也可以用同样的思路：

示例：给每个行的原列名拼接行号 #

# 先生成长格式数据
df2 <- tidyr::gather(df, "x", "y", V1:V5)
# 给x列的每个值拼接对应的行号
df2$x_with_num <- paste0(df2$x, "_", 1:nrow(df2))

# 查看前几行结果
head(df2)

示例：给每个原列名对应固定数字（比如V1对应1，V2对应2） #

df2 <- tidyr::gather(df, "x", "y", V1:V5)
# 用match函数匹配原列名的位置，再拼接
df2$x_with_num <- paste0(df2$x, "_", match(df2$x, colnames(df)))

小提示 #

• paste0()是paste(sep = "")的简化版，适合不需要复杂分隔符的场景，速度更快
• 如果不想用下划线，也可以通过sep参数指定其他分隔符，比如paste(colnames(df), custom_nums, sep = "-")会生成V1-10这样的列名

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