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

将colour="black" 移到 aes() 语句之外。 aes() 使用数据中的变量来创建美学，所以你说的是从不存在的“黑色”列中提取基础颜色。

还发现here