Atividades propostas
2 participantes
Página 1 de 1
Atividades propostas
Bom dia,
Gostaria do script das atividades propostas - modulo 3 para comparar ao que fiz.
Alguém poderia enviar por gentileza.
Obrigada
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
Re: Atividades propostas
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")
Re: Atividades propostas
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)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|