R拟合文本在abline上

Question

我想在fx上放置一个文本字符串。 abline（0,0.2）

但是我的for循环中数据的比例正在变化（fx.0,01-1和5-2000），那么如何控制文本的位置以便它总是很好地放在图中的abline上？

（没有循环）：

#example data row 1
x1<-1:10 
y1<-10:1

plot(x1,y1)
abline(0,0.2)
text(?,?,"text",srt=0.2)

Answer 1

这是我的，它应该缩放到图表的斜率和比例：

x1<-1:10 
y1<-10:1

a<-0
b<-0.2
plot(x1,y1)
abline(a,b)
text(mean(x1),(b*max(x1)/2+a),"text",srt=0.2,pos=3)

参数pos=3表示文本应偏移到您指定的点之上，并且图中的x和y参数只是该行的中间x点。 / p>

修改：设置srt=b*45会沿着这条线旋转你的文字，但是对于较小的缩放图，妈妈可能会烦躁不安。

Answer 2

快速（增强颜色）：

x1<-1:10 
y1<-10:1
plot(x1,y1)
a <- 0
b <- .2
abline(a,b, col = "blue")
text(mean(x1), b * max(x1) + a, "text", srt=0.2, col = "blue")