带走叠加在ggplot图例中的点的字母

Question

我正在做一些添加了标签的散点图，如下所示：

require(ggplot2)
ggplot(mtcars, aes(mpg, wt, fill=factor(cyl))) + geom_point(shape=21, size=4) + 
  geom_text((aes(label=rownames(mtcars), color=factor(cyl))))

如果你仔细观察这个传说，你会看到这封信＆＃39; a＆＃39;在图纸上 当然，每个点都有不同的颜色。我想要一个方法 消除这一点，但我一直在尝试guides和guide_legends否 无济于事。我希望的传奇在其他情节中看起来像：

ggplot(mtcars, aes(mpg, wt, fill=factor(cyl))) + geom_point(shape=21, size=4)

提前致谢， 涓