R Can'；t使用..计数..、几何点和镶嵌面包裹手动设置颜色

我在这个问题上看到了很多变化，以及我得到的错误消息。然而，没有一种情况像我所尝试的那样。假设我有一些数据看起来有点像这样：

r <- c("zero", "r", "zero", "zero", "r", "r", "r", "zero", "r", "r")

store <- c("Saks", "Saks", "Klein's", "Macy's", "Saks", "Klein's", "Macy's", "Macy's", "Klein's", "Saks")

dat <- data.frame(r, store)

# Specify the colors
cols <- c(r = "#1B79A5", zero = "#FD7701")

当我尝试添加自定义颜色时，问题就出现了。如果不添加

facet\u wrap（）

层，则不会出现问题：

ggplot(data = dat, aes(x = r, fill = r, shape = r, ..count..)) +
    geom_point(stat = "count", color = cols, size = 3)

但是，如果我添加一个facet_wrap（）层

我收到一条错误消息，

美学必须为长度1或与数据（6）相同：颜色、大小

同样，这里有很多帖子都有类似的错误信息，但是没有一篇是我正在尝试的

我还尝试了很多变化，尝试了

scale\u fill\u manual（values=cols）

，但没有任何效果：没有错误消息，只有黑点

---

（在这个场景中，我通常使用条形图，没有任何困难，但我正试图找出ggplot2的不同方面，所以我想我应该试试这个）

您只需将

scale\u color\u manual（）

ggplot(data = dat, aes(x = r,  shape = r, colour = r, ..count..)) +
geom_point(stat = "count", size = 3) +
facet_wrap(~ store) +
    scale_color_manual(values = c("#1B79A5", "#FD7701"))

您应该只需要将
缩放\u颜色\u手动（）
添加到第一个绘图，该绘图适用于您，但使用默认颜色

ggplot(data = dat, aes(x = r,  shape = r, colour = r, ..count..)) +
geom_point(stat = "count", size = 3) +
facet_wrap(~ store) +
    scale_color_manual(values = c("#1B79A5", "#FD7701"))

谢谢。我想我已经试过了，但我一定是刚喝了
fill=r
，而不是
color=r
。谢谢。我想我已经试过了，但我一定是刚喝了
fill=r
，而不是
color=r
。
ggplot(data = dat, aes(x = r,  shape = r, colour = r, ..count..)) +
geom_point(stat = "count", size = 3) +
facet_wrap(~ store) +
    scale_color_manual(values = c("#1B79A5", "#FD7701"))