##5.1 Editando alguns parâmetros gráficos
(esaligna<-read.table(file="esaligna.csv",sep=",",header=TRUE,as.is=T))
##Crie um gráfico de dispersão entre “dap” e “ht” com: 
#1. Legendas dos eixos com nomes das variáveis e suas unidades
#2. Marcações do eixos (ticks) para dentro da área do gráfico 
#3. Apenas dois eixos (formato “L”)
#4. Título informativo
#5. Tamanho das fontes maiores que o padrão
par(cex=1.5)
plot(esaligna$dap,esaligna$ht,xlab="dap(cm)",ylab="ht(m)",tcl=0.3,bty="L",main="Dispersão esaligna DAP/ht")

##5.2 Dois gráficos juntos
#1. Use as variáveis “dap” e “talhao” para construir dois gráficos, colocando-os lado a lado. O primeiro deve ser um gráfico de desenho de caixa (boxplot) da variável “dap” em função do fator “talhão”. O segundo deve ter apenas a média e uma barra de desvio-padrão do dap, para cada talhão.
#2. Insira também uma letra para dizer qual é o gráfico “a” e qual é o “b” (tanto faz, quem é um e quem é outro).
(media<-tapply(X=esaligna$dap, INDEX=esaligna$talhao, FUN=mean))
(desvio<-tapply(X=esaligna$dap, INDEX=esaligna$talhao, FUN=sd))
(m.med_sd<- matrix(c(media, desvio),6,2,))
par(mfrow=c(1,2))
boxplot(esaligna$dap~esaligna$talhao)
mtext("a")
plot(m.med_sd[,1], xlab="talhão", ylab="dap",ylim=c(0,30), xlim=c(1,6))
segments(x0=c(1:6) ,y0=media-desvio, x1=c(1:6), y1=media+desvio)
mtext("b")

##Leia os dados deste arquivo e usando as variáveis “x1” e “y1” e “x2” e “y2” tente reproduzir esta figura
(dadosxy<-read.table(file="exercicio3.txt",sep=",",header=TRUE,as.is=T))
par(mfrow=c(1,2),tcl=0.3,bty="L",mar=c(4,4,1,1))
plot(dadosxy$x1,dadosxy$y1,pch=17,cex=1.5,cex.lab=1.5,xlab="Log(Patch size(ha)",ylab="Euclidean distances",ylim = c(0, 3),xlim = c(0.5, 2.3))
abline(lm(dadosxy$y1~dadosxy$x1),lwd=2.5)
text(2.3,3,"a",cex=1.5)
dadosxy$categoria <- factor(dadosxy$y2, labels = c("Small", "Medium\nEdge", "Medium\nInterior","Large\nEdge","Large\nInterior", "Control"))
boxplot(dadosxy$x2~dadosxy$categoria,ylim=c(0,3))
text(6,3,"b",cex=1.5)
text(1,3,"*",cex=2.5)	
text(2,3,"*",cex=2.5)
text(3,3,"**",cex=2.5)
text(4,3,"*",cex=2.5)
text(5,3,"***",cex=2.5)