##Exercício 1 ##Meu script



Baixar 325,91 Kb.
Página2/2
Encontro30.10.2016
Tamanho325,91 Kb.
1   2
##Exercício 5.3
#Meu script:

codigo <- read.table("exercicio3.csv",header=T,sep=",",dec=".",as.is=T)

str(codigo)

codigo$y2 <- factor(codigo$y2)

#Para salvar o gráfico em um arquivo:

jpeg(filename="grafico5.3.jpg",width=1000,height=500)

par(mfrow=c(1,2))

#Primeiro gráfico:

par(mar=c(c(5.1,4.1,4.1,0),c(5.1,0,4.1,2.1)))

plot(codigo$x1,codigo$y1,pch=17,ylim=c(0.0,3.0),xlim=c(0.5,2.25),ylab="",xlab="Log(Patch +size)(ha)",bty="l",tcl=0.4)

axis(2,at=1.5,labels="Euclidean distances", cex.axis=1.4,line=2,tick=FALSE)

segments(0.5,2.25,2.2,1.0,lwd=2)

text(2.25,3.0,"a",cex=1.5)

#Segundo gráfico:

par(bty="l")

par(tcl=0.4)

boxplot(codigo$x2~codigo$y2,ylim=c(0.0,3.0),outline=FALSE,xaxt="n")

axis(side=1,at=c(1,2,3,4,5,6),labels=c("Small","Medium\nEdge","Medium\nInterior","Large\nE+dge","Large\nInterior","Control"),tick=TRUE,cex.axis=0.8)

text(6.5,3.0,"b",cex=1.5)

mtext(c("*","*","**","*","***"),side=3,at=c(1,2,3,4,5),cex=2.0,line=-2)



#Para terminar do arquivo jpeg:

dev.off()
1   2


©bemvin.org 2016
enviar mensagem

    Página principal