R: Suppress Zecken und Etiketten an den Endpunkten der Achse

Question

I haben Code die unten eingefügt Plot

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) 

produzieren würde Ich mag haben weder Zecken noch Etiketten an Position 1 und 5, aber die Achse sollte immer noch gezeichnet werden. Dies ist, was ich suche:

Bei der Verwendung von labels = c("", 2, 3, 4, "") werden Ticks gezeichnet. Bei Verwendung von tick = FALSE bekomme ich keine Achse. Hat jemand dafür eine Lösung?

Answer 1

Sie müssen nur die Linie manuell zeichnen. Mit Hilfe der Funktion line2user in this answer:

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) 

Hinweis, die line2user Funktion gibt nur die Lage der Linien im Benutzerkoordinatensystem. Sie benötigen die xpd = TRUE, um außerhalb der Zeichenregion zu zeichnen.