使用 ggplot 在分组条形图上定位标签

Posted 2023-02-16

【中文标题】使用 ggplot 在分组条形图上定位标签

【英文标题】：Positionning labels on a grouped bar chart with ggplot

【发布时间】：2021-09-26 01:08:25

【问题描述】：

我在为分组条形图定位标签时遇到问题。 下面是一个可重现的示例，在图像上您可以看到我希望放置标签的位置。

并非都在同一行，但每个标签都与 3 个条形图中的每一个对齐，理想情况下，每个标签都位于每个相应条形图的正上方。

知道如何实现这一目标吗？我想保留分组条形图而不是堆叠条形图。

data_F <- "https://raw.githubusercontent.com/max9nc9/Temp/main/temp.csv"
data_F <- read.csv(data_F, sep = ";")
colnames(data_F) <- c("Month_Year", "Type", "Amount")
data_F$Amount <- as.numeric(data_F$Amount)

Final_Graph <-
  ggplot(data_F, aes(x = Month_Year, y = Amount, label = Amount, fill = Type)) +
  geom_bar(position="dodge", stat = "identity") +
  geom_text(size = 3, position = position_stack(vjust = 0.5), color = "black") +
  theme(axis.text.x = element_text(angle = 90)) +
  scale_fill_manual(values = c("#e62200", "#00c41d", "#f7b21e")) +
  theme(plot.title = element_text(hjust = 0.5)) +
  theme(plot.subtitle = element_text(hjust = 0.5))

Final_Graph

【参考方案1】：

当您使用position_dodge 作为条形时，也将它用于标签，我使用width = .9，这是条形的默认值：

data_F <- "https://raw.githubusercontent.com/max9nc9/Temp/main/temp.csv"
data_F <- read.csv(data_F, sep = ";")
colnames(data_F) <- c("Month_Year", "Type", "Amount")
data_F$Amount <- as.numeric(data_F$Amount)

library(ggplot2)

ggplot(data_F, aes(x = Month_Year, y = Amount, label = Amount, fill = Type)) +
  geom_bar(position="dodge", stat = "identity") +
  geom_text(size = 3, position = position_dodge(width = .9), vjust = 0, color = "black") +
  theme(axis.text.x = element_text(angle = 90)) +
  scale_fill_manual(values = c("#e62200", "#00c41d", "#f7b21e")) +
  theme(plot.title = element_text(hjust = 0.5)) +
  theme(plot.subtitle = element_text(hjust = 0.5))

【讨论】：

这正是我想要的，谢谢！