ridiculas - Wiki do LEG

Não foi possível enviar o arquivo. Será algum problema com as permissões?

Você está aqui: start » ridiculas

Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

--- ridiculas [2011/05/31 22:52]
walmes [Análise de dados de proporção usando modelo lineares generalizados]
+++ ridiculas [2011/06/01 17:18]
walmes
@@ Linha 5: / Linha 5: @@
 **//Ridículas//** é a página do LEG dedicada à fornecer //dicas curtas// sobre R, e.g. condução de análises, operação com dados e confecção de gráficos. As dicas estão organizadas pelo título, seguido de descrição, palavras-chave e CMR (código mínimo reproduzível). Se você deseja contribuir com a nossa página de Ridículas, envie e-mail para ''walmes@ufpr.br''.
+----
+==== Gráficos do R exportados pelo dispositivo ti//k//z ====
+Temporariamente sem descrição.\\
+palavras-chave: #tikz, #sweave, #latex.
+<code>
+\documentclass{article}
+\usepackage{Sweave}
+\usepackage{tikz}
+\SweaveOpts{keep.source=true}
+\title{Usando ti\textit{k}z no Sweave}
+\author{Walmes Zeviani\\ LEG/UFPR}
+\begin{document}
+\maketitle
+C\'{o}digo m\'{i}nimo reproduz\'{i}vel usando \texttt{tikzDevice} para exportar gr\'{a}ficos feitos no R
+para codifica\c{c}\~{a}o ti\textit{k}z.
+{\footnotesize
+<<results=hide>>=
+#------------------------------------------------------------------------------------------
+require(tikzDevice)
+set.seed(2011); x <- rnorm(200)
+tikz("plot.tex", w=5, h=3)
+hist(x, freq=FALSE, ylab="Densidade",
+     main="Histograma de uma amostra de $X \\sim N(\\mu=0, \\sigma^2=1)$")
+curve(dnorm(x), col=2, add=TRUE, lwd=2); rug(x)
+legend("topleft", col=2, lty=1, lwd=2, bty="n",
+       legend="$\\displaystyle \\frac{1}{\\sqrt{2\\pi\\sigma^2}}\\cdot e^{-\\frac{(x-\\mu)^2}{2\\sigma^2}}$")
+box(); dev.off()
+#------------------------------------------------------------------------------------------
+@
+}
+\input{plot.tex}
+\end{document}
+</code>
+----
+==== Gráfico com dois eixos coordenados ====
+Temporariamente sem descrição.\\
+palavras-chave: #série, #eixo.
+<code R>
+#------------------------------------------------------------------------------------------
+#                                                               por Ivan, Benilton e Walmes
+#------------------------------------------------------------------------------------------
+# dados de séries de dados indexadas no tempo (meses)
+lines <- 'meses  temp umidade    rad   chuva
+    Jan    26.49   86.58    795.88  0.36
+    Fev    26.65   88.49    710.24  0.34
+    Mar    27.19   86.16    772.99  0.21
+    Abr    26.28   89.75    574.88  0.67
+    Mai    26.62   89.22    614.02  0.31
+    Jun    26.13   87.83    680.08  0.26
+    Jul    25.83   86.57    675.97  0.15
+    Ago    27.05   83.14    756.44  0.07
+    Set    27.60   83.02    925.57  0.14
+    Out    27.44   85.16    927.71  0.17
+    Nov    26.56   88.18    788.87  0.19
+    Dez    25.87   90.63    703.94  0.33'
+da <- read.table(textConnection(lines), header=TRUE)
+str(da)
+#------------------------------------------------------------------------------------------
+# gráfico de duas séries no mesmo gráfico com um eixo coordenado para cada
+par(mar=c(5,5,4,5))
+plot(da$temp, type="b", pch=15, lwd=1.5,
+     xlab="Meses (Anos 2010)", main="Temperatura e umidade em 2010",
+     ylab=expression(Temperatura~group("(", degree*C, ")")),
+     ylim=c(24,30), xlim=c(1,12), axes=FALSE)
+axis(1, at=1:12, labels=da$meses)
+axis(2)
+par(new=TRUE)
+plot(da$umidade, type="b", pch=14, axes=FALSE, frame=TRUE, ann=FALSE)
+axis(4)
+mtext(text="Umidade (%)", 4, line=3)
+legend("topleft", bty="n", seg.len=3, lty=1, lwd=c(1.5,1), pch=c(15,14),
+       legend=c("Temperatura","Umidade"), merge=TRUE, trace=FALSE)
+#------------------------------------------------------------------------------------------
+# funções sugeridas
+apropos("month")
+demo(plotmath)
+#------------------------------------------------------------------------------------------
+</code>
 ----

Diferenças

Navegação

Busca

Ferramentas

QR Code