如何在ggplot2条形图中绘制x轴标签和刻度线之间的条形？

Question

我准备了一个 MWE，希望获得有关如何在 x 轴上不同位置设置刻度和标签以进行分组条形图的帮助。

library(ggplot2)
library(reshape2)

data <- data.frame(name = c("X","Y","Z"), A = c(2,4,6), B = c(1,3,4), C = c(3,4,5))
data <- melt(data, id = 1)

ggplot(data, aes(name,value)) +
  geom_bar(aes(fill = variable), position = "dodge", stat = "identity")

刻度线应出现在组之间，但标签位于分组条形下方的中心（如图所示）。我尝试为

scale_x_discrete

设置用户定义的中断（作为因子），但这只会让我的刻度线和标签完全消失。

非常感谢任何帮助！

Answer 1

一种选择是将离散 x 尺度转换为连续，以方便计算

break

位置：

# numeric version of x values
data$x <- as.integer(as.factor(data$name))

1. x 条形图组之间的刻度线

x_tick <- head(unique(data$x), -1) + 0.5
len <- length(x_tick)

ggplot(data, aes(x = x, y = value, fill = variable)) + 
  geom_col(position = "dodge") +
  scale_x_continuous(breaks = c(sort(unique(data$x)), x_tick),
                     labels = c(sort(unique(data$name)), rep(c(""), len))) +
  theme(axis.ticks.x = element_line(color = c(rep(NA, len + 1), rep("black", len))))

---

2：在柱形图组之前、之间和之后进行 x 刻度

x_tick <- c(0, unique(data$x)) + 0.5
len <- length(x_tick)

ggplot(data, aes(x = x, y = value, fill = variable)) + 
  geom_col(position = "dodge") +
  scale_x_continuous(breaks = c(sort(unique(data$x)), x_tick),
                     labels = c(sort(unique(data$name)), rep(c(""), len))) +
  theme(axis.ticks.x = element_line(color = c(rep(NA, len - 1), rep("black", len))))

不要问我分别出现在2.25和1.75的额外网格线...

Answer 2

这是另一个使用

grid

包的解决方案。

library(grid)

nTicks <- 2
tickersPosition <- unit(rep(1:nTicks /(nTicks+1), each=2), "native")

第

1:nTicks /(nTicks+1)

部分标识将放置刻度线的位置。

p1 <- ggplot(data, aes(name,value)) +
  geom_bar(aes(fill = variable), position = "dodge", stat = "identity") 

要更改刻度线的位置，我们需要创建

gtable

p2 <- ggplot_gtable(ggplot_build(p1))

并找到正确的对象（使用

str

）：

p2$grobs[[7]]$children$axis$grobs[[1]]$x <- tickersPosition

位置重写后，我们就可以运行了

grid::grid.draw(p2)

这将显示警告。这是因为分裂次数不同。

Answer 3

Henrik 的解决方案工作得非常好，直到我使用 coord_flip() 翻转坐标，此时代码在 x（现在是 Y）轴标签以及组之间放置刻度线......任何人都可以解释为什么以及要做什么关于它....

    ggplot(data, aes(x = x, y = value, fill = variable)) + 
    geom_col(position = "dodge") +
    scale_x_continuous(breaks = c(sort(unique(data$x)), x_tick),
                     labels = c(sort(unique(data$name)), rep(c(""), len))) +
    theme(axis.ticks.x = element_line(color = c(rep(NA, len -1), rep("black", 
   len))))+coord_flip()