R：抑制軸端點上的刻度和標簽

Question

我有代碼生成下面的粘貼圖

x <- c(2, 3, 4)
y <- c(2.5, 4.1, 5.5)

plot(x, y, type = "o", xlim = c(1, 5), ylim = c(2, 6), axes = FALSE, bty = "n")
axis(side = 1, at = seq(1, 5, 1))
axis(side = 2, at = seq(2, 6, 1), las = 2)

我不想在位置1和5都沒有刻度線或標簽 ，但仍應繪制軸 。 這是我在尋找的東西：

使用labels = c("", 2, 3, 4, "")將打勾。 當使用tick = FALSE ，我沒有軸。 有人對此有解決方案嗎？

Answer 1

您只需要手動畫線。 在此答案中使用line2user函數：

x <- c(2, 3, 4)
y <- c(2.5, 4.1, 5.5)

plot(x, y, type = "o", xlim = c(1, 5), ylim = c(2, 6), axes = FALSE, bty = "n")
axis(side = 1, at = 2:4)

lines(x = c(1, 5), y = rep(line2user(0, side = 1), 2), xpd = TRUE)
axis(side = 2, at = seq(2, 6, 1), las = 2)

注意， line2user函數僅給出用戶坐標系中線的位置。 您需要xpd = TRUE才能在繪圖區域之外進行繪制。