使用条件绘制点并为其添加颜色

Question

我正在尝试同时绘制具有两个条件的散点图：第一个是如果某些观测值小于某个值，然后绘制绿色，第二个是如果某些观测值大于一个值，然后绘制红色。 / p>

我希望分散所有观察结果，但要用我说的颜色向我展示所选内容。这就是我得到的：

这是我的代码：

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)