根据r中另一个df的参考值填充单元格

Question

我想创建一个表，看起来像这样:

<表类> ID 2000 2001 2002 2003 tbody> <<tr> 0 1 0 0 B 1 0 1 0

我们可以用0来填充pivot_wider:

library(dplyr)
library(tidyr)
df1 %>% 
  arrange(Year) %>% 
  mutate(value = 1) %>% 
  pivot_wider(id_cols ="ID", names_from = "Year", values_fill = 0)

这返回

# A tibble: 2 x 4
  ID    `2000` `2001` `2002`
  <chr>  <dbl>  <dbl>  <dbl>
1 B          1      0      1
2 A          0      1      0