Atividade do Modulo 3

######################################################
Atividade do módulo 3
#Lucilene Brito
#R para Bio da Conservação
######################################################

#Atividade 1:sanhacos.txt"
#Carregando os dados
setwd("D:/1-Pasta R/Modulo 3")
dir()

#conferindo os dados:
dados<-read.table("sanhacos.txt", h=T)
summary(dados)

##Criando uma tabela de contingência
tabela<-table(dados$Sanhaco , dados$ Melastomatacea)
tabela

#Calculando a frequência
tabela.prop<-prop.table(tabela, margin=1)
tabela.prop

##O Gráfico de Barra:

levels(dados$Sanhaco)

cores<-c("Blue1", "green4")

barplot(tabela, beside=T, ylim=c(0, 70), las=1, xlab="Espécies", ylab="Frequências", col=cores)

legend("topleft", legend=levels(dados$Sanhaco), col=cores, pch=16, title="Unidade amostral")

box()

#################################################################################

#Atividade 2: dados_atividade3.txt

#Carregando os dados:
setwd("D:/1-Pasta R/Modulo 3/dados")
dir()

#conferindo os dados:
dados<-read.table("dados_atividade3.txt", h=T)
summary(dados)

##Grafico de dispesão:
plot(dados$Adubo ~ dados$Produtividade, xlab="Adubo", ylab = "Produtividade", las=1, pch=16)

##Gráfico: diferenciando os pontos de acordo com a variável "Cultivo":
levels(dados$Cultivo)
cores<-c("green4", "Black")

plot(dados$Produtividade ~ dados$Adubo, las=1, xlab="Adubo", ylab="Produtividade", col=cores[dados$Cultivo], pch=16)

legend("topleft", legend=levels(dados$Cultivo), col=cores, pch=16, title="Tipo de cultivo")