1

我有数据虹膜，我想制作数据虹膜-数据虹膜中每一列的平均值，所以我有这样的代码

y=iris[,1:4]
t=y-colMeans(y)
t

所以该列显示矩阵数据 iris - 列的平均值。所以我想问一下如何创建这样的但循环我这样写

for(i in 1:4){y[,i]=iris[,i]-colMeans(iris[,i])}

但是'x'必须是至少二维数组的结果问题

请帮我解决这个问题

4

2 回答 2

1

当您使用一列对数据框进行子集化时，它会将其转换为向量。为了避免这种使用drop = FALSE。

for(i in 1:4){
  y[, i] = iris[,i] - colMeans(iris[,i, drop = FALSE])
}

但是，由于您一次只取一列，您可以使用mean而不是colMeans多列。

for(i in 1:4){
  y[, i] = iris[,i] - mean(iris[,i])
}
于 2020-10-18T06:22:32.237 回答
0

有了dplyr我们可以做

library(dplyr)
iris <- iris %>%
             mutate(across(1:4, ~ . - mean(.)))

或使用lapply

iris[1:4] <- lapply(iris[1:4], function(x) x - mean(x))
于 2020-10-18T19:45:16.460 回答