r - 如何将 colMeans 结果添加到 R 中保留 data.frame 的最后一行?
问题描述
我有这个df:
df <- data.frame(colA=c("A","B","C"),
colB = c("Stringn","Stringc","Stringb"),
x2008 = c(2.71472,1.62307,1.62269),
x2009 = c(NA,1.68250,1.66570))
df%>%
select(`x2008`,`x2009`)%>%
colMeans (na.rm = T)
返回:
x2008 | x2009 |
---|---|
1.986827 | 1.674100 |
预期收益:
可乐 | colB | x2008 | x2009 |
---|---|---|---|
一种 | 弦乐 | 2.71472 | 不适用 |
乙 | 字符串 | 1.62307 | 1.6825 |
C | 弦乐 | 1.62269 | 1.6657 |
平均的 | 结果 | 1.986827 | 1.674100 |
我正在这样做:
df%>%
select(`x2008`,`x2009`)%>%
colMeans (na.rm = T)%>%
mutate (`ColA` =" Average ",` ColB` = "result")
但它给出了错误,知道如何解决这个问题吗?
解决方案
最后但并非最不重要的:
library(dplyr)
df %>%
add_row(colA = "Average", colB = "Result", x2008 = mean(df$x2008, na.rm = TRUE),
x2009 = mean(df$x2009, na.rm = TRUE))
colA colB x2008 x2009
1 A Stringn 2.714720 NA
2 B Stringc 1.623070 1.6825
3 C Stringb 1.622690 1.6657
4 Average Result 1.986827 1.6741
推荐阅读
- java - Java - Spring boot - 无法自动装配 - 找不到 bean
- java - DateRange 迭代错误(代码取自 SO)
- coordinate-systems - astropy / healpix中的ECEF帧?
- javascript - 如何为多个按钮调用相同的模式
- php - 如何防止在 catch 中自动显示 pdo 错误
- mit-scratch - 如何在 Scratch 上制作迷宫生成器?
- r - 将列名与数据框中的因子级别结合起来
- excel - 如何在 ecxel 中将总和数分成 50 列?
- java - Nutch 1.13 爬行时间过长
- tensorflow - 如何使用 CUDA 10.0 安装 tensorflow-gpu 1.12