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