画竖线：abline(v=x0)

添加固定长度线段：segments(x0=, y0=, x1=, y1=, ...)

添加文字标签：text(x=x0, y=y0, label=" ")

例子：(本来要上传图片的，但是老是上传失败QAQ)

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的线段

2.ggplot2绘图：

画横线：geom_hline(yintercept= )

画竖线：geom_vline(xintercept=)

加标注：annotate("text",x=,y=,label="")

例子：用women数据集举例

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")

基础绘图：画横线： abline(h=y0)画竖线：abline(v=x0)添加固定长度线段：segments(x0=, y0=, x1=, y1=, ...)添加文字标签：text(x=x0, y=y0, label=" ")举例：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) 间隔 竖线 ，因为不是顶天立地的，所以不能用边框。我准备用伪元素实现。 只有 3 个 竖线 ，但是有 4 个 li ，这个简单，可以用 :not(:first-child) 选择器来选择。 切换的背景颜色变化，因为想要有从小到大的效果，因此，也不能直接使用背景颜色实现，我也准备用伪元素实现 绘制箭头： arrows(x0, y0, x1 = x0, y1 = y0, length = 0.25, angle = 30, code = 2, col = par("fg"), lty = par("lty"), lwd = par("lwd"), ...) 绘制 线段 ： segments(x0, y0, x1 = x0, y1 = y0, col = par("fg"), lty = par