R 根据固定值范围在tible中添加新行

发布于04月22日

我想在固定值范围(年份:2006-2010)之间 for each ID(1，2，3)添加新行，同时保留先前存在的数据(大小列).这是一个例子:

tibble::tribble(
  ~Year, ~ID, ~Size,
  2006,   1,  5,
  2007,   1,  8,
  2009,  2,  6,
  2010,   2,  4, 
  2007,   3,  1,
  2009, 3, 2
)

我想要的是这样的东西:

tibble::tribble(
  ~Year, ~ID, ~Size,
  2006,   1,  5,
  2007,   1,  8,
  **2008, 1, NA,
  2009, 1, NA,
  2010, 1, NA,
  2006, 2, NA,
  2007, 2, NA,
  2008, 2, NA,**
  2009,  2,  6,
  2010,   2,  4, 
  **2006, 3, NA,**
  2007,   3,  1,
  **2008, 3, NA,**
  2009, 3, 2,
 ** 2010, 3, NA**
)

我try 了循环和add_rows，但没有成功.

推荐答案

由于您使用的是tribble，我假设您对tidyverse解决方案感到满意:

df2 <- df1 |> complete(Year = min(Year):max(Year), ID) |> arrange(ID, Year)
df2

给予:

# A tibble: 15 × 3
    Year    ID  Size
   <dbl> <dbl> <dbl>
 1  2006     1     5
 2  2007     1     8
 3  2008     1    NA
 4  2009     1    NA
 5  2010     1    NA
 6  2006     2    NA
 7  2007     2    NA
 8  2008     2    NA
 9  2009     2     6
10  2010     2     4
11  2006     3    NA
12  2007     3     1
13  2008     3    NA
14  2009     3     2
15  2010     3    NA