如何用数据框中的总和替换向量？

Question

在使用 pivot.wider() 函数后，我有一个 dataframe 有数百列和 30 行。而不是向量/数组，我想用它们的总和替换它们，用 0 替换 NULL 值。我唯一能想到的是遍历整个数据集并使用 sum() 函数，我已经尝试过代码如下。

for (i in 1:ncol(df))
{
  if is.character(df[,i]) == FALSE
  {
    df[,i] <- sum(df[,i])
  }
}

尽管使用了 if 语句，但我仍然收到“无效的‘类型’（字符）参数”错误。我对 R 完全陌生，因此不胜感激！

Answer 1

问题是在使用pivot_wider 时，存在重复元素，如果我们不指定values_fn，它将返回list。一个选项是再次重新运行pivot_wider 并指定values_fn

library(dplyr)
library(tidyr)
mtcars %>% 
     select(gear, mpg, disp) %>% 
     pivot_wider(names_from = gear, values_from = c(mpg, disp), 
           values_fn = list(mpg = ~ sum(., na.rm = TRUE),
                 disp = ~ sum(.,  na.rm = TRUE)))