ggplot(airquality, aes(Wind,Temp,

                       col=factor(Month))) +

  geom_point() + 

  stat_smooth(method="lm", se=FALSE) + 

  scale_color_manual("Month", values = myColors) + 

  facet_grid(.~Month)

  theme_classic()

 主题不改变而且是下面的，也没有报错，

 $ strip.text.x         :List of 11

  ..$ family       : NULL

  ..$ face         : NULL

  ..$ colour       : NULL

  ..$ size         : NULL

  ..$ hjust        : NULL

  ..$ vjust        : NULL

  ..$ angle        : NULL

  ..$ lineheight   : NULL

  ..$ margin       :Classes 'margin', 'unit'  atomic [1:4] 5.5 0 5.5 0

  .. .. ..- attr(*, "valid.unit")= int 8

  .. .. ..- attr(*, "unit")= chr "pt"

  ..$ debug        : NULL

  ..$ inherit.blank: logi TRUE

  ..- attr(*, "class")= chr [1:2] "element_text" "element"

 $ strip.text.y         :List of 11

  ..$ family       : NULL

  ..$ face         : NULL

  ..$ colour       : NULL

  ..$ size         : NULL

  ..$ hjust        : NULL

  ..$ vjust        : NULL

  ..$ angle        : num -90

  ..$ lineheight   : NULL

  ..$ margin       :Classes 'margin', 'unit'  atomic [1:4] 0 5.5 0 5.5

  .. .. ..- attr(*, "valid.unit")= int 8

  .. .. ..- attr(*, "unit")= chr "pt"

  ..$ debug        : NULL

  ..$ inherit.blank: logi TRUE

  ..- attr(*, "class")= chr [1:2] "element_text" "element"

 $ strip.switch.pad.grid:Class 'unit'  atomic [1:1] 0.1

  .. ..- attr(*, "valid.unit")= int 1

  .. ..- attr(*, "unit")= chr "cm"

 $ strip.switch.pad.wrap:Class 'unit'  atomic [1:1] 0.1

  .. ..- attr(*, "valid.unit")= int 1

  .. ..- attr(*, "unit")= chr "cm"

 - attr(*, "class")= chr [1:2] "theme" "gg"

 - attr(*, "complete")= logi TRUE

 - attr(*, "validate")= logi TRUE