purple <- birth_data %>% filter(state_color =='purple' ) %>% group_by(year) %>% summarise(mean_age = mean(mother_age))
red <- birth_data %>% filter(state_color =='red' ) %>% group_by(year) %>% summarise(mean_age = mean(mother_age))
blue <- blue %>% mutate(state_color = 'blue')
purple <- purple %>% mutate(state_color = 'purple')
red <- red %>% mutate(state_color = 'red')
graph <- ggplot() + geom_line(data = blue,aes(x = year,y = mean_age,color = "Blue"),size =1.5)+
geom_line(data = purple,color = "Purple"),size = 1.5)+
geom_line(data = red,color = "Red"),size = 1.5) + labs(color='state_color')
graph
我正在尝试将 state_color 设置为与名称相同的颜色,因此图例中的蓝色应为蓝色。不幸的是,它不起作用?
此外,这不是问题的重点,但有没有更有效的方法来解决这个问题,而不是将它们分开然后重新融合在一起?