r - ggplot : Adding horizontal lines to each bar + repositioning tick labels

Question

在使用 ggplot 时，我在格式化的两个方面遇到了一些困难。

首先，我希望能够为每个条形添加水平线，以便条形看起来像这样:

_{(来源:eurosurveillance.org)}

第二，我想更改刻度标签的位置，使它们落在每个条形之间，使标签看起来像这样

我目前拥有的:

values=runif(50,0,20)
sex=rep(c("Male","Female"),25)

df=data.frame(values,sex)

label=c("","0-5","5-10","10-15","15-20")
sep=seq(0,20,5)

ggplot(df, aes(x = values,fill=sex))+geom_bar(binwidth=5,colour="black")+
scale_x_discrete(breaks=sep,labels=label,limits=sep)

Answer 1

很好的描述和可重现的例子!

如果您的 x 轴是一个因素，则以条为中心的轴标签是默认值。由于您知道您的 binwidths，只需使用 cut 为您进行分箱:

df$cutval <- cut(values, breaks = seq(0, 20, by = 5))
ggplot(df, aes(x = cutval, fill = sex)) +
    geom_bar(colour = "black", width = 1)

要获得与示例中完全相同的标签，您可以进行一些正则表达式编辑:

library(stringr)
# delete open parens and closing brackets
levels(df$cutval) <- str_replace_all(levels(df$cutval), "\\(|\\]", "")
# replace comma with tilde
levels(df$cutval) <- str_replace_all(levels(df$cutval), "\\,", "~")

屈服

> levels(df$cutval)
[1] "0~5"   "5~10"  "10~15" "15~20"

要获取框(所有那些水平线)，您可以使用分组变量(我们需要先重新排序)。不能说我喜欢它的外观，但它就是这样:

df <- df[order(df$cutval, df$sex), ]
df$id <- 1:nrow(df)
ggplot(df, aes(x = cutval, fill=sex, group = id)) +
    geom_bar(colour = "black", width = 1)