R语言对字符列执行pivot_wider出现大量NA值怎么解决？

你当前代码中生成的id列是全局唯一的行号（取值1到252），pivot_wider执行宽转换时会将行标识列的所有唯一值作为输出的独立行，而每个id仅对应col的其中一个取值，因此最终输出保留了全部252行，其余列自动填充NA。

你需要将id改为col分组内的同位置序号，让a/b/c/d四组中相同位置的元素共享同一个id：

library(stringi)
library(tidyverse)

stri_rand_strings(252, 5, '[a-z]') %>%
  sort() %>%
  as_tibble() %>%
  mutate(
    id = rep(1:(length(value)/4), times = 4),
    col = rep(letters[1:4], each = length(value) / 4)
  ) %>%
  pivot_wider(names_from = col, values_from = value)

运行上述代码后将得到63行×5列的tibble，列分别为id、a、b、c、d，无NA值。

内容的提问来源于stack exchange，提问作者mk9y