Erro em comando plot

Bom dia

Não sei o que fiz de errado, no ultimo comando, queria fazer 2 gráficos separados por tipo de cultivo ("filtrar"), mas o resultado é um gráfico com apenas 2 pontos.


Segue abaixo o código utilizado


dados2 <- read.table("dados_atividade3.txt", h=T)
list(dados2)
summary(dados2)

plot(dados2)

levels(dados2$UA)
cores=c("green4", "red4")

plot(dados2$Adubo ~ dados2$Produtividade, xlab="Adubo", ylab = "Produtividade", las=1, pch=16, col=cores[dados2$Cultivo])
legend("topleft", pch=16, col=cores, legend=c("Comum","Agroflorestal"))

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

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