R：根据数据框的列应用功能的有效方法

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)