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

如何解决隐藏基 R 图的轴的最小和最大限制的刻度线和刻度标签

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

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,ylim = c(4,6),ylab = "Y")

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

解决方法

有几个选项。首先，您通常希望使用 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,ylim = c(4,6),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))