如何在 ggplot2 中将箱线图的点填充为黑色?

How do I fill the points of my box plot to be black in ggplot2?

我有一个看起来像这样的情节,但我希望这些点本身被填充为黑色。有什么办法可以做到这一点?到目前为止,这是我的代码:

plot <- ggplot(data1, aes(x=Group, y=Genome_Size, fill=Group)) + geom_boxplot()

plot + geom_dotplot(binaxis='y', stackdir='center', dotsize=1) + labs(x="Group", y = "Genome size (kb)")+ scale_fill_manual(values = c("Free living" = "cornsilk", "Gut" = "cornsilk3","Pathogen" = "cornsilk4")) 

我自己不小心回答的。我想我会把这个留给有同样问题的人。

geom_dotplot(binaxis='y', stackdir='center', dotsize=1, fill="black")

我在这里调整你的问题以使用我们都拥有的数据,以便我们可以重现你的问题并测试可能的解决方案。

通过将填充移动到箱形图特定的美学中,它为我修复了:

ggplot(mtcars, aes(x=gear, y=mpg, fill = gear %>% as.character, group = gear)) + 
  geom_boxplot() + 
  geom_dotplot(binaxis='y', stackdir='center', dotsize=1) + 
  labs(x="Group", y = "Genome size (kb)")+ 
  scale_fill_manual(values = c("3" = "cornsilk", "4" = "cornsilk3", "5" = "cornsilk4")) 

固定:

ggplot(mtcars, aes(x=gear, y=mpg, group = gear)) + 
  geom_boxplot(aes(fill = gear %>% as.character)) + 
  geom_dotplot(binaxis='y', stackdir='center', dotsize=1) + 
  labs(x="Group", y = "Genome size (kb)")+ 
  scale_fill_manual(values = c("3" = "cornsilk", "4" = "cornsilk3", "5" = "cornsilk4"))