Legenda fora do gráfico - dúvida do webnário

Oi, pessoal!

Dúvida da Roberta no Webnário, segue código pronto:

Código:

data(iris)
par(xpd=T, mar=c(4, 4, 6, 3))
cores<-c("blue", "red", "green")
plot(iris$Sepal.Length, iris$Petal.Length, col=cores[iris$Species], pch=16)
legend(x=5.5, y=8.7, col=cores, pch=16, legend=levels(iris$Species))

Continuação, com um painel de gráficos:

Código:

data(iris)
par(xpd=T, mar=c(4, 4, 6, 3))
par(mfrow=c(2,2), xpd=T)
cores<-c("blue", "red", "green")
plot(iris$Sepal.Length, iris$Petal.Length, col=cores[iris$Species], pch=16)
plot(iris$Sepal.Width, iris$Petal.Length, col=cores[iris$Species], pch=16)
plot(iris$Sepal.Length, iris$Sepal.Width, col=cores[iris$Species], pch=16)
plot(iris$Petal.Width, iris$Petal.Length, col=cores[iris$Species], pch=16)
legend(x=-1, y=12, col=cores, pch=16, legend=levels(iris$Species))

Foi mencionada a possibilidade de usar o recurso text para incluir A, B, C e D para especificar cada gráfico de uma figura única integrando 4 gráficos.
Pode passar os caminhos de como utilizar essa opção, por favor?

Olá, Roberta, tudo bem?

Vamos lá, uma opção rápida e simples é esta:

Código:

data(iris)
par(xpd=T, mar=c(4, 4, 6, 3))
par(mfrow=c(2,2), xpd=T)
cores<-c("blue", "red", "green")
plot(iris$Sepal.Length, iris$Petal.Length, col=cores[iris$Species], pch=16)
legend("topleft", "A")
plot(iris$Sepal.Width, iris$Petal.Length, col=cores[iris$Species], pch=16)
legend("topleft", "B")
plot(iris$Sepal.Length, iris$Sepal.Width, col=cores[iris$Species], pch=16)
legend("topleft", "C")
plot(iris$Petal.Width, iris$Petal.Length, col=cores[iris$Species], pch=16)
legend("topleft", "D")
legend(x=-1, y=12, col=cores, pch=16, legend=levels(iris$Species))



Aqui eu simplesmente usei a função legend.

Acho que também dá certo com text ou mtext, depois testo e posto aqui.

Abraços!

Agora a mesma coisa, mas usando text:

Código:

data(iris)
par(xpd=T, mar=c(4, 4, 6, 3))
par(mfrow=c(2,2), xpd=T)
cores<-c("blue", "red", "green")
plot(iris$Sepal.Length, iris$Petal.Length, col=cores[iris$Species], pch=16)
text(4.5, 6, "A")
plot(iris$Sepal.Width, iris$Petal.Length, col=cores[iris$Species], pch=16)
text(2.1, 6, "B")
plot(iris$Sepal.Length, iris$Sepal.Width, col=cores[iris$Species], pch=16)
text(4.5, 4, "C")
plot(iris$Petal.Width, iris$Petal.Length, col=cores[iris$Species], pch=16)
text(0.2, 6, "D")
legend(x=-1, y=12, col=cores, pch=16, legend=levels(iris$Species))



Aqui temos uma vantagem: não fica aquela "caixinha" em torno da letra. Aí você pode ajustar as posições usando os valores de x e y. Dá trabalho, mas a vantagem é conseguir a posição exata que você quiser.

Grata pelos esclarecimentos.