Atividades propostas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Atividades propostas

Mensagem por carol.vizintim em 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 : 2
Data de inscrição : 04/10/2017

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Atividades propostas

Mensagem por Prof. Marcos em 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")
avatar
Prof. Marcos

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

Ver perfil do usuário https://cantinhodor.wordpress.com/

Voltar ao Topo Ir em baixo

Re: Atividades propostas

Mensagem por Prof. Marcos em 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)
avatar
Prof. Marcos

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

Ver perfil do usuário https://cantinhodor.wordpress.com/

Voltar ao Topo Ir em baixo

Re: Atividades propostas

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum