r - 水平 ggplot - 如何在条内定位数据标签

Question

我试图将我的数据标签放置在 ggplot 水平条内，因为标签放置在条形末端时会被切断。我尝试了各种不同的方法，例如调整 hjust 位置，但标签在栏下消失，我什至尝试使用 xlim/scale_x_continuous 允许完全查看标签，但到目前为止一直失败。

library(tidyverse)
library(ggplot2)

mydf <- data.frame( Category = c("Approved transactions"),
                    Nov_21=c(11028),
                    Dec_21=c(31455),
                    Jan_22=c(44480))

mydf %>%
  gather(Month, Total, -Category) %>%
  mutate(Month = reorder(Month, row_number())) %>%
  mutate(Category = reorder(Category, row_number())) %>%
  ggplot(aes(Month, Total, fill = Month, group = Category)) +
  geom_text(aes(label=Total), position=position_dodge(width=0.9), hjust= 0.25) +
  geom_bar(stat = "identity", position = "dodge", width=0.5, fill="light blue") +
  coord_flip() +
  labs(x = "", y = "", title = "Approved Counter Transactions", subtitle = "3 Month View", legend=FALSE) +
  theme_bw() +
  theme(panel.grid.major.x = element_blank(),
        panel.border = element_blank(),
        plot.title = element_text(hjust = 0),
        axis.text.x = element_text(size = 10, face = "bold"),
        axis.text.y = element_text(size = 10, face = "bold"),
        legend.position = "none")

Answer 1

或者您可以在条形图中输入计数

示例代码:

mydf %>%
  gather(Month, Total, -Category) %>%
  mutate(Month = reorder(Month, row_number())) %>%
  mutate(Category = reorder(Category, row_number())) %>%
  ggplot(aes(Month, Total, fill = Month, group = Category)) +
  geom_bar(stat = "identity", position = "dodge", width=0.5, fill="light blue") +
  geom_text(aes(label=Total),position = position_dodge(width = .4),hjust=1.3, size = 10)+
  labs(x = "", y = "", title = "Approved Counter Transactions", subtitle = "3 Month View", legend=FALSE) +
  theme_bw() +
  theme(panel.grid.major.x = element_blank(),
        panel.border = element_blank(),
        plot.title = element_text(hjust = 0),
        axis.text.x = element_text(size = 10, face = "bold"),
        axis.text.y = element_text(size = 10, face = "bold"),
        legend.position = "none")

情节: