ggplot：向每个条添加水平线+重新定位刻度标签

Daniel Gardiner 发表于 Dev

丹尼尔·加德纳（Daniel Gardiner）

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

首先，我希望能够为每个条形添加水平线，以使条形如下所示：

第二，我想更改刻度标签的位置，使其落在每个小节之间，以便标签看起来像这样

到目前为止，我有：

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)

格雷戈尔·托马斯（Gregor Thomas）

漂亮的描述和可复制的示例！

如果您的x轴是一个因子，则以条形居中的轴标签为默认设置。由于您知道binwidth，因此只需使用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)

在此处输入图片说明