# Sofia Marques Silva

## Exercícios Aula 5

### Exercícios - Editando alguns parâmetros gráficos

#### 1

esaligna<- read.csv("esaligna.csv",sep=",",as.is=TRUE)
head(esaligna)
str(esaligna)

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)")

#### 2

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5)

#### 3 

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5,bty="l")

#### 4

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5,bty="l",main="Título Informativo")

#### 5

par(cex=1.2)
plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5,bty="l",main="Título Informativo")



### Exercícios - Dois Gráficos Juntos

### 1 

par(mfrow=c(1,2))
boxplot(dap~as.factor(talhao),data=esaligna,xlab="Talhao",ylab="DAP",ylim=c(0,25))

esaligna$talhao<-as.factor(esaligna$talhao)
str(esaligna)

barplot(tapply(esaligna$dap,list(esaligna$talhao),mean),xlab="Talhao",ylab="Média DAP",col="White" )
par(new=TRUE)
plot(tapply(esaligna$dap,list(esaligna$talhao),sd),ylim=c(0,14),axes=FALSE,ann=FALSE)
axis(4) #só não consegui nivelar os eixos dos yy's

### 2

par(mfrow=c(1,2))
boxplot(dap~as.factor(talhao),data=esaligna,xlab="Talhao",xline=0.5,ylab="DAP",ylim=c(0,25))
mtext("a)", side=3, line=1,cex=0.7,adj=1) 
mtext("a) Boxplot: DAP em função do talhão.", side=1, line=4,adj=0)

esaligna$talhao<-as.factor(esaligna$talhao)
str(esaligna)

barplot(tapply(esaligna$dap,list(esaligna$talhao),mean),xlab="Talhao",ylab="Média DAP",col="White" )
mtext("b)", side=3, line=1,cex=0.7,adj=1) 
mtext("b) Barplot:Média e desvio padrão(º) de DAP.", side=1, line=4,adj=0)
par(new=TRUE)
plot(tapply(esaligna$dap,list(esaligna$talhao),sd),ylim=c(0,14),axes=FALSE,ann=FALSE)
axis(4) #só não consegui nivelar os eixos dos yy's




### Exercícios - Adivinhando o código


exercicio3<- read.csv("exercicio3.csv",sep=",",dec=".",as.is=TRUE)
class(exercicio3)
str(exercicio3)

# x1= Log Patch sizes (ha)
# y1= Euclidian distances
# x2= Euclidian distances
# y2= Patches

exercicio3$y2<-factor(exercicio3$y2, labels=c("Small","Medium Edge", 
"Medium Interior", "Large Edge", "Large Interior", "Control"))

par(mfrow=c(1,2))

plot(y1~x1,data=exercicio3, xlim=c(0.5,2.2),ylim=c(0.0,3.0), xlab="Log(Patch size)(ha)", ylab="Euclidean distances",
tcl=0.5,bty="l",pch=24,bg="black")
mtext("a", side=3, line=1,adj=1,cex=1.5) 
rlinear<-lm(exercicio3$y1~exercicio3$x1)
abline(rlinear,lwd=2)


boxplot(x2~y2,data=exercicio3,ylim=c(0.0,3.0),outline=FALSE)
text(x=c(1:5),y=3.0,c("*","*","**","*","***"))
mtext("b", side=3, line=1,adj=1,cex=1.5)
# no meu computador a função locator() bloqueava-o. Por isso fiz assim este último comando.




#### FIM ####