R语言如何画竖线、横线、添加标签以及画固定长度的线段

m <- plot(1:10,1:10,"l")+
  abline(v=3,lwd=2,lty=2,col="brown")+    #lwd设置线的宽度，lty表示虚线，其后数字表示虚线类型
  abline(h=3,lwd=2,lty=3)
m+text(x=4,y=4,label="*",col="red")+text(x=5,y=4,label="A(4,4)")
m+segments(x0=2,y0=6,x1=8,y1=6)   # y=6,x轴从2-8的线段

f <- ggplot(women,aes(height,weight))+geom_point()
f+geom_vline(xintercept = 64,lty=3,lwd=1,col="blue")+
  geom_hline(yintercept = 123)
f+annotate("text",x=60,y=150,label="*",size=5,col="red")

plot(M[1:20],type="o",pch=20,col="red")
par(new = TRUE)
plot(N[1:20],type="o",pch=17,col="blue")

plot(M[1:20],type="o",pch=20,col="red")
points(N[1:20],pch=17,col="blue")
lines(N,col="Blue",lty=2)

plot(M[1:20],type="o",pch=20,col="red")
lines(N[1:20],pch=17,type="o",col="Blue",lty=2)

dev.new()