r - 如何更改ggplot条形图中的原点线位置？

Question

假设我正在测量 10 种性格特征并且我知道人口基线。我想为个别应试者创建一个图表，向他们展示他们在每个特征上的个人百分位排名。因此，数字从 1(百分位数)到 99(百分位数)。鉴于 50 是完美的平均值，我希望图表显示从 50 作为原点线向左或向右移动的条形图。在 ggplot 的条形图中，原点线似乎默认为 0。有没有办法将原点线更改为 50？

这是一些假数据和默认图表:

df <- data.frame(
  names = LETTERS[1:10],
  factor = round(rnorm(10, mean = 50, sd = 20), 1)
)

library(ggplot2)

ggplot(data = df, aes(x=names, y=factor)) +
  geom_bar(stat="identity") +
  coord_flip()

Answer 1

根据@nongkrong 的评论，这里有一些代码可以执行我认为您想要的操作，同时重新标记刻度以匹配原始范围并重新标记轴以避免显示数学:

library(ggplot2)
ggplot(data = df, aes(x=names, y=factor - 50)) +
  geom_bar(stat="identity") +
  scale_y_continuous(breaks=seq(-50,50,10), labels=seq(0,100,10)) + ylab("Percentile") +
  coord_flip()