R ggplot中按因子计算的值的绘图计数

对于R来说，谷歌搜索这个（可能很简单）东西的时间太长了

我想根据雄性是否有巢穴，绘制出它们生育后代的比例。（我不想知道他们生了多少后代）。这是我的“男性”数据集

我已经使用以下代码将子代的值更改为0和1（尽管这感觉已经很笨拙了）

…我可以用

ggplot(males,aes(x = males$nest,fill = males$off)) + 
geom_bar(position = "fill")

…但我想给它们涂上颜色，使0（无巢）是一种颜色，1（巢）是另一种颜色，那么没有生育后代的雄性的比例是每种颜色的苍白版本。以上根据“后代”产生颜色，与“巢”无关

欢迎光临。

---

（MacOSX，R3.0.3GUI 1.63雪豹版（6660））

这就是你想要的吗

library(ggplot2)

males$nest <- as.factor(males$nest)
males$off <- as.factor(males$off)

ggplot(males, aes(x = nest, fill = off)) + 
geom_bar(width = 0.25) + 
scale_fill_manual(values = c('green', 'darkgreen'))

库（ggplot2）
雄性$nest成功了！非常感谢。这是我错过的互动所填补的空白

require(ggplot2)

males$off <- factor(as.numeric(males$off != 0))
males$nest <- as.factor(males$nest)

ggplot(males, aes(x = nest, fill = interaction(males$nest, males$off))) + geom_bar(width = 0.25) + scale_fill_manual(values = c('deepskyblue3', 'tomato3', 'deepskyblue', 'tomato'))

require（ggplot2）
雄性$off
雄性$off谢谢你，将其添加到我不断增长的库中。几乎。。。我希望这两列的颜色根据它们是否有嵌套而定，例如0嵌套、绿色和浅绿色、1嵌套、蓝色和浅蓝色。
library(ggplot2)

males$nest <- as.factor(males$nest)
males$off <- as.factor(males$off)

ggplot(males, aes(x = nest, fill = off)) + 
geom_bar(width = 0.25) + 
scale_fill_manual(values = c('green', 'darkgreen'))

require(ggplot2)

males$off <- factor(as.numeric(males$off != 0))
males$nest <- as.factor(males$nest)

ggplot(males, aes(x = nest, fill = interaction(males$nest, males$off))) + geom_bar(width = 0.25) + scale_fill_manual(values = c('deepskyblue3', 'tomato3', 'deepskyblue', 'tomato'))