删除绘图轴值

Question

我只是想知道是否有办法在r图中分别去掉x轴或y轴的轴值。

我知道axes = false将摆脱整个轴，但我只想摆脱编号。

Answer 1

删除x轴或y轴上的编号：

plot(1:10, xaxt='n')
plot(1:10, yaxt='n')

如果你想删除标签：

plot(1:10, xaxt='n', ann=FALSE)
plot(1:10, yaxt='n', ann=FALSE)

Answer 2

使用基本图形，执行此操作的标准方法是使用axes = FALSE，然后使用Axis（或轴）创建自己的轴。例如，

x <- 1:20
y <- runif(20)
plot(x, y, axes=FALSE, frame.plot=TRUE)
Axis(side=1, labels=FALSE)
Axis(side=2, labels=FALSE)

晶格等价物是

library(lattice)
xyplot(y ~ x, scales=list(alternating=0))

Answer 3

@Richie Cotton上面有一个很好的答案。我只能补充说这个page提供了一些例子。请尝试以下方法：

x <- 1:20
y <- runif(20)
plot(x,y,xaxt = "n")
axis(side = 1, at = x, labels = FALSE, tck = -0.01)

Answer 4

你也可以在标语内放置标签：

plot(spline(sub$day, sub$counts), type ='l', labels = FALSE)

你会收到警告。我认为这是因为标签实际上是一个参数，它被传递给绘图运行的子程序（轴？）。警告将弹出，因为它不是绘图函数的直接参数。

Answer 5

更改axis_colour以匹配背景，如果要动态修改背景，则需要同时更新axis_colour。 *共享的图片显示了使用模拟数据（）的图/图示例

### Main Plotting Function ###
plotXY <- function(time, value){

    ### Plot Style Settings ###

    ### default bg is white, set it the same as the axis-colour 
    background <- "white"

    ### default col.axis is black, set it the same as the background to match
    axis_colour <- "white"

    plot_title <- "Graph it!"
    xlabel <- "Time"
    ylabel <- "Value"
    label_colour <- "black"
    label_scale <- 2
    axis_scale <- 2
    symbol_scale <- 2
    title_scale <- 2
    subtitle_scale <- 2
    # point style 16 is a black dot
    point <- 16 
    # p - points, l - line, b - both
    plot_type <- "b"

    plot(time, value, main=plot_title, cex=symbol_scale, cex.lab=label_scale, cex.axis=axis_scale, cex.main=title_scale, cex.sub=subtitle_scale, xlab=xlabel, ylab=ylabel, col.lab=label_colour, col.axis=axis_colour, bg=background, pch=point, type=plot_type)
}

plotXY(time, value)