Question

我现在觉得非常愚蠢，但我不能提出 for 循环......

我有一个包含数字和阶乘列的数据框。我只是希望缩放数字列，并保持因子列不变。例如

> set.seed(160)
> df1 <- data.frame(as.data.frame(matrix(rnorm(8), ncol=2)), 
                    V3=factor(c("A", "A", "B", "B")))
> df1
          V1         V2 V3
1  0.6185496 -0.6410203  A
2 -0.8722777  2.6520986  A
3  0.8529240 -1.4156009  B
4  0.3678875 -1.1615607  B

我想得到

> df1
          V1         V2 V3
1  0.4901808 -0.2642698  A
2 -1.4493527  1.4780179  A
3  0.7950968 -0.6740765  B
4  0.1640750 -0.5396717  B

命令比

更有效

for(i in 1:ncol(df1)) {
  if(is.factor(df1[,i])) {df1[,i] <- df1[,i]}
  else{df1[,i] <- scale(df1[,i])}
}

我尝试了lapply(), sapply(), if(), ifelse()的各种组合，但似乎没有任何效果（apply不起作用，因为df被转换为矩阵而我失去了因子/数字结构）。有什么建议吗？

注意：我不是试图根据列中的值应用函数，而是基于类型的列。

Answer 1

您可以尝试以下操作，这与评论中的建议类似：

df1[sapply(df1, is.numeric)] <- scale(df1[sapply(df1, is.numeric)])
#> df1
#          V1         V2 V3
#1  0.4901808 -0.2642698  A
#2 -1.4493527  1.4780179  A
#3  0.7950968 -0.6740765  B
#4  0.1640750 -0.5396717  B

Answer 2

这应该有用。

df1[] <- sapply(df1, function(i) if(is.numeric(i)) scale(i) else i)

R：根据数据帧的列应用函数的有效方法

2 个答案: