\documentclass[a4paper, oneside, 10pt]{article}
\usepackage[english]{babel}
\usepackage[unicode]{hyperref}
\usepackage[utf8x]{inputenc}
\usepackage{listings}
\usepackage{graphicx}
\graphicspath{{media/}}
\date{\today}
\title{}
\author{}
\begin{document}


\begin{itemize}
  \item Tutorial
  \item  Exercícios
  \item  Apostila  
  \item  Apostila-Avançado  
\end{itemize}


\section{\texorpdfstring{5b. Gráficos Avançados}{5b Graficos Avanados}}
\label{sec:5b_graficos_avanados}


\\
Existem vários bibliotecas publicadas no repositório do R para auxiliá-los na construção de gráficos\footnote{veja o taskview \url{http://cran.r-project.org/web/views/Graphics.html} }. Esses pacotes usam um dos sistemas de maquinaria básica do R para a construção gráfica, os pacotes: \emph{\textbf{ graphics }} ou \emph{\textbf{grid}}. Por exemplo, os pacotes \emph{lattice} e \emph{ggplot2} usam o sistema \textbf{\emph{grid}}, enquanto o pacote \emph{maps} o sistema \textbf{\emph{graphics}}. Nesse capítulo utilizaremos apenas as funções básicas já instaladas e carregadas por padrão na sessão R, providas pelo sistema \textbf{\emph{graphics}}, em outro capítulos abordaremos o sistema \emph{\textbf{grid}}.
Nesse capítulo utilizaremos um exemplo para ilustrar um procedimento básico para a elaboração de gráficos mais complexos. 

\subsection{\texorpdfstring{Procedimento}{Procedimento}}
\label{sec:procedimento}


A parte mais importante e difícil da elaboração de uma boa representação gráfica está na sua concepção, que precede o procedimento que iremos descrever nesse capítulo. Partiremos da premissa que já foi decidido qual o melhor gráfico e como os elementos que o compõem estarão distribuídos e organizados. Uma boa dica é construir um esquema do gráfico a mão antes de iniciar o código para montá-lo no R.  
No nosso caso, desenhamos, em um guardanapo de papel na mesa de um bar, um esboço do gráfico que iremos construir nesse capítulo. Os dados provem do resultado de uma metanálise que já havíamos explorados usando técnicas que apresentamos no capitulo de Análise Exploratória de Dados.     

\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/03_apostila/grapmeta01}


O gráfico que esboçamos, apesar de aparentemente simples, apresenta desafios na sua construção e será utilizado para apresentar o procedimento padrão que utilizamos para a elaboração de gráficos mais avançado, baseado apenas nas funções básicas do R.  

\subsubsection{\texorpdfstring{Layout}{Layout}}
\label{sec:layout}


A primeira parte na construção do gráfico é definir seu layout. Aprendemos no capítulo introdutório de gráficos que podemos dividir a janela gráfica modificando os parâmetros \emph{mfrow} ou \emph{mfcol} do dispositivo gráfico,  através da função \texttt{par()}. Uma forma mais versátil e flexível de dividir a janela gráfica é utilizar a função \texttt{layout()}.  O primeiro argumento dessa função é uma \emph{matrix} com o número de linhas e colunas correspondente às divisões do dispositivo. Os valores nessa matrix correspondem à ordem que cada área do dispositivo será plotada.
Veja um exemplo dividindo o dispositivo gráfico em nove áreas:\lstset{frame=single}
\begin{lstlisting}

mtplot <- matrix(1:9, ncol=3, nrow=3, byrow=TRUE)
layout(mtplot)
layout.show(9)
\end{lstlisting}



Além disso, é possível controlar a proporção que cada linha e coluna terá no layout final utilizando os argumentos \texttt{widths} e \texttt{heights}.\lstset{frame=single}
\begin{lstlisting}

mtplot <- matrix(1:9, ncol=3, nrow=3, byrow=TRUE)
layout(mtplot, widths=c(0.1, 0.6, 0.4), heights=c(1,4,1))
layout.show(9)
\end{lstlisting}



Note que os valores referentes ao tamanho das colunas ou linhas não necessita somar um, significam apenas a proporção relativa. 

\emph{\textbf{\underline{Exercício}}}
\begin{itemize}
  \item Formate um layout com:

  \begin{itemize}
      \item  seis áreas de plotagem, três colunas e duas linhas
      \item a coluna central é o dobro de  largura das outras duas
      \item a linha inicial e cinco vezes menor que a outra linha
    \end{itemize}
    \end{itemize}


O nosso gráfico tem um layout bem simples. Uma região principal onde vamos fazer o gráfico propriamente dito e uma coluna mais estreita onde vamos colocar a legenda da borda direita (,,life stage" e ,,geographic region") e as linhas associadas.\lstset{frame=single}
\begin{lstlisting}

layout (matrix(c(1,2),ncol=2, nrow=1), width=c(8,2))
layout.show(2)
\end{lstlisting}



\subsubsection{\texorpdfstring{Região Principal}{Regiao Principal}}
\label{sec:regiao_principal}


Antes de plotar algo na primeira área do gráfico, vamos primeira ajustar as bordas usando a função \texttt{par()} e seu argumento \texttt{mar}. Em seguida iniciamos o gráfico sem nenhum valor, apenas definindo as coordenadas do região gráfica. Lembre-se, queremos colocar cada elemento do gráfico separadamente e ter controle total sobre o que será desenhado. Os valores do eixo \emph{x} correspondem ao intervalo dos dados e do eixo \emph{y} foi definido pelo número de elementos que serão desenhados e o espaçamento entre eles. Nesse último caso a escala é arbitrária. Para definir tanto o espaçamento das bordas quanto a escala de \emph{y} utilizamos um processo iterativo de ajuste, plotando o gráfico e reajustando os valores.\lstset{frame=single}
\begin{lstlisting}

par(mar=c(5,4,4,3.5))
plot(x=NULL,y=NULL, xlim=c(-1.5,2.5), ylim=c(0.5,7.5),
          type="n", yaxt="n", xlab="Effect Size (lnOR)", 
          ylab="", main="SURVIVAL")
\end{lstlisting}



Agora vamos colocar as legendas e os eixos do lado direito do gráficos usando a função \texttt{axis()} e as linhas vertical e horizontais utilizando a função \texttt{abline()}:\lstset{frame=single}
\begin{lstlisting}

axis(side=4, at=c(1,2,4,5,7), labels=c("adult (2)", "young (28)",
                  "temperate (28)", "tropical (2)", "overall (30)"),
                  las=2 ) 
abline (v=0, lty=2) 
abline (h=c(3,6))
\end{lstlisting}



Agora vamos colocar os pontos e as barras referentes aos valores médios e intervalo de confiança usando a função \texttt{points()} e  os símbolos \texttt{pch=19} (circulo preenchido) e \texttt{pch=,,\_"} para a barra \footnote{veja o help e o exemplo da função points para os códigos dos símbolos}. Em seguida desenhamos as linhas usando a função \texttt{segments()} que tem como argumento as coordenadas do inicio (\emph{x0} e \emph{y0}) e do final da linha (\emph{x1} e \emph{y1}). Note que poderíamos desenhar isoladamente cada ponto e cada segmento, mas fazemos todos juntos concatenando as coordenadas em vetores em que as posições são equivalentes.\lstset{frame=single}
\begin{lstlisting}

points (x=c(-0.577, 0.87, 0.01, 1.06,0.457), 
               y=c(1,2, 4, 5, 7), pch=19 ) #medias
points (x=c(-1.2, 0.05, 0.05, 1.1, -0.07, 0.5, .946,2.073, 0.025,0.847),
             y=rep(c(1,2, 4, 5, 7),each=2), pch= "|" )
segments(x0=c(-1.2,  0.05, -0.07, .946, 0.025), 
         y0=c(1,2, 4, 5, 7), x1=c( 0.05, 1.1, 0.5,2.073,0.847), 
         y1=c(1,2, 4, 5, 7)) 
\end{lstlisting}



\emph{\textbf{\underline{Desenhando os pontos e barras no gráfico}}}
\raggedleft\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/03_apostila/meta01}

\raggedright\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/03_apostila/meta02}


\subsubsection{\texorpdfstring{Segunda região gráfica}{Segunda regiao grafica}}
\label{sec:segunda_regiao_grafica}


Vamos inciar a segunda região gráfica da mesma maneira que a primeira, ajustando as margens e definindo as coordenadas cartesianas da região que nesse caso são totalmente arbitrárias, mas devem ter correspondência com o eixo \emph{y} da primeira área gráfica. Note os argumentos do \texttt{plot()} nesse caso são necessários para que nada seja desenhado na região, e estamos apenas definindo a escala das coordenadas \emph{x} e \emph{y}.\lstset{frame=single}
\begin{lstlisting}

par (mar=c(5,4,4,2.9)) 
plot(x=NULL,y=NULL, xlim=c(0,2), ylim=c(0.5,7.5),type="n", 
     xaxt="n", yaxt="n",xlab="", ylab="", bty="n") 
\end{lstlisting}


          \begin{itemize}
  \item \texttt{ type} tipo de gráfico, no caso ,,n" significa ,,não plotar valores"   
  \item \texttt{xaxt} e \texttt{yaxt}: tipo de eixo ,,n" significa ,,não desenhar o eixo". 
  \item \texttt{xlim} e \texttt{ylim}: define a escala dos eixos e deve ter os valores iniciais e finais concatenados
  \item \texttt{xlab} e \texttt{ylab}: legendas dos eixos
  \item \texttt{bty}: tipo de caixa ao redor do gráfico  
