Monise Terra Cerezini	

Exercícios da aula 5

#Criando e editando um gráfico

Um gráfico de dispersão entre “dap” e “ht” editando a:

* Legenda em ambos os eixos
* Marcações (ticks) para dentro 
* Com apenas dois eixos (formato L)
* Título do gráfico
* Tamanho de fonte

esaligna=read.table("esaligna.csv", header=T,sep=",")
str(esaligna)
head(esaligna)

plot(esaligna$dap~esaligna$ht,ylab="Dap",xlab="Altura(ht)", main="Gráfico Dap x Altura",cex.lab=1,cex.main=1.5,cex.axis=1,par(tcl=0.5),bty="l")

***********************************************************************************************************************

#Construindo dois gráficos

Dois gráficos lado a lado entre “dap” e “talhao”:

esaligna=read.table("esaligna.csv", header=T,sep=",")
str(esaligna)
head(esaligna)

media=tapply(esaligna$dap,INDEX=esaligna$classe,FUN=mean) 
desvio=tapply(esaligna$dap,INDEX=esaligna$classe,FUN=sd) 
media
desvio

matriz=matrix(c(media,desvio),nrow=4,ncol=2)
matriz

par(mfrow=c(1,2))
boxplot(dap~classe,data=esaligna,ylab="Dap",xlab="Classe", main="Boxplot Dap X Classe")
text(22,"a",cex=1.5)
plot(matriz, ylab="Media dos Talhões", xlab="Variança dos Talhões", main="Plot Var X Talhoes")
text(8,3.5,"b",cex=1.5)
par(mfrow=c(2,1))

************************************************************************************************************************

#Adivinhando o código

ex3=read.table("exercicio3.csv",header=T,sep=",")
ex3
head(ex3)

# Plot x1 e y1

par(mfrow=c(1,2)) 
par(tcl=0.4) 
par(mar=c(6,2,12,1)) 
par(cex.axis=1) 
par(family="serif") 
par(las=1) 
par(mgp=c(2,0.2,0)) 
par(cex.lab=1) 

plot(ex3$y1~ex3$x1,xlab="Log(Patch size)(ha)",ylab="Euclidean distances",xlim=c(0.5,2),ylim=c(0,3),pch=17,cex=1.5,par(tcl=0.5,bty="L"))  
text(2,3,"a",cex=1.8)

model=lm(ex3$y1~ex3$x1) 
abline(model, lwd=2) 

# Boxplot x2 e y2
 
boxplot(x2~y2,data=ex3,ylim=c(0,3.0),names=c("","","","","",""),par(tcl=0.5)) 
mtext(c("Small", "Medium \nEdge", "Medium \nInterior", "Large \nEdge","Large \nInterior", "Control"),side= 1,cex=0.6,line=1,at=c(1,2,3,4,5,6)) 
text(6,3,"b",cex=1.8) 
text(1,3,"*",cex=1.2) 
text(2,3,"*",cex=1.2) 
text(3,3,"**",cex=1.2) 
text(4,3,"*",cex=1.2) 
text(5,3,"***",cex=1.2)