R 如何将行添加到一行中？

我有一张桌子：

# A tibble: 10 x 2
   term                sumsq
   <chr>               <dbl>
 1 a1                 10.1  
 2 a2                 5.15 
 3 a3                 45.1  
 4 a4                 7.32 
 5 a1:a2              0.870
 6 a1:a3              14.1  
 7 a1:a4              12.0  
 8 a2:a4              0.211
 9 a2:a3              0.305
10 Residuals          4.88 

---

我们可以将数据分成两部分，第5行和第9行以及所有其他部分。我们把第二部分的和加到第一部分

library(dplyr)

df %>%
   slice(-(5:9)) %>%
    bind_rows(df %>%
               slice(5:9) %>%
                summarise(term = "Interaction",
                          sumsq = sum(sumsq)))

#         term  sumsq
#1          a1 10.100
#2          a2  5.150
#3          a3 45.100
#4          a4  7.320
#5   Residuals  4.880
#6 Interaction 27.486

与R基相似

rbind(df[-c(5:9), ], data.frame(term = "Interaction", sumsq = sum(df$sumsq[5:9])))

library(dplyr)

df %>%
   slice(-(5:9)) %>%
    bind_rows(df %>%
               slice(5:9) %>%
                summarise(term = "Interaction",
                          sumsq = sum(sumsq)))

#         term  sumsq
#1          a1 10.100
#2          a2  5.150
#3          a3 45.100
#4          a4  7.320
#5   Residuals  4.880
#6 Interaction 27.486

rbind(df[-c(5:9), ], data.frame(term = "Interaction", sumsq = sum(df$sumsq[5:9])))