R重命名數據幀列表中的列

Question

我需要重命名數據框列表中的一列。 新的列名稱需要反映它所屬的數據框的名稱。 例如，我想分別將Letters列重命名為“ 1”和“ 2”（Letters_1和Letters_2），或者類似的方法也可以。

這是一個可重現的例子

#Create a list containing dataframes
datasets=list()

Numbers <- c(1,2,3,4)
Letters <- c("A","B","C","D")
DF1 <- data.frame(Numbers, Letters)
Numbers <- c(1,9,3,14)
Letters <- c("A","Z","C","X")
DF2 <- data.frame(Numbers, Letters)

datasets[[1]] <- DF1
datasets[[2]] <- DF2
head(datasets[])

本示例生成以下數據結構

[[1]]
  Numbers Letters
1       1       A
2       2       B
3       3       C
4       4       D

[[2]]
  Numbers Letters
1       1       A
2       9       Z
3       3       C
4      14       X

我想要的輸出如下

[[1]]
  Numbers 1
1       1       A
2       2       B
3       3       C
4       4       D

[[2]]
  Numbers 2
1       1       A
2       9       Z
3       3       C
4      14       X

這是我嘗試使用for循環。

# Rename column using for loop

list <- c(1,2)

for (name in list){
  colnames(datasets[[print(paste(`name`, sep=""))]][2]) <- c(print(paste(`name`, sep="")))
}

Answer 1

我們可以遍歷每個列表元素，並使用setNames僅重命名其中包含“字母”的列

datasets[] <- lapply(seq_along(datasets), function(x) 
                     setNames(datasets[[x]], 
                  replace(names(datasets[[x]]), names(datasets[[x]]) == "Letters", x)))



datasets
#[[1]]
#   Numbers        1
#1        1        A
#2        2        B
#3        3        C
#4        4        D

#[[2]]
#   Numbers        2
#1        1        A
#2        9        Z
#3        3        C
#4       14        X

Answer 2

您只需稍作修改就可以使用for循環解決方案。

for(x in seq_along(datasets))
 names(datasets[[x]])[names(datasets[[x]]) == 'Letters'] <- x 


datasets
# [[1]]
#   Numbers 1
# 1       1 A
# 2       2 B
# 3       3 C
# 4       4 D
# 
# [[2]]
#   Numbers 2
# 1       1 A
# 2       9 Z
# 3       3 C
# 4      14 X

Answer 3

如果您為列表命名，並且只希望在“ Letters列中添加data.frame名稱，那么它將起作用：

> Numbers <- c(1,2,3,4)
> Letters <- c("A","B","C","D")
> DF1 <- data.frame(Numbers, Letters)
> Numbers <- c(1,9,3,14)
> Letters <- c("A","Z","C","X")
> DF2 <- data.frame(Numbers, Letters)
> 
> datasets <- list(
+   DF1 = DF1,
+   DF2 = DF2
+ )
> 
> datasets <- sapply(names(datasets), function(x) {
+   df <- datasets[[x]]
+   i <- which(colnames(df) == "Letters")
+   colnames(df)[i] <- paste0("Letters_", x)
+   df
+ }, simplify = FALSE)
> 
> datasets
$DF1
  Numbers Letters_DF1
1       1           A
2       2           B
3       3           C
4       4           D

$DF2
  Numbers Letters_DF2
1       1           A
2       9           Z
3       3           C
4      14           X

Answer 4

您可以為數據集元素定義名稱，然后在循環中訪問它們：

names(datasets) <- c("DF1","DF2")
for (i in 1:length(datasets))
     {
  print(names(datasets)[i])
}
[1] "DF1"
[1] "DF2"