R 用关联字符串替换列名的元素

发布于03月19日

我有一个data.table，其中包含自动生成的列名.这些名称的形式为:

N.x.y. z

其中N是一个字符(字面意思是N)，其余变量是整数.

我还有一个.csv，它将x的迭代与有意义的字符串关联起来.如下所示:

X	Name
1	Model
3	Mileage

我想做的是以以下格式重新生成列名:

我试着先提取列名，比如

thefile = fread('filepath')

xx <- colnames(thefile)

colindex <- read.csv('the other file path')
colindex[,1] <- paste0('N.', colindex[,1], '.') #Converting x to N.x.

我用grepl，replace_at把字符串分割成'."

推荐答案

read.table(text = "X    Name
                   1    Model
                   3    Mileage", 
           header = T, stringsAsFactor = FALSE) -> colindex


df1 <- data.frame(`N.1.2.3` = c(1,2), `N.3.1.2` = c(6,5), 
                  `N.1.3.1` = c(3, 4), `N.3.2.2` = c(8, 7))

df1
#>   N.1.2.3 N.3.1.2 N.1.3.1 N.3.2.2
#> 1       1       6       3       8
#> 2       2       5       4       7

names_split <-  as.data.frame(strsplit(names(df1), "\\."))
names_split[2,] <-  colindex[match(names_split[2,], colindex$X), "Name"]
names(df1) <- apply(names_split, 2, paste, collapse = ".")

df1
#>   N.Model.2.3 N.Mileage.1.2 N.Model.3.1 N.Mileage.2.2
#> 1           1             6           3             8
#> 2           2             5           4             7

^{创建于2024-03-18年第reprex v2.0.2页}