如何在 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"))
我有一个看起来像这样的情节,但我希望这些点本身被填充为黑色。有什么办法可以做到这一点?到目前为止,这是我的代码:
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"))