добавление меток и цветов к различным точкам на графике с помощью R - PullRequest
Новая
       17

добавление меток и цветов к различным точкам на графике с помощью R

0 голосов
/ 24 января 2012

С новым годом всех вас!

Я строю некоторые графики и хотел бы различить некоторые нанесенные линии и точки.Это пример моих данных и графика, который я пытаюсь получить: 

anim <- c(1,2,3,4,5)
var1 <- c(32,36,40,38,39)
var2 <- c(30,31,34,36,38)
surv <- c(0,1,0,1,1)
mydf <- data.frame(anim,var1,var2,surv)
mydf
  anim var1 var2 surv
1    1   32   30    0
2    2   36   31    1
3    3   40   34    0
4    4   38   36    1
5    5   39   38    1

lm.pos1 <- lm(var1~var2,data=mydf)
plot(mydf$var2,mydf$var1,xlab="ave.ear",ylab="rtemp",xlim=c(25,45),ylim=c(25,45))
abline(lm.pos1)
abline(h=37.6,v=0,col="gray10",lty=20)
abline(h=34,v=0,col="gray10",lty=20)

Сначала я хотел бы вставить метку "37,6 ° C" на верхней горизонтальной и непрерывной линии и "34,0° C "на нижней горизонтальной и пунктирной линии.

Во-вторых, я хотел бы покрасить этих людей (круги) в красный цвет, если выживший = 0 (умер), или зеленый, если выживший = 1.

Любая помощь будет очень ценится!

Баз

1 Ответ

2 голосов
/ 24 января 2012 
plot(mydf$var2, mydf$var1, xlab="ave.ear", ylab="rtemp", 
    xlim=c(25,45), ylim=c(25,45), col=c('green', 'red')[surv+1])
abline(lm.pos1)
abline(h=37.6,v=0,col="gray10",lty=20)
text(25,38.1,parse(text='37.6*degree'),col='gray10')
abline(h=34,v=0,col="gray10",lty=20)
text(25,34.5,parse(text='34*degree'),col='gray10')
...