R编程中的规范化Iris数据集“ x”必须是至少二维的数组

问题描述

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

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

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

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

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

请帮助我解决此问题

解决方法

当您用一列子集一个数据框时，它将变成矢量。为避免这种情况，请使用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] - mean(iris[,i])
}

,

有了dplyr，我们可以做到

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

---

或使用lapply

iris[1:4] <- lapply(iris[1:4],function(x) x - mean(x))