[R-br] SOMA DE LINHAS

Quinta Setembro 27 15:55:49 -03 2018

Edson,

Segue uma possível solução. Deixo a conferência dos resultados com você.
Tive que fazer algumas correções na tabela devido a forma como os dados estão armazenados. Evite utilizar pontuação nas palavras (ex: Discordância, prefira Discordancia ) e acredito que o nome das colunas podem ser melhor escolhido para facilitar o entendimento.
Segue um dput da planilha editada que utilizei.
dados <-structure(list(id = 1:30, entrevistado = structure(c(NA, NA,
22L, 20L, 18L, 7L, 10L, 21L, 28L, 6L, 19L, 3L, 9L, 15L, 26L,
13L, 4L, 5L, 16L, 1L, 24L, 27L, 17L, 25L, 11L, 8L, 2L, 12L, 23L,
14L), .Label = c("agenorsantos01 em gmail.com", "andreavieira.am em gmail.com",
"anymargareth em gmail.com", "aruana em acritica.com", "byjuniorbrasil em gmail.com",
"cardoso.orlando em gmail.com", "carlos.bonatelli em redeamazonica.com.br",
"cassiadiaslima.ap em gmail.com", "contato em correiodenoticia.com.br",
"czarwanderley em gmail.com", "daniwalen em gmail.com", "dantegraca em gmail.com",
"elissanpaula em gmail.com", "faber.teixeira em yahoo.com", "geisy.negreiros em redeamazonica.com.br",
"gilvancostarr em gmail.com", "hc.cintia em gmail.com", "hiellevy em gmail.com",
"irineia.barbosa em redeamazonica.com.br ", "luciano.falbo em acritica.com",
"machristina.imprensa em gmail.com", "marioadolfoemtempo em gmail.com",
"rascunhoserascunhos em yahoo.com.br", "ricardoamaral.roraima em gmail.com",
"rodineyjornalista76 em gmail.com", "sergiobartholo em hotmail.com",
"shirleyfolha em hotmail.com", "thiago.cabral em redeamazonica.com.br"
), class = "factor"), v_ist_presr = structure(c(1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Indiferente"), class = "factor"), v_ist_gov_fed = structure(c(1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Discordancia"), class = "factor"), v_ist_gov_est = structure(c(1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Discordancia"), class = "factor"), v_ist_gov_mun = structure(c(1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), v_prev_temvida = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Indiferente"), class = "factor"), v_soc_con_ac = structure(c(1L,
2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 2L,
2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 2L), .Label = c("Concordancia",
"Discordancia"), class = "factor"), v_ores_div_mcom = structure(c(1L,
2L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 2L,
2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 2L), .Label = c("Concordancia",
"Discordancia"), class = "factor"), v_mveic_diss = structure(c(2L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 3L, 1L, 1L, 1L, 1L, 1L, 1L,
2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 2L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), o_ap_auto_impc = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Indiferente"), class = "factor"), o_ap_continuadas = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Indiferente"), class = "factor"), o_ind_fund_meiocom = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Indiferente"), class = "factor"), c_com_prtrab = structure(c(2L,
1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), c_con_atr_site = structure(c(3L,
1L, 1L, 1L, 2L, 2L, 1L, 1L, 3L, 2L, 3L, 1L, 1L, 1L, 1L, 3L, 1L,
1L, 2L, 1L, 3L, 1L, 3L, 1L, 1L, 1L, 2L, 2L, 1L, 2L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), c_be_inf_ist = structure(c(3L,
1L, 1L, 1L, 3L, 1L, 3L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 3L,
1L, 1L, 1L, 3L, 1L, 1L, 3L, 1L, 2L, 1L, 1L, 1L, 1L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), c_mat_edicao = structure(c(3L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 2L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), c_camp_div_meiocomun = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "Concordancia", class = "factor"),
c_gt_imp_enfr = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "Concordancia", class = "factor"),
c_acomp_div = structure(c(2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 3L, 1L, 3L,
1L, 1L, 1L, 1L, 1L, 2L, 2L), .Label = c("Concordancia", "Discordancia",
"Indiferente"), class = "factor"), c_inf_rep_gov_fed = structure(c(3L,
1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 3L, 1L, 2L, 1L, 1L, 2L,
1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 3L, 1L, 2L, 1L, 1L, 1L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), c_inf_rep_gov_est = structure(c(3L,
3L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 3L, 1L, 2L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 1L, 2L, 1L, 2L, 1L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor"), c_inf_rep_gov_mun = structure(c(3L,
2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 3L, 1L, 2L, 1L, 1L, 2L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 3L, 1L, 1L, 1L, 2L, 2L), .Label = c("Concordancia",
"Discordancia", "Indiferente"), class = "factor")), class = "data.frame", row.names = c(NA,
-30L))

