R - 每列计数

时间:2017-10-10 15:56:33

标签: r count aggregate

如何计算每列的记录数。结果就像 Realizados = 25,Atenção= 3,Regra = 11

structure(list(Realizados = structure(1:25, .Label = c("Alterar Orçamento", 
"Alterar Orçamento Cliente", "Alterar Sinistro", "Alterar Solicitação Manutenção", 
"Alterar Solicitação Veículo", "CheckList", "Cliente", "Contrato Locação", 
"COR", "Fornecedor", "Grupo Cliente", "Incluir Orçamento", "Incluir Sinistro", 
"Incluir Solicitação Manutenção", "Incluir Solicitação Veículo", 
"Modelo", "Multa", "Municipio", "Opcional", "Orçamento", "Serviço Peça", 
"Sinistro", "Solicitação Manutenção", "Solicitação Veículo", 
"Veículos"), class = "factor"), Atenção = structure(c(2L, 3L, 
4L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("", "Categoria", "Faturamento", 
"Nota Fiscal"), class = "factor"), Regra = structure(c(2L, 3L, 
6L, 4L, 5L, 7L, 8L, 9L, 10L, 11L, 12L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("", "Alterar Devolução Veículo", 
"Classificação", "Devolução Veículo", "Editar Veículo Pool", 
"Filial", "Incluir Devolução Veículo", "Infração", "Preventiva Realizada", 
"Preventiva Realizar", "Tipo NF", "Veículo Pool"), class = "factor")), .Names = c("Realizados", 
"Atenção", "Regra"), class = "data.frame", row.names = c(NA, 
-25L))

1 个答案:

答案 0 :(得分:0)

这将计算每列中不等于空字符串''的行数。调用您的数据df

sapply(df, function(x) sum(x != ''))
# Realizados    Atenção      Regra 
#        25          3         11