我希望重命名数据中的列.来自其他列表的框架.
mylist <- list(
var1 = "toto",
var2 = "titi"
)
mytable <- data.frame(
var1 = letters[1:3],
var2 = letters[4:6],
var6 = letters[7:9]
)
我试过了，但没有成功:
names(mytable) <- sapply(names(mytable), function(x) mylist$x)
预期结果:
names(mytable) <- c("toto","titi","var6")
我们可以在list和数据的名称上使用match.框架以获取索引，并使用该索引对列名进行子集，并指定"mylist"的值
i1 <- match(names(mylist), names(mytable))
names(mytable)[1:2] <- unlist(mylist)
-输出
> mytable
toto titi var6
1 a d g
2 b e h
3 c f i
或使用rename_with
library(dplyr)
mytable %>%
rename_with(~ unlist(mylist), all_of(names(mylist)))
toto titi var6
1 a d g
2 b e h
3 c f i
此外，如果列表是用反转的键/值对构建的，那么我们可以使用!!!和rename
library(hash)
mytable %>%
rename(!!!as.list(invert(hash(mylist))))
toto titi var6
1 a d g
2 b e h
3 c f i