Uma forma de resolver este problema utilizando o R
básico é através da função apply
. utilizando o conjunto de dados fornecido pelo Tomás, temos o seguinte:
txt <- "USUARIO jan fev mar abr mai jun jul ago set out nov dez
1160 0 1 1 1 1 1 1 1 1 1 1 1
2505 1 1 1 1 1 0 1 0 1 1 1 0
3042 1 1 1 0 0 0 1 1 1 1 1 0
3554 1 1 0 1 1 1 1 0 1 1 1 0 "
dados <- read.table(text = txt, header = TRUE)
A função apply
tem três argumentos:
O conjunto de dados que vamos analisar em formato de array (pode ser data frame ou matriz, por exemplo)
Um valor igual a 1 ou 2. 1 indica que vamos aplicar uma função nas linhas da array, enquanto 2 indica que vamos aplicar uma função nas suas colunas
A função que vamos aplicar.
Para o teu problema, apply
pode ser aplicado da seguinte maneira:
apply(dados, 2, sum)[-1]
# jan fev mar abr mai jun jul ago set out nov dez
# 3 4 3 3 3 2 4 2 4 4 4 1
Eu utilizei o data frame dados
, com a função sum
aplicada em suas colunas (2
). Como ele possui uma coluna usuário, é possível retirá-la ao final utilizando [-1]
, que informa para o R
retirar a primeira posição do vetor resultante da aplicação de apply
.