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.

Script Gráfico Aula ANOVA

3 participantes

Ir para baixo

Script Gráfico Aula ANOVA Empty Script Gráfico Aula ANOVA

Mensagem por vanessavk Dom Jul 07, 2019 9:28 pm

Oi prof. Marcos,
Eu adorei o gráfico que você mostrou nos slides da aula de anova.
Tentei fazer algo parecido com vários comandos que você já ensinou.
Até funcionou.... mas ficou muito feio!
Teria como:
- Deixar os conjuntos de dados mais próximos um dos outros? (eu acho que eles estão afastados porque no gráfico original o eixo x está dividido a cada 0,5 e eu não consegui mudar isso...)
- Tentei começar o y no 1, mas não funcionou pq acho que ele está pulando de 2 em 2 e eu tb não consegui mudar isso.
- Por fim, eu queria que as bordas do gráfico ficassem no formato de L, mas também não funcionou No
- E se não for pedir muito... eu queria aprender a deixar cada conjunto de dados com uma cor diferente  Laughing

#Script:
Peso <- c(1,2,3,4,3,4,5,6,8,9,10,11)
Dieta <- c("A","A","A","A","B","B","B","B","C","C","C","C")
dados<- data.frame(Dieta, Peso)
dados

# 1) Criando gráfico sem eixos
plot.default(dados$Dieta, dados$Peso, bty="l", las=1, ylab="Pesos (g)", xlab="Dieta", pch=16, ylim=range(c(1:12)), axes=FALSE)

# 2) Colocando o eixo Y
axis(2)

# 3) Colocando o eixo X
axis(1, 1:3, c("A", "B", "C"))

# 4) Fechando a caixa
box(bty="l")

vanessavk

Mensagens : 27
Data de inscrição : 20/05/2019

Ir para o topo Ir para baixo

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

Mensagem por vanessavk Dom Jul 07, 2019 9:33 pm

Ah!
As cores eu já consegui olhando o script do post de gráfico do Carlos Augusto

cores <-c("blue", "green", "orange")
plot.default(dados$Dieta, dados$Peso, bty="l", las=1, ylab="Pesos (g)", xlab="Dieta", pch=16, ylim=range(c(1:12)), col=cores[dados$Dieta], axes=FALSE)

vanessavk

Mensagens : 27
Data de inscrição : 20/05/2019

Ir para o topo Ir para baixo

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

Mensagem por Prof. Marcos Sex Jul 19, 2019 4:20 pm

Oi, Vanessa!

A parte do eixo y, de começar no 1 e "andar" de 1 em 1, é fácil, basta usar o argumento yaxp, veja aqui como fica o seu exemplo com ele:

Código:
#Script:
Peso <- c(1,2,3,4,3,4,5,6,8,9,10,11)
Dieta <- c("A","A","A","A","B","B","B","B","C","C","C","C")
dados<- data.frame(Dieta, Peso)
dados

# 1) Criando gráfico sem eixos
plot.default(dados$Dieta, dados$Peso, bty="l", las=1, ylab="Pesos (g)", xlab="Dieta", pch=16, ylim=range(c(1:12)), axes=FALSE)

# 2) Colocando o eixo Y
axis(2, yaxp=c(1, 12, 11))

# 3) Colocando o eixo X
axis(1, 1:3, c("A", "B", "C"))

# 4) Fechando a caixa
box(bty="l")
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

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

Mensagem por Prof. Marcos Sex Jul 19, 2019 4:22 pm

Agora, em relação ao x, você quer diminuir os espaços entre A, B e C, é isso? Vou tentar descobrir como, mas temos que ter em mente que como temos três classes, o R ajusta o tamanho do gráfico da melhor forma possível, e em pare isto é consequência deste ajuste.

Agora, pode ser que se colocarmos o A um pouco mais distante do começo e C um pouco mais distante do fim possa funcionar, vou tentar e posto aqui se der certo!
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

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

Mensagem por Prof. Marcos Sex Jul 19, 2019 4:28 pm

Acho que resolvi! Veja se é isto que você quer:

Código:
#Script:
Peso <- c(1,2,3,4,3,4,5,6,8,9,10,11)
Dieta<-c(rep(1.2, 4), rep(1.5, 4), rep(1.8, 4))
Dieta<-as.factor(Dieta)

dados<- data.frame(Dieta, Peso)
dados

# 1) Criando gráfico sem eixos
cores <-c("blue", "green", "orange")
plot.default(dados$Dieta, dados$Peso, bty="l", las=1, ylab="Pesos (g)", xlab="Dieta", pch=16, ylim=range(c(1:12)), col=cores[dados$Dieta], axes=FALSE, xlim=c(0,4))

# 2) Colocando o eixo Y
axis(2, yaxp=c(1, 12, 11))

# 3) Colocando o eixo X
axis(1, 1:3, c("A", "B", "C"))

# 4) Fechando a caixa
box(bty="l")
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

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

Mensagem por vanessavk Sáb Ago 10, 2019 4:00 pm

Perfeito!
Obrigada!

vanessavk

Mensagens : 27
Data de inscrição : 20/05/2019

Ir para o topo Ir para baixo

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

Mensagem por Fabricio Sex Dez 06, 2019 12:18 pm

boa tarde,
entrei no fórum, acessando um site de busca na rede, pois estou iniciando os estudos em R.
preciso de ajuda para rodar um dic em fatorial duplo.
alguma sugestão de script?

Fabricio

Mensagens : 1
Data de inscrição : 06/12/2019

Ir para o topo Ir para baixo

Script Gráfico Aula ANOVA Empty Re: Script Gráfico Aula ANOVA

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