```r
p3 <- p2 + theme(
  ### move and modify legend 
  legend.title = element_blank(),
  legend.position = "top", 
  legend.key = element_rect(fill = "lightskyblue1", color = "lightskyblue1"),
  legend.background = element_rect( fill = "lightskyblue1",color = "pink", size = 0.5,linetype = "longdash")
  )
```