R 手动打印线型gplot

我想根据天气手动绘制线型，这是一个国家(分析对象)或一组国家进行比较.我还将观察结果从国家代码重命名为国家名称，以便于介绍.到目前为止，最后一部分起了作用，但我似乎不知道是否是它造成了问题.

我写了这个代码:

data_pop_growth_rate_output_worker %>% filter(ref_area == "CHN" |
                                               ref_area == "PRK" |
                                               ref_area == "VNM" |
                                               ref_area == "X05") %>% 
  mutate(ref_area = recode(ref_area,
                          CHN = "China",
                          PRK = "Coreia",
                          VNM = "Vietnã",
                          X05 = "Mundo: alta renda")) %>% 
 
  
    ggplot()+
  geom_line(aes(x = time,
                y = obs_value,
                colour = ref_area))+
  scale_color_manual(values = c("China" = "#FE6100",
                    "Coreia" =  "#648FFF",
                    "Vietnã" = "#FFB000",
                    "Mundo: alta renda" = "#785EF0"
                    ))+
  scale_linetype_manual(values = c("China" = "solid",
                    "Coreia" =  "solid",
                    "Vietnã" = "solid",
                    "Mundo: alta renda" = "dotted"
                    ))

结果是:

enter image description here

我手动zoom 线型似乎不起作用.世界("mundo")区域保持稳固.

已try 为一个特定观测值手动绘制虚线类型.