R ggplot2中几何图形条形图上的边框颜色错误

我正在绘制一张按采样周划分的不同长度类别的鱼类计数条形图。
下面是一个名为Chin的数据库：

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

我已将

Size2

转换为一个名为

Fork

的因子，将week转换为一个名为

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"))

取而代之的是，我用一个名为“黑色”的新图例获得了红色边框。无论我选择什么颜色，我都会得到它。图例项的名称更改（即蓝色、绿色），但边框颜色保持为红色，图例项填充仍为黑色。见下文。我知道这一定是一个简单愚蠢的错误，但我想不出来。有什么想法吗？提前谢谢

将

color=“black”

移到aes（）语句之外。aes（）使用数据中的变量创建美学效果，所以您要说的是将“黑色”列的颜色作为基础，而“黑色”列并不存在

还发现了

可能重复的

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