R：跳过离散 x 轴上的标签

问题描述

我正在尝试使用 ggplot2 生成类似于收入直方图的内容。但是，因为我不是要在 y 轴上显示频率，而是从我的 data.frame 中计算出的变量，我想我必须使用 geom_bar() 并将桶分配为我的 {{1 }}。现在我想显示我已经确定了一个桶的所有条形，但不显示 x 轴上的所有标签。我想一定有某种方法可以用 data.frame 中的 breaks = 来做到这一点，但无法弄清楚如何让它只显示“每隔一个标签显示我”或类似的东西。

有人会建议如何根据因子变量在 x 轴上为离散 x 轴显示每隔一个标签吗？

（非常感谢任何人的帮助，抱歉，如果我在这里抛出错误的术语。我是 R 的新手，只是试图尽可能准确地描述一切。）

解决方法

您可以为 breaks 参数提供处理特殊中断规则的函数。在下面的示例中，我们通过回收 c(TRUE,FALSE) 作为子集操作来选择所有奇数中断。

library(ggplot2)

ggplot(mpg,aes(class)) +
  geom_bar() +
  scale_x_discrete(breaks = function(x){x[c(TRUE,FALSE)]})

更多解释：

重复逻辑索引，直到它与它索引的向量的长度相匹配。如果逻辑索引是 c(TRUE,FALSE) 如果会继续重复这个，所以它有效地选择了向量 x 的每个奇数元素，因为长度为 2 的索引是重复的。

x <- 1:9

x[c(TRUE,FALSE)]
#> [1] 1 3 5 7 9

因此，当您创建长度为 3 的索引时，这将重复 3 次。

x[c(TRUE,FALSE,TRUE)]
#> [1] 1 3 4 6 7 9

如果你想复制幕后发生的事情，你可以这样做。

i <- rep_len(c(TRUE,FALSE),length(x))

x[i]
#> [1] 1 3 5 7 9