如何在ggplot2条形图中为标签添加水平闪避？

Question

我正在尝试将标签添加到相当简单的条形图（即geom_bar）中。 position_dodge()内的geom_text()会更正标签的垂直间距，但不会校正水平间距。如何让ggplot2正确地将我的标签分散到酒吧上方？

library(tidyr)
library(grid)
library(ggplot2)

data = read.table('temp.dat', header=T)

data <- gather(data, SOA, RT, X0:X1000)

data$ResponseCondition = as.factor(data$ResponseCondition)
levels(data$SOA) = c(0,250,500,1000)
data$SOA = as.numeric(as.character(data$SOA))

p = ggplot(data, aes(y=RT, x=SOA, fill=ResponseCondition, ymax=RT*1.05))
p = p + geom_bar(stat='identity', position=position_dodge())
p = p + geom_text(aes(label=RT), position=position_dodge())

p = p + scale_x_continuous(breaks=c(0,250,500,1000))

p = p + ylab('Response Time (ms)')
p = p + xlab('Precue Interval (ms)')
p = p + theme_bw()
p = p + scale_fill_grey(start = 0.1, end = .9, name='Response condition')

p = p + theme(
    axis.title.x = element_text(vjust=-0.30, size=10),
    axis.title.y = element_text(vjust=1.50, size=10),
    text = element_text(size=10),
    legend.justification=c(1,1), legend.position=c(1,1),
    plot.margin = unit(rep(.5, 4), 'cm'))

ggsave('temp.png', width=10, height=7.5)

这是条形图：

以下是temp.dat所需的内容，使其成为一个完整的工作示例：

ResponseCondition 0    250  500  1000
               28 1254 1056  901  864
               46 1306 1063  889  772
               64 1171  939  786  682
               82 1205  948  821  731

Answer 1

我认为，他们没有得到适当分散的主要原因是SOA不是一个因子变量，你应该把它作为一个因素。此外，如果您跳过scale_x_continuous，您的代码应该可以工作。这就是我通过微小改动做到的。您可以按照自己喜欢的方式调整垂直距离（vjust）和颜色：

'123'