r - 将数据与 Base R 结合

Question

我目前需要将我的 dplyr 代码翻译成基本 R 代码。我的 dplyr 代码为我提供了 3 列，参赛者性别、奥林匹克赛季和不同运动项目的数量。代码如下所示:

olympics %>% 
  group_by(Sex, Season, Sport) %>% 
  summarise(n()) %>% 
  group_by(Sex, Season) %>%
  summarise(n()) %>%
  setNames(c("Competitor_Sex", "Olympic_Season", "Num_Sports"))

我的数据结构是这样的。

 structure(list(Name = c("A Lamusi", "Juhamatti Tapio Aaltonen", 
"Andreea Aanei", "Jamale (Djamel-) Aarrass (Ahrass-)", "Nstor Abad Sanjun", 
"Nstor Abad Sanjun"), Sex = c("M", "M", "F", "M", "M", "M"), 
    Age = c(23L, 28L, 22L, 30L, 23L, 23L), Height = c(170L, 184L, 
    170L, 187L, 167L, 167L), Weight = c(60, 85, 125, 76, 64, 
    64), Team = c("China", "Finland", "Romania", "France", "Spain", 
    "Spain"), NOC = c("CHN", "FIN", "ROU", "FRA", "ESP", "ESP"
    ), Games = c("2012 Summer", "2014 Winter", "2016 Summer", 
    "2012 Summer", "2016 Summer", "2016 Summer"), Year = c(2012L, 
    2014L, 2016L, 2012L, 2016L, 2016L), Season = c("Summer", 
    "Winter", "Summer", "Summer", "Summer", "Summer"), City = c("London", 
    "Sochi", "Rio de Janeiro", "London", "Rio de Janeiro", "Rio de Janeiro"
    ), Sport = c("Judo", "Ice Hockey", "Weightlifting", "Athletics", 
    "Gymnastics", "Gymnastics"), Event = c("Judo Men's Extra-Lightweight", 
    "Ice Hockey Men's Ice Hockey", "Weightlifting Women's Super-Heavyweight", 
    "Athletics Men's 1,500 metres", "Gymnastics Men's Individual All-Around", 
    "Gymnastics Men's Floor Exercise"), Medal = c(NA, "Bronze", 
    NA, NA, NA, NA), BMI = c(20.7612456747405, 25.1063327032136, 
    43.2525951557093, 21.7335354170837, 22.9481157445588, 22.9481157445588
    )), .Names = c("Name", "Sex", "Age", "Height", "Weight", 
"Team", "NOC", "Games", "Year", "Season", "City", "Sport", "Event", 
"Medal", "BMI"), row.names = c(NA, 6L), class = "data.frame")

有谁知道如何将其翻译成 base R？

Answer 1

由于您在 dplyr 中进行了两次分组，因此您可以在 base R 中使用双 aggregate

setNames(aggregate(Name~Sex + Season, 
      aggregate(Name~Sex + Season + Sport, olympics, length), length), 
       c("Competitor_Sex", "Olympic_Season", "Num_Sports"))

#   Competitor_Sex Olympic_Season Num_Sports
#1               F         Summer          1
#2               M         Summer          3
#3               M         Winter          1

这给出了与 dplyr 选项相同的输出

library(dplyr)
olympics %>% 
  group_by(Sex, Season, Sport) %>% 
  summarise(n()) %>% 
  group_by(Sex, Season) %>%
  summarise(n()) %>%
  setNames(c("Competitor_Sex", "Olympic_Season", "Num_Sports"))

#  Competitor_Sex Olympic_Season Num_Sports
#  <chr>          <chr>               <int>
#1 F              Summer                  1
#2 M              Summer                  3
#3 M              Winter                  1