R pivot_wider错误："时间"不能丢失。缺少位置 1

Question

我收到错误

错误：不能缺少times。缺少位置1。此外：警告消息：在nrow*ncol:由整数溢出产生的NA中

调用时：

data_indicator <- data_pivoted %>% select(ID, var) %>%
mutate(val = TRUE) %>% 
pivot_wider(id_col=ID, names_from = var, values_from = val, values_fill = FALSE)

data_pivoted为8292624 obs.共3个变量

summary(data_pivoted)
ID             var                 val         
Min.   :     1   Length:8292624     Min.   :  -743   
1st Qu.: 98342   Class :character   1st Qu.:     6   
Median :197353   Mode  :character   Median :    10   
Mean   :196777                      Mean   :    58   
3rd Qu.:295272                      3rd Qu.:    18   
Max.   :392696                      Max.   :330318   
NA's   :8000821  

有什么建议吗？

> dput(head(data_pivoted))
structure(list(ID = c(1L, 1L, 1L, 1L, 1L, 1L), var = c("239", 
"200", "229", "100", "101", "102"), val = c(5, NA, NA, NA, NA, 
NA)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"
))

Answer 1

我得到了同样的错误。我使用的数据集非常大，所以我在map_df函数中使用了split和pivot_wider。

使用示例

data_pivoted %>% 
select(ID, var) %>%
mutate(val = TRUE) %>%
split(.$ID) %>%
map_df(~ pivot_wider(.x,
names_from = var,
values_from =  val,
values_fill = FALSE))