[R-br] Inserir valores em gráfico de barras

[Marcus Nunes]

Sergio,

Veja se o código abaixo te ajuda.

Abs,

####

# criacao do conjunto de dados
Dor_antes_Frevo <- rep(c("não", "sim"), c(34, 39))

# criacao da tabela
tabela <- table(Dor_antes_Frevo)
tabela

# salva o grafico numa variavel
grafico <- barplot(tabela, main="Prevalência de dor", ylim=c(0, 40))

# plota o texto levando em conta as propriedades do grafico
text(x=grafico, y=tabela, labels=tabela, pos=3, xpd=NA)

2016-07-28 21:37 GMT-03:00 Sergio Pinto via R-br <r-br em listas.c3sl.ufpr.br>:

> Prezados
>
> Tenho um banco de dados de prevalência de dor em dançarinos de frevo.
> Nele aparece uma variável dicotômica descrita a seguir:
> > Dor_antes_Frevo
>  [1] sim sim não não não sim sim não sim não sim não não sim sim sim sim
> sim não sim
> [21] sim sim sim não sim sim não não sim não não sim não não não não sim
> não sim sim
> [41] não sim sim sim sim sim não não sim sim sim sim não não não sim não
> sim sim sim
> [61] não sim não não sim sim não não sim não não não não
> Levels: não sim
>
> Pretendo construir um gráfico de barras com os valores de sim e de não.
> Gerei uma tabela da seguinte forma:
>
> > taba <-table(frevo$Dor_antes_Frevo)
> > taba
>
> não sim
>  34  39
> Estes são os valores que gostaria de inserir sobre cada barra do gráfico.
> Escrevi este comando:
>
> > barplot(taba, main = "Prevalência de dor", ylim = c(0,40))
>
> O gráfico aparece perfeitamente. porém sem os valores.
> Vi no acervo desta lista um comando que achei que seria adequado para o
> meu caso que foi:
>
> > localdor<- barplot(taba, main = "Prevalência de dor", ylim = c(0,40))
>
> Para criar uma variável..
> > localdor
>      [,1]
> [1,]  0.7
> [2,]  1.9
>
> Aqui já achei esquisito pois acredito que deveria aparecer 34 e 39.
>  Depois escrevi o seguinte comando:
> > text(localdor,barplot(taba, main = "Prevalência de dor", ylim = c(0,40)))
>
> Não consegui. Apareceu 1 e 2 nas barras.
> Talvez minha dúvida seja de iniciante mas peço alguma luz .
> Estou usando o R- studio Version 0.99.902 e o R 3.3.0
>
> Desde já agradeço a atenção
>
> *Sergio Medeiros Pinto*
> Doutorando em  Ciências Médicas UERJ
> Prof. de Educação Física
>
>
>
>
> _______________________________________________
> R-br mailing list
> 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.
>



-- 
Marcus Nunes
http://marcusnunes.me/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160728/8ac8bd36/attachment.html>