主页 / coding / 问题 / 79034693
Accepted
farrow90
Asked: 2024-09-29 00:30:47 +0800 CST

重命名全局环境中的列

  • 772

我在 R 的全局环境中有这些数据框：

file_1 <- data.frame(id = 1:5, samplecolumn = letters[1:5], value = rnorm(5))
file_2 <- data.frame(id = 1:5, sample_column = letters[6:10], value = rnorm(5))
file_3 <- data.frame(id = 1:5, othercolumn = letters[11:15], value = rnorm(5))
abc_1 <- data.frame(id = 1:5, samplecolumn = letters[16:20], value = rnorm(5))

对于所有以“file_”开头的数据框，如果有一个名为“samplecolumn”的列，我想将其重命名为“sample_column”。

我认为我可以通过首先识别以“file_”开头的所有数据框，然后重命名它们来做到这一点：

all_objects <- ls()

file_objects <- all_objects[grep("^file_", all_objects)]

for (file in file_objects) {
    df <- get(file)
    
    if ("samplecolumn" %in% colnames(df)) {
        colnames(df)[colnames(df) == "samplecolumn"] <- "sample_column"
        
        assign(file, df)
    }
}

这是在 R 中执行此操作的正确方法吗？

2 个回答

  1. Best Answer

    这是基本的 R 方法。使用 获取数据框ls/mget，然后使用lapply函数进行更改。

    ls(pattern = "file_") |>
  mget() |>
  lapply(\(x) {
    names(x) <- ifelse(grepl("samplecolumn", names(x)), "sample_column", names(x))
    x
  })
#> $file_1
#>   id sample_column      value
#> 1  1             a  0.3567935
#> 2  2             b  0.1467364
#> 3  3             c  0.2088358
#> 4  4             d  1.9435469
#> 5  5             e -1.6413247
#> 
#> $file_2
#>   id sample_column      value
#> 1  1             f -0.2842375
#> 2  2             g  0.5040112
#> 3  3             h  2.5262186
#> 4  4             i  0.5083768
#> 5  5             j  0.7501698
#> 
#> $file_3
#>   id othercolumn       value
#> 1  1           k -0.17416173
#> 2  2           l -0.04321274
#> 3  3           m -0.16325477
#> 4  4           n -0.53594218
#> 5  5           o  1.11494155

    创建于 2024-09-28，使用reprex v2.1.0

    或者，更简单，使用setNames。

    ls(pattern = "file_") |>
  mget() |>
  lapply(\(x) 
         setNames(x, ifelse(grepl("samplecolumn", names(x)), "sample_column", names(x)))
  )
#> $file_1
#>   id sample_column      value
#> 1  1             a  1.5820405
#> 2  2             b -0.6436687
#> 3  3             c -0.5669997
#> 4  4             d  0.9622013
#> 5  5             e -0.9325018
#> 
#> $file_2
#>   id sample_column      value
#> 1  1             f -0.3382037
#> 2  2             g  0.3404972
#> 3  3             h  0.2350941
#> 4  4             i -0.1942233
#> 5  5             j  0.7478564
#> 
#> $file_3
#>   id othercolumn      value
#> 1  1           k  2.3387201
#> 2  2           l -1.0179311
#> 3  3           m  0.3301583
#> 4  4           n -0.3459007
#> 5  5           o  2.2805970

    创建于 2024-09-28，使用reprex v2.1.0

    • 1

  2. data.table::setnames很适合这个。

    > mget(ls(pattern='^file_\\d$|^abc_\\d$')) |> 
+   lapply(data.table::setnames, 
+          old=c('samplecolumn', 'othercolumn'),
+          new=c('sample_column', 'other_column'),
+          skip_absent=TRUE)
$abc_1
  id sample_column        value
1  1             p -2.679587590
2  2             q  1.392783492
3  3             r -0.391974271
4  4             s  0.006553375
5  5             t -0.373086481

$file_1
  id sample_column      value
1  1             a  0.3554701
2  2             b -1.2325984
3  3             c -0.3066686
4  4             d -0.1407742
5  5             e -1.3499631

$file_2
  id sample_column       value
1  1             f  1.22129539
2  2             g -0.06206181
3  3             h -1.61550283
4  4             i  0.61408114
5  5             j -0.38956958

$file_3
  id other_column      value
1  1            k  1.2756607
2  2            l -0.3802113
3  3            m -0.5724748
4  4            n -0.3463155
5  5            o  0.5670347

    如果您真的想将 df 弄乱回 .GlobalEnv，请将其放入管道中|> list2env()。

    • 0

相关问题