4

Olá pessoal eu tenho um gráfico no R e gostaria de fazer a legenda igual ao gráfico. segue abaixo o comando usado e a imagem do gráfico.

control = c(100,100,100,100,100)
dez = c(100,90,0,0,0)
cinco = c(100,100,100,50,0)
dois = c(100,100,100,100,0)
hours = c(0,24,48,60,72)

plot(control~hours,ylim = c(0,120),xlim = c(0,80),type = 'l',col='black',pch = 1,lwd = 2)

points(control~hours,t = 'p',pch = 16,col='green')
points(dez~hours,type = 'l',pch = 16,col='black',lwd = 2)
points(dez~hours,t = 'p',pch = 16,col='blue')
points(cinco~hours,t = 'l',col='black',lwd = 2)
points(cinco~hours,t = 'p',pch = 16,col='red')
points(dois~hours,t = 'l',col='black',lwd =2)
points(dois~hours,t = 'p',pch = 16,col='orange')

legend('bottomleft',legend = c('Control','10 mg/mL','5 mg/mL','2,5 mg/mL'),col = "black",lty = 1,lwd=2 ,pch=16)

E com isso gerou esse gráfico.

Gráfico

O que eu gostaria de fazer é pintar as bolas da legenda de acordo com a cor que está no gráfico. Obrigado.

1

1 Resposta 1

3

Você pode colocar uma legenda em cima da outra com fundo transparente:

legend('bottomleft',
       legend = c('Control','10 mg/mL','5 mg/mL','2,5 mg/mL'),
       col = c("black"), lty = 1, lwd=2, pch = NA)

legend('bottomleft',
       legend = c('Control','10 mg/mL','5 mg/mL','2,5 mg/mL'),
       col = c("green", "blue", "red", "orange"), lty = 0, lwd=2, pch = 16, 
       bg='transparent')

inserir a descrição da imagem aqui

2
  • Obrigado, era isso que desejava. 28/03/2017 às 13:10
  • @JoãoPedroPires por nada! Você pode aceitar a resposta clicando no botão de aceitar à esquerda da pergunta. 28/03/2017 às 18:20

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .