2

我在使用聚合后制作了一个 data.frame，然后我尝试更改某些列的列名。data.frame (df) 为：

  DistanceFromBase Layer Nitrogen    x.mean      x.sd
1                5   1-2       HN 50.884615 10.841870
2               10   1-2       HN 64.846154  8.008457
3               15   1-2       HN 65.538462  7.500564
4               20   1-2       HN 65.461538  8.448577
5               25   1-2       HN 65.000000  9.055385
6               30   1-2       HN 65.565217  9.806427

我用了

colnames(df)

和 colnames 为：

[1] "DistanceFromBase" "Layer"            "Nitrogen"         "x"

我想将列名“x.mean”和“x.sd”分别更改为“mean”和“sd”。

colnames(df)[4] <- "mean"

只能将“x”改为“mean”，如：

  DistanceFromBase Layer Nitrogen mean.mean   mean.sd
1                5   1-2       HN 50.884615 10.841870
2               10   1-2       HN 64.846154  8.008457
3               15   1-2       HN 65.538462  7.500564
4               20   1-2       HN 65.461538  8.448577
5               25   1-2       HN 65.000000  9.055385
6               30   1-2       HN 65.565217  9.806427

如何将列名“x.mean”和“x.sd”更改为“mean”和“sd”。

4

1 回答 1

2

当你aggregate像这样使用多个函数时，你最终会得到matrix一个列：

output <- aggregate(. ~ Species, data = iris[c(1, 5)], 
                    function(x) c(Mean = mean(x), Sum = sum(x)))
str(output)
# 'data.frame':  3 obs. of  2 variables:
#  $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 2 3
#  $ Sepal.Length: num [1:3, 1:2] 5.01 5.94 6.59 250.3 296.8 ...
#   ..- attr(*, "dimnames")=List of 2
#   .. ..$ : NULL
#   .. ..$ : chr  "Mean" "Sum"

解决此问题的简单方法是do.call(data.frame, ...)在输出上使用，如下例所示。

output2 <- do.call(data.frame, output)
str(output2)
# 'data.frame': 3 obs. of  3 variables:
#  $ Species          : Factor w/ 3 levels "setosa","versicolor",..: 1 2 3
#  $ Sepal.Length.Mean: num  5.01 5.94 6.59
#  $ Sepal.Length.Sum : num  250 297 329

从那里，您可以像往常一样重命名列。

于 2013-10-18T09:23:18.713 回答