ggplot - 将刻度与轴对齐答案

【问题标题】：ggplot - Align ticks with axisggplot - 将刻度与轴对齐
【发布时间】：2020-09-04 10:16:57
【问题描述】：

我在这里使用@jan-glx 解释的 ndodge 函数； https://stackoverflow.com/a/60650595/13399047

但是我不知道如何对齐轴刻度对齐，例如；

我可能应该使用 theme(axis.ticks.length=) 但我不确定如何以偶数/奇数方式进行。

请帮忙！

【问题讨论】：

为什么不换行或换行轴文本？喜欢这里：stackoverflow.com/questions/21878974/…
@Peter 因为我的 x 轴上有很多组，它们的角度已经为 90 度，并且使用 ndodge 使所有标签都可读；因此，如果刻度与标签对齐，阅读效果会更好
很公平。我不完全明白你的意思是以什么方式将刻度线与标签对齐？你的意思是在你的问题中包含的情节吗？您是如何在 ...Good 和 ... Premium 上获得更长的刻度的？

标签： r ggplot2 xticks

【解决方案1】：

据我所知，在 ggplot 中没有内置方法可以做到这一点，尽管当他们重写指南系统时这可能会改变。

这既不漂亮也不简单，但这里有一个示例，您可以通过在 gtable / 网格中乱搞来做到这一点。

library(ggplot2)
library(grid)
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))

g <- ggplot(diamonds, aes(cut, carat)) + 
  geom_boxplot() +
  scale_x_discrete(guide = guide_axis(n.dodge = 2))

# Convert to gtable
gt <- ggplotGrob(g)

# Grab bottom axis
is_axis <- grep("axis-b", gt$layout$name)
axisgrob <- gt$grobs[is_axis][[1]]
axis <- axisgrob$children$axis

# Grab tickmarks
is_ticks <- which(vapply(axis$grobs, inherits, logical(1), "polyline"))
ticks <- axis$grobs[[is_ticks]]

# Modify tickmarks
labelheight <- axis$heights[[2]] # First row of labels
modify <- which(seq_along(ticks$y) %% 4 == 0) - 1 # Change every the 3rd item in every quadruplet
ticks$y[modify] <- ticks$y[modify] - labelheight

# Insert ticks back into axis back into table
axis$grobs[[is_ticks]] <- ticks
axisgrob$children$axis <- axis
gt$grobs[[is_axis]] <- axisgrob

# Plot
grid.newpage()
grid.draw(gt)

^{由reprex package (v0.3.0) 于 2020-05-18 创建}

【讨论】：

谢谢！但是我确实遇到了错误； ticks$y[modify]
对，对不起。我的示例是 R4.0.0，其中发生了网格单位的一些变化。对于 R3.6.3，您可以使用 labelheight <- axis$heights[2] 而不是双括号子集。

【解决方案2】：

这是一个只使用 ggplot2 东西而不修改任何 grobs 的解决方案。它需要 ggplot2 3.0.0 并且基于 https://stackoverflow.com/a/51312611/6615512

library(ggplot2)
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))


tick_min_pos_odd = -0.6
tick_min_pos_even = -0.4
custom_ticks = data.frame(cut = sort(unique(diamonds$cut)))
n_discrete_x_values = nrow(custom_ticks)

# Alternate tick lengths
custom_ticks$tick_min_pos = ifelse(1:n_discrete_x_values %% 2 == 0, tick_min_pos_odd, tick_min_pos_even)

ggplot(diamonds, aes(cut, carat)) + 
  geom_boxplot() +
  scale_x_discrete(guide = guide_axis(n.dodge = 2)) +  
  geom_linerange(data = custom_ticks,                        # The custom tickmarks
                 aes(x=cut, ymax=-0.25, ymin=tick_min_pos), 
                 size=0.5, color='black',
                 inherit.aes = F) +
  coord_cartesian(clip='off', ylim=c(0,NA)) +        # Clip off makes it so the geoms can be drawn outside the plot
                                                     # ylim sets the y-axis from 0 to the max.
  theme(plot.margin = margin(0,0,20,0),              # Add some whitespace to the bottom of the plot
        axis.title.x = element_text(vjust=-1.5),     # nudge the x-axis title and text down a tad
        axis.text.x = element_text(vjust=-1.5))

【讨论】：