R：无法在函数中更改列名

Question

函数注册。其他执行以下操作： (1) 取一个 26 列的数据框 (2) 将列 1-2 的类更改为因子 (3) 将第 3-26 列的类别更改为数字 (4) 创建第 27 列作为第 3-26 列的总和 (5) 删除除 1 和 27 之外的所有列 (6) 更改第 2 列的列名

• 如果我正在读取的数据框是 x，我希望第二列名称是 xENRL。

但是当我调用该函数时出现以下错误：

z

    enrollment.other <- function(x){
       x[, 1:2] <- as.data.frame(sapply(x[, 1:2], as.factor))
       x[, 3:26]<- as.data.frame(sapply(x[, 3:26], as.numeric))
       x[, 27] <- rowSums(x[, c(3:26)])
       x <- as.data.frame(x[, c(1, 27)])
       name <- deparse(substitute(x))
       colnames(x)[2] <- sprintf("%sENRL", name)
       as.data.frame(x)
    }

Answer 1

我们可以使用match.call

 enrollment.other <- function(x){
    x[1:2] <-  lapply(x[, 1:2], as.factor)
    x[3:26]<-  lapply(x[3:26], as.numeric)
    x[27] <- rowSums(x[3:26])
    x <-   x[c(1, 27)]
    name <- as.character(match.call()[[2]])
    colnames(x)[2] <- sprintf("%sENRL", name)
    x
 }

enrollment.other(d1)
#   V1 d1ENRL
#1   3    111
#2   3    117
#3   7     98
#4   5    118
#5   6    107
#6   9    109
#7   3    129
#8   7    124
#9   8    107
#10  3    130

---

或者如果我们需要使用deparse(substitute

 enrollment.other <- function(x){
   name <- deparse(substitute(x))
   x[1:2] <-  lapply(x[, 1:2], as.factor)
   x[3:26]<-  lapply(x[3:26], as.numeric)
   x[27] <- rowSums(x[3:26])
   x <-   x[c(1, 27)]
   colnames(x)[2] <- sprintf("%sENRL", name)
  x
}

数据

set.seed(24)
d1 <- as.data.frame(matrix(sample(1:9, 10*26, replace=TRUE), ncol=26))