在 R 中向散点图添加一条线

Question

我有两个光栅图像的散点图。 我需要的是围绕散点图创建一个三角形。 到目前为止我所拥有的

minveg <- quantile(veg, 0.01, na.rm=TRUE)
mintemp <- quantile(temps, 0.01, na.rm=TRUE)
plot(veg, temps, xlab='veg', ylab='temp')
abline(h=mintemp, v=minveg)

这给了我以下图像

我需要的是沿着散点图的第三条线，并用其他两条线完成三角形。 我确信我可以添加一个方程式，只需查看它并符合我的最佳想法，但我必须为数百张图像执行此操作，并且正在寻找一种更自动化的方法来执行此操作。 任何建议都是有帮助的。 谢谢！

Answer 1

您可以为此使用分位数回归。

 library(quantreg)

 # example data
 set.seed(0)
 x = rnorm(1000)
 y = rnorm(1000) - x


 minx <- quantile(x, 0.01, na.rm=TRUE)
 miny <- quantile(y, 0.01, na.rm=TRUE)
 plot(x,y, xlim=c(-6,6), ylim=c(-6,6))
 abline(h=minx, v=miny, col='red') 
 abline(rq(y ~ x, tau=.99), col='blue')