# install.packages("ggThemeAssist")library(ggThemeAssist)library(ggplot2)gg <- ggplot(mtcars, aes(x = hp, y = mpg, colour = as.factor(cyl))) + geom_point()# ggplot2样式插件ggThemeAssistGadget(gg)