library(ggplot2)
spec_pro <- ggplot(data = cwk_data, aes(x = Age, y = Perf1, colour = BMI_binom))
spec_pro + geom_point() + theme_bw() + ylab("Supervisor Performance Rating")
spec_pro + guides(fill=guide_legend("BMI"))
一切正常,直到更改图例的标题。然后所有的情节和传说都完全消失了。提前感谢您的帮助!