r - 使用正则表达式更改列名

Question

我有五个列，分别命名为 organoleptic.1.、organoleptic.2.、organoleptic.3。等等在一个名为“df”的数据框中。我想将它们重命名为organoleptic1、organoleptic2、organoleptic3等。也就是说，我想删除数字周围的两个点。我是使用 names 函数完成的:

names(df)[names(df) == "organoleptic.1."] <- "organoleptic1"
names(df)[names(df) == "organoleptic.2."] <- "organoleptic2"
names(df)[names(df) == "organoleptic.3."] <- "organoleptic3"
names(df)[names(df) == "organoleptic.4."] <- "organoleptic4"
names(df)[names(df) == "organoleptic.5."] <- "organoleptic5"

但是，我想只输入一行代码。是否可以使用正则表达式或任何其他技巧来做到这一点？非常感谢!

Answer 1

我们可以尝试使用 gsub 函数。编辑:从 sub 固定为 gsub

colnames(df) <- gsub('.', '', colnames(df), fixed=TRUE)