在 ggplot geom_bar 中以不同颜色绘制零点

Question

在 ggplot (geom_bar) 中，我希望以不同的颜色绘制零值。

条形图本身的代码：

ggplot(Rodeococha, aes(x=Age ,y=Quantity)) + 
geom_bar(color="dark red", stat = "identity")

并使用在不同页面上找到的为特定值着色的说明，我尝试将我的值切割成间隔并构造：

 ggplot(data= Rodeococha, aes(x= Age ,y= Quantity)) + 
 geom_bar(aes(colour = cut(qsec, c(-Inf,0,Inf))), stat = "identity") +
  scale_colour_manual(name = "qsec", values = c("(-Inf,0]" = "black",
                                                 "(0,Inf]" = "red"))

Atm 它给出了错误

Error in cut(qsec, c(-Inf, 0, Inf)) : object 'qsec' not found.

在这个错误之前，它还给出了一些其他错误，所以与其花更多的时间来解决这个错误，我想为什么不征求意见，也许有其他人有更好的主意。

编辑：@Tjebo 的回答有效。

为了向其他人说明：该图实际上是一个具有 7 个 x 轴的堆叠图，每个 x 轴包含多个条形图。这段代码只是第一个 x 轴。用不同颜色显示零点是为了让解释更容易。

Answer 1

您的代码不可重现，因此我使用了另一个数据集。首先，条形图在这里可能不合适。用条形图很难显示 'zeros'。我正在增加行的大小以显示效果，你会看到这有一个非常不希望的副作用。

对于您的问题，只需使用条件语句作为审美。见下文

如果这不是您想要的，请提供更好的示例数据和所需的输出。

library(ggplot2)
ggplot(mtcars, aes(x= cyl,y= vs)) + 
  geom_bar(stat = "identity", size = 3, aes(color = vs == 0)) +
  scale_colour_manual(name = "vs", values = c(`TRUE` = 'black',`FALSE` = "red"))

^{由 reprex package (v0.3.0)}

于 2020-03-30 创建

在 ggplot geom_bar 中以不同颜色绘制零点

Plot zeros in a different color in ggplot geom_bar

r

ggplot2

geom-bar