通过列变量绘制图例 - 图例与R中的图不匹配

Question

我正在尝试创建一个图例，其中图例基于点描述，即。情节用（在这种情况下）颜色标记。

这是我的数据框，x：

xnum=c(1,2,3,4)
xdesc=c("yellow","red","blue","yellow")
xnum2=c(1,2,3,4)
x=data.frame(xnum,xnum2,xdesc)

以下是我用来绘制它的代码：

plot(x[,1],x[,2],pch=as.numeric(x[,3]))
legend("topleft",legend=levels(as.factor(unique(x[,3]))),pch=as.numeric(x[,3]),cex=0.8,horiz=T)

但是，从图像中可以看到图例与图表不匹配（第一个和最后一个点应标记为黄色而不是蓝色）。我认为这是基于列变量将图例与图表匹配的正确方法 - 我哪里出错？