Ei Eder! Segui sua ideia, porque foi a que mais entendi, mas retorna o seguinte erro:
addmargins(tab)Error in addmargins(tab) : 'A' deve ser um array ou tabela
Aproveito para agradecer a ajuda de todos . Elerson Em 27 de maio de 2016 17:33, Éder Comunello <comunello.eder@gmail.com> escreveu:
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 listR-br@listas.c3sl.ufpr.brhttps://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.
_______________________________________________ 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.