数据框中选定列的总和和均值

Question

我在下面提到了数据框：

TYPE  Type1  Con1   Type2  Con2
A     10     5      15     2
B     NA     NA     10     3
C     20     10     NA     NA
D     5      5      15     3

我想总结第2＆4列和第3＆5列的平均值，我已经尝试过这个New_DF<-rbind(DF[-1],c(colSums(DF[,c(2,4)],colMeans(DF[,c(3,5)]))))但无法正常工作。

所需的输出：

TYPE    Type1  Con1   Type2  Con2
A       10     5      15     2
B       NA     NA     10     3
C       20     10     NA     NA
D       5      5      15     3
Total   35     5      40     2

Answer 1

例如这样

df <- data.frame(Type  = c("A", "B", "C", "D"),
                 Type1 = c(10, NA, 20, 5),
                 Con1  = c(5, NA, 10, 5),
                 Type2 = c(15, 10, NA, 15),
                 Con2  = c(2, 3, NA, 3), stringsAsFactors = F)

rbind(df, c("Total", colSums(df[, 2:5], na.rm = TRUE) / rep(c(1, nrow(df)), 2)))

   Type Type1 Con1 Type2 Con2
1     A    10    5    15    2
2     B  <NA> <NA>    10    3
3     C    20   10  <NA> <NA>
4     D     5    5    15    3
5 Total    35    5    40    2

Answer 2

您没有考虑过Nas：这是我对问题的快速解决方案：1-如下考虑您的数据框：

dff <- data.frame(a1=c(1,NA,2,NA), a2=c(NA,2,2,2),b1=c(1,NA,2,NA), b2=c(NA,2,2,2) )

2-对向量进行make，一个用于求和，一个用于均值：

sum_vector <- colSums(dff[,c(1,3)], na.rm = TRUE)
mean_vector <- colSums(dff[,c(2,4)], na.rm = TRUE)/nrow(dff)

3-做一个向量作为最后一行：

last_row <- vector()
last_row[1] <- "TOTAL_ROW"
last_row[c(2,4)] <- sum_vector
last_row[c(3,5)] <- mean_vector

4将向量作为新行添加到主数据帧

new_dff <- rbind(dff, c(last_row))

Answer 3

首先，将NA替换为0。

dat2 <- dat
dat2[is.na(dat2)] <- 0

之后，使用sapply根据列名将总和或均值应用于不同的列。

result <-  sapply(names(dat2[, -1]), function(x){
  if (grepl("Type", x)){
    return(sum(dat2[, -1][[x]]))
  } else if (grepl("Con", x)){
    return(mean(dat2[, -1][[x]]))
  }
})

然后合并结果。

dat3 <- data.frame(t(result))
dat3$TYPE <- "Total"

dat4 <- rbind(dat, dat3)
dat4
#    TYPE Type1 Con1 Type2 Con2
# 1     A    10    5    15    2
# 2     B    NA   NA    10    3
# 3     C    20   10    NA   NA
# 4     D     5    5    15    3
# 5 Total    35    5    40    2

数据

dat <- read.table(text = "TYPE  Type1  Con1   Type2  Con2
A     10     5      15     2
                  B     NA     NA     10     3
                  C     20     10     NA     NA
                  D     5      5      15     3",
                  header = TRUE, stringsAsFactors = FALSE)