如何在x和y轴上添加两条线以指定某个点？

Question

我正在使用plot函数绘制两组数据。它们在某一点相交。我想用从x轴到该点的虚线表示这一点，并从y轴到该点用虚线表示。这可能与R？

有关

Answer 1

set.seed(1492)

dat1 <- data.frame(x=c(sample(1:100, 100, replace=TRUE), 3),
                   y=c(sample(1:200, 100, replace=TRUE), 4))

dat2 <- data.frame(x=c(sample(1:100, 100, replace=TRUE), 3),
                   y=c(sample(1:200, 100, replace=TRUE), 4))


dat1[dat1$x == dat2$x & dat1$y == dat2$y,]

plot(dat1, col="blue")
points(dat2, col="red", add=TRUE)
abline(h=dat1[dat1$x == dat2$x & dat1$y == dat2$y,]$y, lty=3)

Answer 2

使用abline函数，h和v参数用于水平和垂直值，lty = 3用于虚线。

plot(c(-2,3), c(-1,5), type = "n", xlab = "x", ylab = "y", asp = 1)
abline(h = 3, v = 2, lty = 3)