如何调整X轴标签位置？请求指导将数值标签置于柱状图顶部

没问题，这两个需求都可以通过调整ggplot2的参数轻松实现，我给你修改好代码并详细解释每个部分：

完整修改后的代码 #

Yr <- c("2016","2017","2016","2017","2016","2017")
Type <- c("A","A","B","B","C","C")
Value <- c(73,183,160,476,11,73)
p1Data <- data.frame(Yr,Type,Value)
p1Data$Yr <- as.character(p1Data$Yr)
p1Data <- transform(p1Data, Type = factor(p1Data$Type, levels = c("A","B","C")))
library(ggplot2)

p1 <- ggplot(p1Data,aes(Type,Value,fill=Yr)) +
  geom_bar(stat="identity", position='dodge') +
  theme(axis.title.x=element_blank(),
        # 调整X轴标签位置的参数
        axis.text.x = element_text(vjust=1.5, margin = margin(t = 8))) +
  # 调整数值标签到柱子顶部的参数
  geom_text(aes(label=Value), 
            position=position_dodge(width=0.9), 
            vjust=-0.5)
p1

1. 调整X轴标签位置 #

在theme()里通过axis.text.x参数可以灵活控制X轴标签的位置：

• vjust=1.5：控制垂直方向位置，数值大于1会让标签向下移动（如果想让标签向上移，可以用小于1的数值，比如vjust=0）
• margin = margin(t = 8)：增加标签和X轴之间的间距（t代表top，即标签上方的空白空间，数值越大间距越宽）
  你还可以用hjust参数调整水平对齐：hjust=0左对齐，hjust=1右对齐，hjust=0.5居中（默认）。

2. 将数值标签放在柱状条顶部 #

原代码的geom_text有两个小问题，修改后就能完美实现需求：

• 解决标签重叠：加上position=position_dodge(width=0.9)，和geom_bar的position='dodge'对应，让每个分组的文本和柱子一一对齐（0.9是geom_bar dodge模式的默认宽度，保持一致即可）
• 移到柱子顶部：把vjust=1.5改成vjust=-0.5，vjust负数会让文本向上移动，刚好落在柱子顶部的上方。如果觉得标签和柱子太近/太远，调整vjust的数值就行（比如-0.3更靠近柱子，-1距离更远）。

内容的提问来源于stack exchange，提问作者Let's Yo