在R中合并一对多数据以用于分类变量

Question

我有2个数据集。一个与事故相关的，另一个与涉及的车辆有关。现在，1事故可能涉及多个车辆。合并这些时，我需要一排事故 - ＆gt;因此，我正在尝试考虑采取同样的策略。对于车辆中的数值变量，我计划采用平均值（例如驾驶员，发动机​​电源等年龄），但是，如何将3-4行分类变量合并为1行？就像假设是否有两名男性和两名女性用于驾驶员的性别，这是我要选择的是基于频率的？

Answer 1

这样的东西？

library(tidyverse)

vehicles <- tribble(
  ~vehicle_id, ~owner, ~age, ~sex,
  1, "A", 18, "male",
  2, "B", 45, "male",
  3, "C", 38, "female"
)

accidents <- tribble(
  ~accident_id, ~vehicle_id,
  1, 1,
  1, 2,
  2, 1,
  3, 3
)

results <-
  accidents %>%
  left_join(vehicles) %>%
  group_by(accident_id) %>%
  summarise(
    vehicle_ids = list(vehicle_id),
    owners = list(owner),
    mean_age = mean(age),
    sexes = list(sex)
  ) %>%
  mutate(
    n_sexes = sexes %>% map(~ .x %>%
      table() %>%
      enframe() %>%
      mutate(value = value %>% as.numeric()))
  ) %>%
  unnest(n_sexes) %>%
  pivot_wider(values_fill = list(value = 0))
#> Joining, by = "vehicle_id"

results
#> # A tibble: 3 × 7
#>   accident_id vehicle_ids owners    mean_age sexes      male female
#>         <dbl> <list>      <list>       <dbl> <list>    <dbl>  <dbl>
#> 1           1 <dbl [2]>   <chr [2]>     31.5 <chr [2]>     2      0
#> 2           2 <dbl [1]>   <chr [1]>     18   <chr [1]>     1      0
#> 3           3 <dbl [1]>   <chr [1]>     38   <chr [1]>     0      1

results$owners[[1]]
#> [1] "A" "B"

^由