Programa R para Biologia da Conservação
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Atividades propostas

2 participantes

Ir para baixo

Atividades propostas Empty Atividades propostas

Mensagem por carol.vizintim Sex Nov 03, 2017 10:10 am

Bom dia,

Gostaria do script das atividades propostas - modulo 3 para comparar ao que fiz.
Alguém poderia enviar por gentileza.

Obrigada

carol.vizintim

Mensagens : 3
Data de inscrição : 04/10/2017

Ir para o topo Ir para baixo

Atividades propostas Empty Re: Atividades propostas

Mensagem por Prof. Marcos Qui Nov 09, 2017 9:14 pm

Aqui a resposta para a primeira parte:

Código:
##Solução das atividades do módulo 3
#Prof Marcos Vital

#Não se esqueça de determinar sua pasta de trabalho

#Carregando dados, primeira parte da atividade:

sanhaços<-read.table("sanhaços.txt", h=T)
summary(sanhaços)

tabela.s<-table(sanhaços$Sanhaço, sanhaços$Melastomatacea)
tabela.s2<-table(sanhaços$Melastomatacea, sanhaços$Sanhaço)

barplot(tabela.s, beside=T, las=1, xlab="Melastomatacea")
barplot(tabela.s2, beside=T, las=1, xlab="Sanhaços")


#Decidi ficar com a primeira opção

cores<-c("black", "gray")

barplot(tabela.s, beside=T, las=1, xlab="Melastomatacea",
ylab="Número de observações", col=cores)

legend("topright", legend=row.names(tabela.s),
col=cores, pch=15, title="Sanhaços")
Prof. Marcos
Prof. Marcos

Mensagens : 678
Data de inscrição : 23/12/2015
Idade : 42
Localização : Maceió, AL

https://cantinhodor.wordpress.com/

Ir para o topo Ir para baixo

Atividades propostas Empty Re: Atividades propostas

Mensagem por Prof. Marcos Qui Nov 09, 2017 9:20 pm

Solução da segunda parte:

Código:
dados<-read.table("dados_atividade3.txt", h=T)

summary(dados)

#Gráfico versão 1:
plot(dados$Produtividade~dados$Adubo, las=1, pch=16,
xlab="Quantidade de adubo", ylab="Produtividade")


#Gráfico versão 2:

levels(dados$Cultivo)
cores<-c("green4", "red4")

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

legend("topleft", legend=levels(dados$Cultivo), pch=16, col=cores)
Prof. Marcos
Prof. Marcos

Mensagens : 678
Data de inscrição : 23/12/2015
Idade : 42
Localização : Maceió, AL

https://cantinhodor.wordpress.com/

Ir para o topo Ir para baixo

Atividades propostas Empty Re: Atividades propostas

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos