r - 结合使用 pivot_longer 和 pivot_wider

Question

我有一个在各个列中包含大量 NaN 的数据框。

df <- data.frame(
  Data1 = c(3,2,1,NaN, NaN, NaN),
  Data2  = c(NaN, NaN, NaN, 3,5,3),
  Data3 = c(NaN, NaN, 7,5,1, NaN)
)

我试图通过使用 pivot_longer 来摆脱 NaN 值，filter 在 NaN 上>values 并使用 pivot_wider 将正数重新放回到它们原来的列中，然而，这失败了:

library(tidyr)
df %>%
  pivot_longer(c("Data1","Data2","Data3")) %>%
  filter(!is.na(value)) %>%
  pivot_wider(names_from = name,
              values_from = value)
# A tibble: 1 x 3
  Data1     Data3     Data2    
  <list>    <list>    <list>   
1 <dbl [3]> <dbl [3]> <dbl [3]>
Warning message:
Values are not uniquely identified; output will contain list-cols.
* Use `values_fn = list` to suppress this warning.
* Use `values_fn = length` to identify where the duplicates arise
* Use `values_fn = {summary_fun}` to summarise duplicates 

代码有什么问题，如何实现这个输出？

  Data1 Data2 Data3
      3     3     7
      2     5     5
      1     3     1

Answer 1

这个特殊问题可以使用 purrr 巧妙地解决:

map_dfr(df, na.omit)

  Data1 Data2 Data3
  <dbl> <dbl> <dbl>
1     3     3     7
2     2     5     5
3     1     3     1