ggplot2中geom_bar上的边框颜色错误

Question

我正在通过抽样周绘制各种长度类别的鱼类数量的条形图。
这里有一个名为Chin的数据库：

Trib    Week   Size2  
MM      21     90
SM      21     80
SM      22     100
NM      22     8p

我已将Size2转换为一个名为Fork的因子，将周转换为一个名为period的因子。

这是我的代码：

period<-as.factor(Chin$week)
Chin1<-cbind(Chin, period)
Fork<-as.factor(Chin$Size2)

g <- ggplot(Chin1, aes(period))
g + geom_bar(aes(fill=Fork))+ theme(axis.text.x = element_text(angle=65, 
 vjust=0.6)) +  theme_bw() +scale_fill_manual(values=c("white","gray90", 
"gray82", "gray61", "gray48", "black"))

这很好用，除了条形图或图例元素周围没有边框：

但是当我在此行中添加colour="black"以获得黑色边框时：

g + geom_bar(aes(fill=Fork, colour="black"))+ theme(axis.text.x 
element_text(angle=65, vjust=0.6))....

我改为使用一个名为"black"的项目获得带有新图例的红色边框。无论我选择何种颜色，我都会得到这个。 图例项目的名称会更改（即蓝色，绿色），但边框颜色保持红色，图例项目填充仍为黑色。 见下文。 我知道这一定是一个简单的愚蠢错误，但我无法弄清楚。 有任何想法吗？ 提前致谢！

Answer 1

在aes（）语句之外移动colour="black" 。 aes（）使用数据中的变量来创建美学，所以你要说的是从“黑色”列中获取颜色，而不存在。

也在这里找到