如何使用boxplot（）将刻度线标签移离轴

Question

以下是一个用于演示的玩具示例：

boxplot(1:90 ~ c({1:90} %% 3),names=c("A","B\nB","C\nC\nC"))

如果进行绘图，您将看到我查询的动机。我想将组的刻度标记标签移离轴。而且，由于我自己的原因，我不想“不打印任何内容”并使用axes（）函数...相反，我想知道如何通过将参数传递给boxplot（）调用的子例程来做到这一点。我的理解是，这应该可行，但是到目前为止，我已经证明没有成功。

例如，对于我的目的，此处介绍的解决方案太过优雅：
R, Change distance between axis tick marks and tick mark labels

¿有人知道该怎么做吗？

Answer 1

函数boxplot()在检查了输入参数的语法后将调用“ bxp”函数。在这里，您可以看到传递给它的参数：

if (plot) {
    if (is.null(pars$boxfill) && is.null(args$boxfill)) 
        pars$boxfill <- col
    do.call("bxp", c(list(z, notch = notch, width = width, 
        varwidth = varwidth, log = log, border = border, 
        pars = pars, outline = outline, horizontal = horizontal, 
        add = add, at = at), args[namedargs]))
    invisible(z)
} 

函数bxp依次调用函数“轴”，并且仅查看“ xaxt”，“ yaxt”，“ xaxp”，             用于绘制轴的“ yaxp”，“ las”，“ cex.axis”，“ col.axis”参数：

if (axes) {
    ax.pars <- pars[names(pars) %in% c("xaxt", "yaxt", "xaxp", 
        "yaxp", "las", "cex.axis", "col.axis", "format")]
    if (is.null(show.names)) 
        show.names <- n > 1
    if (show.names) 
        do.call("axis", c(list(side = 1 + horizontal, at = at, 
            labels = z$names), ax.pars))
    do.call("Axis", c(list(x = z$stats, side = 2 - horizontal), 
        ax.pars))
}

从上面可以看到，没有参数可以更改可以传递到boxplot的X标签的偏移量。

默认情况下，使用ggplot以所需的方式显示标签：

df <- data.frame( x= as.factor(c({1:90} %% 3)), y = 1:90 )
ggplot(df,aes(x=x, y=y) ) + 
  geom_boxplot()+ 
  scale_x_discrete(labels=c("A","B\nB","C\nCC\nCCC"))