在 R 基础 plot 和 GGPlot2 中的 x 轴和 y 轴上显示相应的虚线

Question

I need to show corresponding dash line of the data points on x-axis and y-axis, and the corresponding (x,y) coordinates near the respective data points on the graph. I need to do this in base R plot and GGPlot2 respectively.

Does anyone know how to do it?

Answer 1

It sounds like you're looking for something like this:

dat <- data.frame(x=1:10, y=1:10)

Base R:

plot(dat$x, dat$y, axes=F, xlab="", ylab="", type="n")
segments(x0 = dat$x, x1 = dat$x, y0 = 0, y1 = dat$y, lty = 2)
segments(x0 = 0, x1 = dat$x, y0 = dat$y, y1 = dat$y, lty = 2)
text(paste0(dat$x, ", ", dat$y), x=dat$x+0.2, y=dat$y+0.2)

ggplot2:

library(ggplot2)
ggplot(data = dat) +
  geom_segment(aes(x=x, xend=x, y=0, yend=y), lty=2) +
  geom_segment(aes(x=0, xend=x, y=y, yend=y), lty=2) +
  geom_text(aes(x=x, y=y, label=paste0(x, ", ", y)), nudge_x = 0.1, nudge_y = 0.1) +
  theme_void()