将列总计添加到数据框R中的新行

假设我有以下数据

 A <- c(4,4,4,4)
 B <- c(1,2,3,4)
 C <- c(1,2,4,4)
 D <- c(3,2,4,1)

data <- as.data.frame(rbind(A,B,C,D))
data <- t(data)
data <- as.data.frame(data)

> data
     A B C D
  V1 4 1 1 3
  V2 4 2 2 2
  V3 4 3 4 4
  V4 4 4 4 1

如果你想尝试一下，我会尝试获得相对频率，再增加5行

一列中的每个值（V1:V4）除以V1:V5总和值（4行）将得到1行。第五行是v1:v3Sum除以v1:v5Sum

    > data
              A    B    C    D
           V1 4    1    1    3
           V2 4    2    2    2
           V3 4    3    4    4
           V4 4    4    4    1
    V1:V3Sum 12    6    7    9
    V1:V4Sum 16   10   11   10
relFreqV1   .25   .1   .09   .3     *each of these 4 rows is the value in
relFreqV2   .25   .2   .18   .2       row 1:4 divided by v1:v4Sum
relFreqV3   .25   .3   .36   .4 
relFreqV4   .25   .4   .36   .1
relFreqTot  .75  .6     .63   .9    * last row is v1:v3Sum divided by 
                                       V1:V4Sum

---

任何帮助都会被感激

您可以通过几种方式来实现这一点，包括一些更新、更“整洁”的方式，但当解决方案在base R中非常简单时，我更喜欢这种方式：

rbind(data, colSums(data[1:3,]),colSums(data))

如果希望行名称与所需的输出示例匹配，则这是1个选项：

data           <- rbind(data, colSums(data[1:3,]),colSums(data))
rownames(data) <- c("V1", "V2", "V3", "V4", "V1:V3Sum", "V1:V4Sum")

相对频率

您需要更多的行来反映摘要统计信息（相对频率）。我相信这就是你想要的：

rbind(data, 
      data[1,]/data[5,],
      data[2,]/data[5,],
      data[3,]/data[5,],
      data[4,]/data[5,],
      data[5,]/data[6,])

---

哈哈，好吧，那太容易了。谢谢有关于如何获得频率的建议吗@砍-R@ElaineSlaven是的，是：）如果这回答了您的问题，请勾选绿色复选标记。我很乐意做频率，但我不是100%清楚你想要什么-你能在一个新问题中做一个期望的输出示例吗？如果你想把它放在这个问题上，我想也没关系，虽然出于某种原因，它不会让我再接受几分钟，但我会的@ElaineSlaven请查看我的更新答案，了解相关频率。如果我误解了你想要什么，请让我知道。这有点混乱，但它的工作完美&我没有解决它哈哈谢谢！！！仅供参考，

数据
data           <- rbind(data, colSums(data[1:3,]),colSums(data))
rownames(data) <- c("V1", "V2", "V3", "V4", "V1:V3Sum", "V1:V4Sum")

          A  B  C  D
V1        4  1  1  3
V2        4  2  2  2
V3        4  3  4  4
V4        4  4  4  1
V1:V3Sum 12  6  7  9
V1:V4Sum 16 10 11 10

rbind(data, 
      data[1,]/data[5,],
      data[2,]/data[5,],
      data[3,]/data[5,],
      data[4,]/data[5,],
      data[5,]/data[6,])

                   A          B          C          D
V1         4.0000000  1.0000000  1.0000000  3.0000000
V2         4.0000000  2.0000000  2.0000000  2.0000000
V3         4.0000000  3.0000000  4.0000000  4.0000000
V4         4.0000000  4.0000000  4.0000000  1.0000000
V1:V3Sum  12.0000000  6.0000000  7.0000000  9.0000000
V1:V4Sum  16.0000000 10.0000000 11.0000000 10.0000000
V11        0.3333333  0.1666667  0.1428571  0.3333333
V21        0.3333333  0.3333333  0.2857143  0.2222222
V31        0.3333333  0.5000000  0.5714286  0.4444444
V41        0.3333333  0.6666667  0.5714286  0.1111111
V1:V3Sum1  0.7500000  0.6000000  0.6363636  0.9000000