geom_bar和geom_jitter的不同颜色

qnzebej0 于 2023-05-04 发布在其他

关注(0)|答案(1)|浏览(299)

我试图创建一个图，其中geom_bar表示一组数据点的平均值，单个数据点使用geom_jitter显示。我希望条形图按因子着色，但单个数据点为白色。
这是我的剧本：

ggplot(dataframe, 
       aes(x = `glucose`, y = `CTV dilution factor`, fill = `cellobiose`))+
  geom_bar(stat = "summary", position = "dodge")+
  geom_jitter(position = position_jitterdodge(), 
              shape = 21, stroke=0.5, size=2.5, show.legend = FALSE)+
  ylab("CTV dilution factor")+
  xlab("glucose [mM]")+
  facet_wrap(~condition, ncol=2)+
  theme_manish()+
  theme(text=element_text(size=16))

正如您所看到的，条和抖动点填充了相同的颜色。我想保留条上的颜色，但抖动点用白色填充。
有什么建议吗？谢谢！

r

来源：https://stackoverflow.com/questions/76133797/different-colors-for-geom-bar-and-geom-jitter

1条答案

按热度按时间

sqxo8psd1#

默认的实现方法是为geom_jitter或geom_point设置fill="white"，并使用group aes，即在geom_point中使用group=cellobiose来通过cellobiose来闪避点。然而，当这样做时，我遇到了一个错误，似乎是一个已知的，但仍然无法解决的issue。
一个可能的解决方法是Map到color美学上，并使用scale_color_manual将轮廓颜色设置为"black"。
使用基于mtcars的最小可再现示例：

dataframe <- mtcars[c("cyl", "mpg", "am", "vs")]
dataframe[c("cyl", "am", "vs")] <- lapply(dataframe[c("cyl", "am", "vs")], factor)
names(dataframe) <- c("glucose", "CTV dilution factor", "cellobiose", "condition")

library(ggplot2)

ggplot(
  dataframe,
  aes(x = glucose, y = `CTV dilution factor`, fill = cellobiose)
) +
  geom_bar(stat = "summary", position = "dodge") +
  geom_point(aes(color = cellobiose),
    fill = "white",
    position = position_jitterdodge(dodge.width = .9, seed = 1),
    shape = 21, stroke = 0.5, size = 2.5, show.legend = FALSE,
  ) +
  scale_color_manual(values = rep("black", 2)) +
  ylab("CTV dilution factor") +
  xlab("glucose [mM]") +
  facet_wrap(~condition, ncol = 2) +
  # theme_manish() +
  theme(text = element_text(size = 16))

赞(0）回复(0）举报 2023-05-04

我来回答

geom_bar和geom_jitter的不同颜色

1条答案

相关问题

热门标签

最新问答