如何保持带有长标签的ggplot的大小

2024-02-06

我有一个图，它是每种事件类型的数量的简单条形图。我需要将情节的标签放在情节下方，因为某些事件的名称很长并且会横向挤压情节。我尝试将标签移动到图下方，但现在当有很多事件类型时，它会被向上挤压。有没有办法拥有静态绘图大小（即条形图），以便长图例不会挤压绘图？

My code:

ggplot(counts_df, aes(x = Var2, y = value, fill - Var1)+
    geom_bar(stat = "identity") +
    theme(legend.position = "bottom") +
    theme(legen.direction = "vertical") +
    theme(axis.text.x = element_text(angle = -90)

结果：

我认为这是因为图像大小必须是静态的，因此绘图会因轴而牺牲。当我在情节下面放置一个图例时，也会发生同样的事情。

有多种方法可以避免标签过度绘制或挤压绘图区域或提高总体可读性。哪种解决方案最合适将取决于标签的长度和条形的数量以及许多其他因素。所以，你可能不得不玩一玩。

虚拟数据

不幸的是，OP 没有包含可重现的示例，因此我们必须编写自己的数据：

V1 <- c("Long label", "Longer label", "An even longer label",
        "A very, very long label", "An extremely long label",
        "Long, longer, longest label of all possible labels", 
        "Another label", "Short", "Not so short label")
df <- data.frame(V1, V2 = nchar(V1))
yaxis_label <- "A rather long axis label of character counts"

“标准”条形图

x 轴上的标签垂直打印，相互重叠：

library(ggplot2)  # version 2.2.0+
p <- ggplot(df, aes(V1, V2)) + geom_col() + xlab(NULL) +
  ylab(yaxis_label) 
p

请注意，最近添加的geom_col()代替geom_bar(stat="identity")正在使用中。

OP的方法：旋转标签

x 轴上的标签旋转 90°，挤压绘图区域：

p + theme(axis.text.x = element_text(angle = 90))

水平条形图

所有标签（包括 y 轴标签）均垂直打印，提高了可读性，但仍然挤压绘图区域（但由于图表采用横向格式，因此挤压程度较小）：

p + coord_flip()

带标签的垂直条形图

标签垂直打印，避免过度绘图，减少绘图区域的挤压。你可能需要尝试一下width参数为stringr::str_wrap.

q <- p + aes(stringr::str_wrap(V1, 15), V2) + xlab(NULL) +
  ylab(yaxis_label)
q

带标签的水平条形图

我最喜欢的方法：所有标签均竖直打印，提高可读性，减少了地块面积的挤压。同样，您可能需要尝试一下width参数为stringr::str_wrap控制标签分割成的行数。

q + coord_flip()

附录：使用缩写标签`scale_x_discrete()`

为了完整起见，应该提到的是ggplot2能够缩写标签。在这种情况下，我发现结果令人失望。

p + scale_x_discrete(labels = abbreviate)

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

r

ggplot2