时间戳

首页 > 解决方案 > 用R中的循环替换列名

r - 用R中的循环替换列名

问题描述

我有三个df P1，P2，P3，每三列。我想通过循环将每个 df 的第二列更改为 D1、D2、D3，但没有任何效果。我错过了什么？

C1 <- c(12,34,22)
C2 <- c(43,86,82)
C3 <- c(98,76,25)

C4 <- c(12,34,22)
C5 <- c(43,86,82)
C6 <- c(98,76,25)

C7 <- c(12,34,22)
C8 <- c(43,86,82)
C9 <- c(98,76,25)

P1 <- data.frame(C1,C2,C3)
P2 <- data.frame(C4,C5,C6)
P3 <- data.frame(C7,C8,C9)

x <- c("P1", "P2", "P3")
b <- c("D1","D2","D3")

for (V in b){
  names(x)[2] <- "V"
}

我期望的输出是：

P1 <- data.frame(C1,D1,C3)
P2 <- data.frame(C4,D2,C6)
P3 <- data.frame(C7,D3,C9)

标签： r

解决方案

我们可以使用mget在 a 中获取字符串向量的值list，使用相应的 'b' 值Map重命名每个元素的第二列，然后使用在全局环境中更新这些对象listlist2env

list2env(Map(function(x, y) {names(x)[2] <- y; x}, mget(x), b), .GlobalEnv)

-输出

P1
#  C1 D1 C3
#1 12 43 98
#2 34 86 76
#3 22 82 25

P2
#  C4 D2 C6
#1 12 43 98
#2 34 86 76
#3 22 82 25
P3
#  C7 D3 C9
#1 12 43 98
#2 34 86 76
#3 22 82 25

为了理解代码，第一步是mget字符串向量

mget(x)

返回一个listdata.frame

然后，我们将它作为参数传递给Map相应的“b”向量。即每个元素list是一个单元，同样每个元素vector是一个单元

Map(function(x, y) x, mget(x), b)

function(x, y)is 匿名/lambda 函数构造。使用它，我们将names第二列的设置为“b”。在这里，“b”的匿名参数是“y”。稍后，我们将所有内容都包装起来，list2env因为它是一个命名的list，它将在全局环境中查找这些名称以更新它

推荐阅读