Question

我有一个数据帧，其中第一列是时间戳，其余16列是数字值。我想创建4个新列（或一个新的df），其中每个列是4个数据列的平均值，以行表示。

尝试一次使用这个意思：

 nightdata2 <- rowMeans(c(Nightdata$X3356D, Nightdata$X3356C, Nightdata$X3356B, Nightdata$X3356A) )

我正在尝试将相关的四列连接起来并平均行，并具有探针。

，导致错误：“'x'必须是至少二维的数组”

我有容易忽略的事情吗？

Answer 1

类似的东西一次将4列传递给rowMeans：

sapply( seq(2,17 by=4), function(start) rowMeans(Nightdata[,x:(x+3)])

在没有可复制示例的情况下未经测试。可能要使用lapply来防止sapply的简化，然后再使用do.call(cbind, ...)来对齐它们。