同时聚合数字和字符

Question

我需要一次聚合不同类的多个变量。

test<- data.frame (name = c("anna", "joe", "anna"), 
                   party = c("red", "blue", "red"),
                   text = c("hey there", "we ate an apple", "i took a walk"), 
                   numberofwords = c(2, 4, 4), 
                   score1 = 1:3, 
                   score2 = 4:6)

现在看起来像这样

#   name    party      text           numberofwords score1 score2
#1  anna    red       hey there             2         1      4
#2  joe     blue    we ate an apple         4         2      5
#3  anna    red      i took a walk          4         3      6

我希望根据名称和参与方聚合score1、score2、name score1和文本变量。

期望的结果是：

#   name  party            text                  numberofwords score1 score2
#1  anna  red           hey there i took a walk       6           4      10
#2   joe  blue           we ate an apple              4           2      5

Answer 1

在across中使用最新版本的dplyr

test %>%
  group_by(name, party) %>%
  summarize(
    across(text, paste, collapse = " "),
    across(where(is.numeric), sum)
  )
# # A tibble: 2 x 6
#   name  party text                    numberofwords score1 score2
#   <chr> <chr> <chr>                           <dbl>  <int>  <int>
# 1 anna  red   hey there i took a walk             6      4     10
# 2 joe   blue  we ate an apple                     4      2      5   

旧版本，保留first party值：

test %>%
  group_by(name) %>%
  summarize(
    across(party, first),
    across(text, paste, collapse = " "),
    across(where(is.numeric), sum)
  )
# # A tibble: 2 x 6
#   name  party text                    numberofwords score1 score2
#   <chr> <chr> <chr>                           <dbl>  <int>  <int>
# 1 anna  red   hey there i took a walk             6      4     10
# 2 joe   blue  we ate an apple                     4      2      5   

Answer 2

我们可以根据dplyr中每一列的类进行条件summarise。

library(dplyr)

test %>% 
  mutate_at("text", as.character) %>% 
  group_by(name) %>% 
  summarise_all(list(~if(is.numeric(.)) sum(., na.rm = TRUE)  
                      else if(is.factor(.)) first(.) 
                      else paste(., collapse = " ")))

#> # A tibble: 2 x 6
#>   name  party text                    numberofwords score1 score2
#>   <fct> <fct> <chr>                           <dbl>  <int>  <int>
#> 1 anna  red   hey there i took a walk             6      4     10
#> 2 joe   blue  we ate an apple                     4      2      5

Answer 3

在base R中，我们可以使用aggregate和merge来实现这一点

out1 <- aggregate(cbind(numberofwords, score1, score2) ~ name + party, test, sum)
out2 <- aggregate(text ~ name + party, test, paste, collapse=' ')
merge(out1, out2)

-output

# name party numberofwords score1 score2                    text
#1 anna   red             6      4     10 hey there i took a walk
#2  joe  blue             4      2      5         we ate an apple