R汇总和计数不为null

David Dickson 发表于 Dev

戴维·迪克森

我有以下数据表

PIECE   SAMPLE  QC_CODE
1       1       1
2       1       NA  
3       2       2
4       2       4
5       2       NA
6       3       6
7       3       3
8       3       NA
9       4       6
10      4       NA

我想计算每个样本中的qc_code数量并返回这样的输出

SAMPLE    SAMPLE_SIZE    QC_CODE_COUNT
1         2              1
2         3              2
3         3              2
4         2              1

其中样本大小是每个样本中的件数，而qc_code_count是所有不适用的qc_code的数量。

我将如何在R中进行此操作

阿克伦

你可以试试

library(dplyr)
 df1 %>%
     group_by(SAMPLE) %>% 
     summarise(SAMPLE_SIZE=n(), QC_CODE_UNIT= sum(!is.na(QC_CODE)))

 #   SAMPLE SAMPLE_SIZE QC_CODE_UNIT
 #1      1           2            1
 #2      2           3            2
 #3      3           3            2
 #4      4           2            1

或者

library(data.table)
setDT(df1)[,list(SAMPLE_SIZE=.N, QC_CODE_UNIT=sum(!is.na(QC_CODE))), by=SAMPLE]

或使用aggregate从base R

do.call(data.frame,aggregate(QC_CODE~SAMPLE, df1, na.action=NULL,
  FUN=function(x) c(SAMPLE_SIZE=length(x), QC_CODE_UNIT= sum(!is.na(x)))))

数据

df1 <- structure(list(PIECE = 1:10, SAMPLE = c(1L, 1L, 2L, 2L, 2L, 3L, 
 3L, 3L, 4L, 4L), QC_CODE = c(1L, NA, 2L, 4L, NA, 6L, 3L, NA, 
6L, NA)), .Names = c("PIECE", "SAMPLE", "QC_CODE"), class = "data.frame", 
row.names = c(NA, -10L))

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。