head(dados)
#install.packages(tidyr)
library(tidyr)
#Organiza a tabela em formato longo
corrigido <- dados%>% gather('v_ist_presr','v_ist_gov_fed','v_ist_gov_est','v_ist_gov_mun','v_prev_temvida','v_soc_con_ac','v_ores_div_mcom','v_mveic_diss','o_ap_auto_impc','o_ap_continuadas','o_ind_fund_meiocom','c_com_prtrab','c_con_atr_site','c_be_inf_ist','c_mat_edicao','c_camp_div_meiocomun','c_gt_imp_enfr','c_acomp_div','c_inf_rep_gov_fed','c_inf_rep_gov_est','c_inf_rep_gov_mun',key= "Perguntas",value="Respostas")
#Transforma o tipo dos dados para fator
corrigido <-transform(corrigido,entrevistado=factor(entrevistado),Perguntas=factor(Perguntas),Respostas=factor(Respostas))
#install.packages("dplyr")
library(dplyr)
#Tabela final agrupada por Perguntas e Resposta
tabela_final <- as.data.frame(corrigido%>%group_by(Perguntas,Respostas)%>% summarize(n=n()))
tabela_final

On Sep 27 2018, at 11:37 am, Edson Lira <edinhoestat em yahoo.com.br> wrote:
>
> Fernando Souza, abaixo o link de um banco para vc avaliar.
>
> https://www.datafilehost.com/d/e570a703
>
> [ ]'s
> Prof. Edson Lira, Me
> Estatístico
> Manaus-Amazonas
>
>
>
>
> Em quarta-feira, 26 de setembro de 2018 16:54:42 AMT, Fernando Souza <nandodesouza em gmail.com> escreveu:
>
>
> Mande um CMR porque montar uma tabela baseada em sua descrição ou criar soluções de cabeça é isso. Bom mínimo de um dput dos dados ou parte representativa deles, copie e cole aqui
> Em qua, 26 de set de 2018 12:52, Edson Lira via R-br <r-br em listas.c3sl.ufpr.br (mailto:r-br em listas.c3sl.ufpr.br)> escreveu:
> > Bom dia a todos! Tenho um banco aonde da coluna 19 a coluna 29 tenho respostas do tipo: Concordância, Indiferente e Discordância, com um banco de 29 linhas.
> >
> > O meu objetivo é somar por linha (por cada indivíduo, a quantidade e o percentual de Concordância), ou seja acrescentar mais duas colunas por indivíduo.
> >
> > Abaixo as respostas de um indivíduo (uma linha).
> >
> >
> > Concordância Concordância Concordância Concordância Concordância Concordância Concordância Discordância Concordância Concordância Concordância Discordância Indiferente
> > Indiferente Indiferente Concordância Concordância Discordância Indiferente Indiferente Indiferente
> >
> >
> >
> >
> >
> > [ ]'s
> > Prof. Edson Lira, Me
> > Estatístico
> > Manaus-Amazonas
> >
> >
> >
> >
> > _______________________________________________
> > R-br mailing list
> > R-br em listas.c3sl.ufpr.br (mailto:R-br em 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.
>
>
>
>
>
>
>
>
>

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20180927/4182f351/attachment.html>