#### EXERCÍCIOS 5 - ANA CAROLINA PAVAN #####

#### Editando alguns parâmetros gráficos ####
esaligna <- read.table("esaligna.csv", header=TRUE, sep=",", dec=".")
str(esaligna)
#1
plot(dap~ht, data=esaligna, xlab="DAP(cm)", ylab="Altura(m)")
#2
plot(dap~ht, data=esaligna, tcl=0.3, xlab="DAP(cm)", ylab="Altura(m)")
#3
plot(dap~ht, data=esaligna, tcl=0.3, bty="l",xlab="DAP(cm)", ylab="Altura(m)")
#4
plot(dap~ht, data=esaligna, tcl=0.3, bty="l", xlab="DAP(cm)", ylab="Altura(m)", main="DAP x Ht")
#5
plot(dap~ht, data=esaligna, tcl=0.3, bty="l", cex=2, xlab="DAP(cm)", ylab="Altura(m)", main="DAP x Ht")

#### Dois gráficos juntos ####
esaligna<-read.table("esaligna.csv", header=TRUE, sep=",", dec=".")
str(esaligna)
esaligna1 = esaligna[,3:4]
str(esaligna1)
as.factor(esaligna1$talhao)
media.dap <- aggregate(esaligna[4],by=esaligna[3],FUN=mean)
desvio.dap <- aggregate(esaligna[4],by=esaligna[3],FUN=sd)
media.dap$desvio<-desvio.dap$dap
media.dap
str(media.dap)
as.factor(media.dap$talhao)
esaligna_medias<- as.matrix(media.dap)
class(esaligna_medias)
par(mfrow=c(1,2))
boxplot(dap~talhao, data=esaligna1,ylab="DAP(cm)", xlab="Talhão")
barplot(esaligna_medias] #### não consegui fazer o segundo!!

#### Adivinhando o código ####
tabela<- read.table("exercicio3.csv", header=TRUE, sep=",")
tabela
par(mfrow=c(1,2),bty="l", tcl="0.3")
plot(y1~x1,data=tabela, xlim=c(0.5,2.2),ylim=c(0.0,3.0), xlab="Log(Patch size)(ha)",ylab="Euclidean distances",pch=17)
abline(lm(tabela$y1~tabela$x1),lwd=2)
mtext("a", side=3, line=1,cex=2, adj=1,family="serif")
boxplot(x2~y2,data=tabela,ylim=c(0.0,3.0),names=c("Small","Medium Edge","Medium Interior","Large Edge","Large Interior","Control"),cex.axis=1,las=2,outline=FALSE)
### não consegui deixar todas as classes do eixo x legíveis, então preferi posicioná-los perpendicularmente ao eixo
par(new=TRUE)
text(x=c(1:5),y=3.0,c("*","*","**","*","***"),cex=1.5)
mtext("b", side=3, line=1,cex=2, adj=1,family="serif")

#### FIM! ####