r 计算时间的组合

Question

这更难编码，更难解释。如果我的解释令人困惑，我深表歉意，我会尝试以这种方式解释数据。

我有一个包含 3 列的数据集

ID        Vaccine        Time
 1         A              Winter
 1         B              Spring
 
 2         A              Spring
 2         B              Winter
 2         B              Fall
 
 3         C              Fall
 3         A              Fall
 3         B              Fall

 4         A              Winter
 4         A              Spring

 5         A              Winter

如您所见，有

这里有 5 名患者和
每个人都可以接种 A、B、C 三种疫苗中的任何一种或全部。
有 3 个季节：冬季、Spring、秋季。
疫苗A
- 共有5位患者服用疫苗A
- 4位患者（患者1、患者2、患者3、患者5）只接种了一次疫苗
  
  冬天
  - 患者 1
  - 患者 5
  Spring
  - 患者 2
  秋天
  - 患者 3
- 1名患者（患者4）在冬季接种了两次疫苗，spring

Vaccine      Winter.Only     Spring.Only       Fall.Only     Winter.Spring     Winter.Fall    Spring.Fall
A            2               1                 1             1

疫苗B
- 共有3位患者服用了疫苗B
- 2 名患者只接种了一次疫苗（患者 1、患者 3）
  
  Spring
  - 患者 1
  秋天
  - 患者 3
- 1名患者（患者2）在冬季和秋季接种了两次疫苗

Vaccine      Winter.Only     Spring.Only       Fall.Only     Winter.Spring     Winter.Fall    Spring.Fall
B                            1                 1                               1

疫苗C
- 共有1位病人服用疫苗C
- 1 名患者只接种了一次疫苗（患者 3）
  
  秋天
  - 患者 3

Vaccine      Winter.Only     Spring.Only       Fall.Only     Winter.Spring     Winter.Fall    Spring.Fall
C                                              1

最终的数据集应该是这样的

Vaccine      Winter.Only     Spring.Only       Fall.Only     Winter.Spring     Winter.Fall    Spring.Fall
A            2               1                 1             1 
B                            1                 1                               1 
C                                              1

主要是我试图为每种疫苗（行）创建一个数据集，有多少患者只接种了一种疫苗以及何时（冬季，Spring，秋季）以及有多少患者接种了两种或三种疫苗相同类型且当 (Winter.Spring or Winter.Fall or Spring. Fall or Winter.Spring.Fall)

非常感谢任何有关如何执行此操作的想法或建议。

Answer 1

library(dplyr); library(tidyr)
df %>% 
  arrange(Time) %>%
  group_by(ID, Vaccine) %>%
  summarize(Times = paste(Time, collapse = "_and_"), .groups = "drop") %>%
  count(Vaccine, Times) %>%
  pivot_wider(names_from = Times, values_from = n)

结果

# A tibble: 3 x 6
  Vaccine  Fall Spring Spring_and_Winter Winter Fall_and_Winter
  <chr>   <int>  <int>             <int>  <int>           <int>
1 A           1      1                 1      2              NA
2 B           1      1                NA     NA               1
3 C           1     NA                NA     NA              NA

r 计算时间的组合

r counting the combination of time

r

dplyr

datatable

aggregate

reshape