时间戳

首页 > 解决方案 > 在 R 中添加缺少数据的长格式术语

r - 在 R 中添加缺少数据的长格式术语

问题描述

我正在尝试添加 col1 在 name 变量下出现的次数，而忽略缺失值。它应该是 2 倍，但是当我使用长度和计数函数时，它们总是返回 3。

M = data.frame( Name = c('name','name1','name','name1','name','name1'), Col1 = c(NA,1,3,4,5,NA) , Col2 = c(1,1,NA,5,8,4))

myData <- aggregate(M[,2],
                    by = list(VAR = M$Name), 
                    FUN = function(x) c(mean = mean(x,na.rm=T), sd = sd(x,na.rm=T),n=length(x)))
myData <- do.call(data.frame, myData)

myData
#> x.n
#   3
#I want it to say 2 becuase the number only appears twice this variable. 
#> x.n
#   2

标签： r

解决方案

这是一个tidyverse解决方案

library(tidyverse);
M %>%
    gather(k, v, -Name) %>%
    filter(complete.cases(.) & k == "Col1") %>%
    group_by(Name) %>%
    summarise(mean = mean(v), sd = sd(v), n = n())
## A tibble: 2 x 4
#  Name   mean    sd     n
#  <fct> <dbl> <dbl> <int>
#1 name   4.00  1.41     2
#2 name1  2.50  2.12     2

说明：我们从宽到长重新整形，删除NA条目通过的行，并计算- 分组条目complete.cases所需的汇总统计信息。Name

推荐阅读