让ggplot scale_fill_manual正确（aes颜色）

Question

我希望有一个简单的问题，但在查找类似的问题后，我仍然不确定我做错了什么。

可重复的示例（虚假数据）：

# data
pay <- c(rep(c(100,125,200,225), 6))
title <- c(rep(c("Jr", "Mid", "Sr", "Exec"), 6))
dept <- c(rep(c("Finance", "Acctg", "Sales", "Sales"), 6))

mydf <- data.frame(pay, title, dept)
mycolors <- c("#000000", "#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442")

# plot
myplot <- ggplot(data = mydf, aes(x = dept, y = pay, fill = title)) +
  geom_jitter(aes(color = title), width = 0.33) +
  scale_y_continuous(name="Total Comp $", labels = comma, breaks = seq(0, 250, 50) ) +
  scale_fill_manual(values=mycolors) +
  theme(axis.text.x  = element_text(angle=90, vjust=0.5, hjust = 1, size=10))
myplot

我的问题：我希望在绘制点时使用我的颜色（“mycolors”变量），但是使用的是默认的ggplot颜色。我原以为scale_fill_manual会覆盖默认颜色，但它们似乎不是。

非常感谢对解决方案的解释！