仅重命名数据帧列表中每个数据帧的最后一列

Question

我想重命名数据框列表中每个数据框的最后一列。新名称对所有人都相同。

我制作了提取最后一列（下面）的代码，但是没有一个代码重命名了最后一列的标题。

List <- lapply(List, function(x) x[,ncol(x)])

Answer 1

你可以做

lapply(lst, function(x) {names(x) <- c(names(x[-length(x)]), "new_name");x})

#[[1]]
#                   mpg cyl disp  hp drat    wt  qsec vs am gear new_name
#Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4        4
#Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4        4
#Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4        1
#Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3        1
#Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3        2
#Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3        1

#[[2]]
#                   mpg cyl disp  hp drat    wt  qsec vs am gear new_name
#Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4        4
#Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4        4
#Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4        1
#Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3        1
#Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3        2
#Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3        1

或者是@Shree提到的更简单的版本

lapply(lst, function(x) {names(x)[ncol(x)] <- "new_name";x})

---

我们也可以使用rename_at

library(dplyr)
library(purrr)

map(lst,. %>% rename_at(ncol(.), ~"new_name"))

数据

lst <- list(head(mtcars), head(mtcars))