Построение точек с условными обозначениями и добавление к ним цветов

Question

Я пытаюсь построить разброс с двумя условиями одновременно: во-первых, если некоторые наблюдения меньше значения, затем отображают зеленым цветом, во-вторых, если некоторые наблюдения превышают значение, затем изображают красным.

Я хотел бы, чтобы мой скаттер со всеми наблюдениями показывал мне выбранное с цветами, которые я сказал. Вот что я получаю:

Это мой код:

VALCMODEL2R=runif(50,1,100)
VALCMODEL2=runif(50,-30,20)
NUEVO.CONOCIMIENTO.DOCENTES=runif(50,0,0.004)
RMideT=data.frame(VALCMODEL2R,VALCMODEL2,NUEVO.CONOCIMIENTO.DOCENTES)

with(RMideT[(RMideT$VALCMODEL2R > 50) & (RMideT$VALCMODEL2R < 6),], 
plot(RMideT$VALCMODEL2, RMideT$NUEVO.CONOCIMIENTO.DOCENTES,col=2:3))
abline(h = median(RMideT$NUEVO.CONOCIMIENTO.DOCENTES), col="red", lwd=3, 
lty=2)
abline(v = 0, col="blue", lwd=3, lty=2)

Answer 1

на первом шаге я сделал таблицу в качестве примера, но вы должны прочитать ваши данные и сохранить их как data.frame:

VALCMODEL2R=runif(50,1,100)
VALCMODEL2=runif(50,-30,20)
NUEVO.CONOCIMIENTO.DOCENTES=runif(50,0,0.004)
RMideT=data.frame(VALCMODEL2R,VALCMODEL2,NUEVO.CONOCIMIENTO.DOCENTES)

фильтровать данные на основе RMideT$VALCMODEL2R значения

up=RMideT[(RMideT$VALCMODEL2R > 50) ,]#filter group 1 and name it up
down=RMideT[ (RMideT$VALCMODEL2R < 6), ]#filter group 2  and name it down 

группа графиков 1 с красным цветом

plot(up$VALCMODEL2, up$NUEVO.CONOCIMIENTO.DOCENTES,col="red")

добавление группы 2 с зеленым цветом к предыдущему графику

points(down$VALCMODEL2, down$NUEVO.CONOCIMIENTO.DOCENTES,col="green")

добавление абзаца к предыдущему графику

 abline(h = median(RMideT$NUEVO.CONOCIMIENTO.DOCENTES), col="red", lwd=3, 
           lty=2)

abline(v = 0, col="blue", lwd=3, lty=2)