Outra ideia...

df <- data.frame(
     ATO_1=c("ART 121", "ART 33", "ART 121", "ART 155", "ART 28", "ART 121", "ART 15"),
     ATO_2=c("ART 155", "ART 28", "ART 15", "ART 33", "ART 33", "ART 121", "ART 121"),
     ATO_3=c("ART 180", "ART 10", "ART 155", "ART 121", "ART 33", "ART 121","ART 180"))

tab <- sapply(df, table); tab

addmargins(tab)

#         ATO_1 ATO_2 ATO_3 Sum
# ART 121     3     2     1   6
# ART 15      1     1     2   4
# ART 155     1     1     1   3
# ART 28      1     1     2   4
# ART 33      1     2     1   4
# Sum         7     7     7  21

================================================
Éder Comunello
Agronomist (UEM), MSc in Environ. Sciences (UEM)
DSc in Agricultural Systems Engineering (USP/Esalq)
Brazilian Agricultural Research Corporation (Embrapa)
Dourados, MS, Brazil |<O>|
================================================
GEO, -22.2752, -54.8182, 408m
UTC-04:00 / DST: UTC-03:00




Em 26 de maio de 2016 17:31, salah <salah3.1416@gmail.com> escreveu:
Caro

Segue sugestões

library(reshape2)
ATO$id = 1:7 ##acrescenta uma coluna de controle para o melt
##remodelando sua tabela
ATOMelt = melt(ATO, id="id", variable.name="ATO_n", value.name="ART")

##usando dplyr
library(dplyr)
ATOMelt %>% count(ART)

##usando o poderoso data.table
library(data.table)
setDT(ATOMelt) ##converte para data.table
##contando
ATOMelt[, .N, by = .(ART)]

saudações


Em 26/05/2016 16:28, Amiko Bh escreveu:
Pessoal,

Dado o banco:

ATO_1

ATO_2

ATO_3

ART 121

ART 155

ART 180

ART 33

ART 28

ART 10

ART 121

ART 15

ART 155

ART 155

ART 33

ART 121

ART 28

ART 33

ART 33

ART 121

ART 121

ART 121

ART 15

ART 121

ART 180



a) Preciso contar cada elemento em cada variável, para que vislumbre o seguinte resultado:

ATO_1

ART 121 = 3
ART 33 = 1
ART 155= 1
ART 28= 1
ART 15 = 1

e assim com ATO_2 e ATO_3.

b) preciso saber o total de cada elemento em todos as colunas, assim:

ART 121 = 7
ART 33 = 4
ART 155= 3
ART 28= 2
ART 15 = 2
ART 180=2
ART 10=1

Muito obrigado.



_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.


_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.