隐藏基本 R 图的轴的最小和最大限制的刻度线和刻度标签

Question

假设我使用以下代码行制作条形图和散点图：

x <- c(1, 2, 3)
xlabs <- c("A", "B", "C")
y <- c(4, 5, 6)

barplot(x,
        xlab = "X",
        names.arg = xlabs,
        ylim = c(0, 3),
        ylab = "Y")

plot(x, y,
        xlim = c(1, 3),
        xlab = "X",
        ylim = c(4, 6),
        ylab = "Y")

如何隐藏轴刻度线和刻度标签仅用于最小和最大限制？这是我打算完成的：

Answer 1

有几个选项。首先，您通常希望使用 xaxt='n' 或 yaxt='n' 删除默认轴标签。接下来，您可以在 axis() 中手动指定刻度线的位置，或者使用 pretty() 函数删除第一个和最后一个值（在示例中使用 head 和 tail）获得一些不错的刻度线位置。它可能需要一些手动微调。

x <- c(1, 2, 3)
xlabs <- c("A", "B", "C")
y <- c(4, 5, 6)

barplot(x,
        xlab = "X",
        names.arg = xlabs,
        ylim = c(0, 3),
        ylab = "Y",
        yaxt='n' # drops the y axis and tick marks
        )
# draw a vertical line that will cover the whole vertical axis, if desired
abline(v=par('usr')[1],lwd=2)
# pretty will give nice tickmark locations, and head and tail drop first and last
# add the 0 to x vector because barplot starts at 0
axis(side=2,tail(pretty(c(0,x)),-1)) 

plot(x, y,
     xlim = c(1, 3),
     xlab = "X",
     ylim = c(4, 6),
     ylab = "Y",
     xaxt='n', # no default x axis with ticks
     yaxt='n' # no default y axis with ticks
     )
# add tickmark and axis locations manually for each axis
# using the pretty function for where the tick marks normally would be, then head and tail to drop first and last
axis(side=1,tail(head(pretty(c(x)),-1),-1)) 
axis(side=2,tail(head(pretty(c(y)),-1),-1))

隐藏基本 R 图的轴的最小和最大限制的刻度线和刻度标签

Hiding tick marks and tick labels of minimum and maximum limits of axes for base R plots

r

plot

axis-labels