r - ggplot2 两侧带有正标签的双向条形图

Question

我尝试在 ggplot 中创建一个双向条形图，其中轴标签和轴上方和下方的数据标签都是正的。例如，如果您的数据是:

myData <- data.frame(category = c("yes", "yes", "no", "no"), month = c('Jan', 'Feb', 'Jan', 'Feb'), values = c(6, 5, 4, 3))

我想要两列，一月份和二月份，其中"is"值出现针杆指向正轴和数据标签，“否”值指向下方，也带有正轴和数据标签。它们之间会有一个“0”值栏。这在 ggplots 中是否可行，如果可以，如何实现？谢谢。

Answer 1

你在寻找这样的东西吗？我们可以将“否”作为负数传递，但让 ggplot 将它们显示为正值。标签也是一样。

myData$values2 <- ifelse(myData$category == "no", -1 * myData$values, myData$values)

library(ggplot2)
ggplot(data = myData) + geom_bar(aes(x=month,y=values2,fill=category),stat="identity",position="identity") +
                        geom_text(aes(x=month,y=values2,label=abs(values2)),vjust = ifelse(myData$values2 >= 0, 0, 1)) +
                        scale_y_continuous(labels=abs)