ggplot中hjust='inward'导致日本数据标签位置异常的问题求助

原代码生成的图表此前更新正常，但添加日本（JAPAN）数据后，通过hjust='inward'设置的柱形标签位置异常，既未完全处于柱形内部，也未完全在外部，尝试在标签前后加空格无效。

解决方案 #

问题根源在于y轴使用了log10变换，hjust='inward'在对数轴上的位置判断逻辑和线性轴不一致。可以通过根据数值大小动态设置hjust值来解决：当柱形长度较短（数值小）时，将标签放在柱形外部（hjust=0）；当柱形较长时，将标签放在内部（hjust=1）。

修改后的完整代码 #

country <- c("AFGHANISTAN", "ALASKA", "CHINA", "ECUADOR", "HAITI", "INDONESIA", "JAPAN",
     "MOROCCO", "BURMA", "NEPAL", "PAPUA", "PHILIPPINES", "TURKEY")
num <- c(4, 1, 4, 1, 1, 4, 4, 1, 1, 2, 2, 3, 3)
ytd <- c(1508, 1, 154, 15, 4, 5, 241, 2946, 2, 155, 8, 14, 56703)

ytd.ct <- data.frame(country, num, ytd)

ggplot(ytd.ct, aes(x=reorder(country, +ytd), 
                    y=ytd, fill=ytd)) + 
  geom_col() + coord_flip()+
  scale_fill_gradient(low="thistle", high="orchid2", labels = number_format(
scale=0.001, suffix = 'K', big.mark = ',')) + 
  geom_text(aes(
    label=format(ytd, big.mark=',')), 
    size=3.5, vjust=0.4, hjust=ifelse(ytd < 10, 0, 1), color='darkblue') + 
  theme(
    axis.text.x = element_text(angle = 0, size = 10, face = 'plain'),
    axis.text.y = element_text(angle = 0, size = 9.5, face = 'plain'),
    plot.title = element_text(color='black', size= 13.5, 
                          vjust= -1, face= 'bold'),
    plot.subtitle = element_text(color='darkblue', size= 12, 
                             vjust= -1.3, face= 'bold'),
    legend.title=element_text(face='plain',
                          color="navyblue")) +
  scale_y_continuous(trans = 'log10', labels = number_format(big.mark = ','))

关键调整说明 #

• 移除了标签后的多余空格，避免不必要的占位干扰
• 用ifelse(ytd < 10, 0, 1)替代hjust='inward'，根据数值大小精准控制标签位置，短柱标签外显、长柱标签内藏
• 移除了aes中无效的fontface = 'plain'参数，该参数不属于aes映射范畴

内容的提问来源于stack exchange，提问作者pixel9