Why is my legend faded in these examples below? Notice how the colours in the legend are not as vivid as the colours in the plot:
library(ggplot2)
r <- ggplot(data = diamonds, aes(x = carat, y = price, color = cut, group = cut))
r + geom_smooth() #(left)
r + geom_smooth(size = 2) #(right)
EDIT: added a close-up