\end{itemize}


Agora só precisamos colocar os segmentos e as legendas para finalizar o nosso gráfico:\lstset{frame=single}
\begin{lstlisting}

points(x=rep(c(0.5),4), y=c(0.4, 2.6, 3.4, 5.6), pch="-")
segments(x0=c(0.5, 0.5), y0=c(0.4, 3.4), x1=c(0.5,0.5), y1=c(2.6, 5.6))
axis(side=4, at=1.5, labels= "Target life stage", lwd.ticks=0)
axis(side=4, at=4.5, labels= "Geographic region", lwd.ticks=0)
\end{lstlisting}



Pronto, nosso gráfico planejado na mesa do bar e executado no R!

\centering\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/03_apostila/metagraf}


\subsubsection{\texorpdfstring{Salvando o Gráfico}{Salvando o Grafico}}
\label{sec:salvando_o_grafico}


Explicamos os procedimentos gerais para salvar gráfico no capítulo anterior, no tópico Salvando Gráficos. Vamos recordar alguns pontos importantes.
O nosso gráfico foi construído no dispositivo de tela e pode ser salvo na resolução padrão com a função \texttt{savePlot()} que permite salvar em formatos \emph{jpg}, \emph{png}, \emph{tiff} e \emph{bmp}. Veja o help da função para mais informações. 
Para salvar uma cópia com resolução e tamanho definidos pelo usuário é necessário usar o dispositivo de arquivo. O R tem vários dispositivos de arquivos que são abertos com as funções com o nome do formato do arquivo: \texttt{bmp()}, \texttt{jpeg()}, \texttt{png()} e \texttt{tiff()}.

 O procedimento para usar o dispositivo de arquivo é o seguinte:
\begin{itemize}
  \item abra o dispositivo usando a função correspondente, nomeando o arquivo que será construído e definindo os parâmetros de tamanho da imagem e unidade a ser utilizada. Por exemplo: \texttt{width = 480, height = 480, units = ,,px"}
  \item faça o gráfico utilizando o código construído anteriormente no dispositivo de janela. Note que não irá aparecer o gráfico pois ele está sendo montado diretamente no arquivo nomeado
  \item ao finalizar o gráfico, feche o dispositivo gráfico que abriu utilizando a função \texttt{dev.off()}. Nesse momento o arquivo e fechado e gravado no seu diretório de trabalho \texttt{getwd()}. 
\end{itemize}


Veja exemplo abaixo para a construção de um arquivo \emph{png} com fundo transparente: \lstset{frame=single}
\begin{lstlisting}

png(filename = "metaPlot.png",
     width = 900, height = 900, units = "px", pointsize = 12,
      bg = "transparent")
      
      ...# inicio do código do gráfico
      ...
      ...# fim do código do gráfico 
      
dev.off() 
         
 \end{lstlisting}



\end{document}
