添加一个不同的颜色点

Question

我试图通过在最大值

处放置一个明显的红色圆圈来使这个矢量的最大值非常明显

myBoston[max(myBoston$crim),]
plot(density(myBoston$crim)) 
points(x = myBoston$crim[max(myBoston$crim)] , y = 0, col = "red")
rug(myBoston$crim)

但是，当我运行代码时，该点不会出现。 我的代码出了什么问题？