在 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')

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

Adding a line to a scatter plot in R

r

raster

scatter-plot