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