如何在R中绘制abline的值？

Question

我用这段代码制作了这个图:

plot(p, cv2,col=rgb(0,100,0,50,maxColorValue=255),pch=16, 
     panel.last=abline(h=67,v=1.89, lty=1,lwd=3))

我的情节看起来像这样:

1.)如何在简单的情节中绘制下划线的值？

2.)我如何缩放我的情节以使两条线都出现在中间？

Answer 1

改变绘图的比例,使线条在中间改变轴即ie

x<-1:10
y<-1:10
plot(x,y)
abline(a=1,b=0,v=1)

changed to:

x<-1:10
y<-1:10
plot(x,y,xlim=c(-30,30))
abline(a=1,b=0,v=1)

通过"值"我假设你的意思是线切割x轴的位置？有点像text？即:

text((0), min(y), "number", pos=2) 

如果你想在x轴上贴标签,那么试试:

abline(a=1,b=0,v=1)
axis(1, at=1,labels=1)

为了防止标签之间的重叠你可以删除零,即:

plot(x,y,xlim=c(-30,30),yaxt="n")
axis(2, at=c(1.77,5,10,15,20,25))

或者在绘图之前扩展边距并从轴进一步添加标签

par(mar = c(6.5, 6.5, 6.5, 6.5))
plot(x,y,xlim=c(-30,30))
abline(a=1,b=0,v=1)
axis(2, at=1.77,labels=1.77,mgp = c(10, 2, 0))