[R-br] Gráficos no R ou Gnu Plot

[Walmes Zeviani]

Eu gosto de dar uma opinião extremista. Não trabalho com geração de
relatórios para empresas. Trabalho apenas gerando gráficos científicos e
mesmo assim, quando vou submeter artigos para revistas nacionais, os
editores pedem no Excel. Acho o fim da picada. Como que vou passar um
gráfico da lattice, por exemplo, com pontos e linhas, intervalos de
confiança, legendas e letras gregas para o Excel (
http://www.leg.ufpr.br/~walmes/ridiculas/f006.png,
http://www.leg.ufpr.br/~walmes/ridiculas/f020.png,
http://www.leg.ufpr.br/~walmes/ridiculas/f005.png)? Não tem lógica. Além do
aplicativo não ter os recursos necessários, com os recursos que tem você
fará um empenho de horas e terá um gráfico de qualidade horrível.

Com relação aos 3D, estou com Benilton. Acho você deve tornar relevante a
informação de um gráfico para chamar a atenção dos ouvintes em uma palestra
(puxe setas, destaque barras, coloque texto dentro, etc). Não é uma
representação de um gráfico de barras em 2D com perspectiva que vai acordar
as pessoas (http://www.bestsoftware4download.com/softwareimages/seskmgsj.gif),
ou texturas de madeira (
http://images.apple.com/euro/iwork/numbers/images/whatis-chart-20090106.jpg),
com um fundo degradê (
http://i.ehow.co.uk/images/a06/9d/hf/use-excel-make-bar-graph-800x800.jpg).
O foco é a informação.

Com relação à edição do gráfico, no que diz respeito a mudança de títulos,
rótulos, cores, etc, você exportar para o InkScape (livre) e a pessoa
editar. É super simples. Veja esses posts do R-bloggers
http://www.r-bloggers.com/?s=Svg+Device. Alguns exemplos

svg("myplot.svg")
hist(rnorm(100), main="Titulo", xlab="Valores de x", ylab="Frequencia
absoluta")
dev.off()

library(RSvgDevice)

ur <- c(3.8, 3.0, 4.1, 5.5, 5.2, 3.6, 5.6,
        7.7, 7.1, 7.5, 5.5, 7.5, 5.4, 4.0, 5.5, 5.8)
mar <- c(4.5, -10.9, 15.5, -0.1, 22.6, 0.7,
         23.2, -2.1, -9.7, 18.2, 7.7, -5.5, 8.5, 0.5,
         2.4, -7.2)
names <- c("Truman 1948", "Stevenson 1952", "Ike 1956",
           "Nixon 1960", "LBJ 1964", "Humphrey 1968", "Nixon 1972",
           "Ford 1976", "Carter 1980", "Reagan 1984", "Bush 1988",
           "Bush 1992", "Clinton 1996", "Gore 2000", "Bush 2004",
           "McCain 2008")

devSVG("allelections.svg", height = 5, width = 6)
par(mfrow = c(1,1))
plot(ur, mar, xlab = "Unemployment",
     ylab = "Margin of Victory",
     main = "All Presidential Elections",
     pch = 19, xlim = c(2,10))
text(ur, mar, names, pos = 4)
abline(lm(mar ~ ur))
dev.off()

O mundo tá cheio de restrições do tipo "tenho que fazer assim porque todo
mundo faz". Só que temos que impor melhorias, não acham?

À disposição.
Walmes.

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes em ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20111025/c0fdad4e/attachment.html>