Erro no Gráfico com a função par

Boa Noite Marcos,
estava rodando o script da aula 3.4. Gráficos de dispersão e consegui rodar todos os gráficos, exceto quando uso a função par para colocar um gráfico em cima do outro. Aparece a mensagem: Error in plot.new() : figure margins too large
O estranho é que consigo rodar com um gráfico ao lado do outro (usando par(mfrow=c(1,2)), mas não com um acima do outro par(mfrow=c(2,1)).
Não achei nenhuma explicação para isso. Vc poderia me ajudar?

meu script é:

par(mfrow=c(2,1))
plot(dados$Riqueza[dados$Ambiente=="primario"] ~ dados$Area[dados$Ambiente=="primario"], xlab="Área do Fragmento", ylab = "N de espécies", las = 1, pch=16, main="Mata Primária")
plot(dados$Riqueza[dados$Ambiente=="secundario"] ~ dados$Area[dados$Ambiente=="secundario"], xlab="Área do Fragmento", ylab = "N de espécies", las = 1, pch=16, main="Mata Secundária")

Obrigado

Oi, Frederico!

Este é um probleminha recorrente quando usamos o RStudio, e está associado com o tamanho da janela de gráficos - basta você aumentar um pouco o espaço que ela ocupa na tela, e o problema deve se resolver.

Veja o mesmo problema que você relatou aqui:


E veja como é resolvido ajustando o tamanho da janela/aba:


Depois diga se resolveu, ok?

Boa Tarde Marcos,
funcionou sim. Ao aumentar o tamanho da janela de gráficos não apareceu mais o erro.
Muito obrigado
abraço

Fred

Boa tarde!

Aconteceu o mesmo comigo, mas aumentei a janela e consegui.

Porém, nessa mesma linha, no gráfico de dispersão da tarefa 2 do módulo 3, não consegui colocar os gráficos um ao lado do outro na função par(mfrow=c(1,2)). Fiz o primeiro gráfico e depois o segundo, mas apareceu separado. Então, fiz o comando dev.off(), mas continua separado.

par(mfrow=c(1,2))
plot(dados$Produtividade[dados$Cultivo=="Agroflorestal"] ~ dados$Adubo[dados$Cultivo=="Agroflorestal"], ylim=c(10,25), xlab="Adubo utilizado", ylab="Produtividade do solo", las=1, pch=16, main="Cultivo na Agrofloresta")
par(mfrow=c(1,2))
plot(dados$Produtividade[dados$Cultivo=="Comum"] ~ dados$Adubo[dados$Cultivo=="Comum"], ylim=c(10,25), xlab="Adubo utilizado", ylab="Produtividade do solo", las=1, pch=16, main="Cultivo comum")

Obrigada.

Oi achei o erro!
Estava repetido o comando par!

Obrigada!