如何将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 |
回答
最后但并非最不重要的：
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