p <- ggplot(mtcars, aes(hp, mpg)) + geom_point() + labs( title = "This is a **bold** title", subtitle = "And an *italics* subtitle", x = "**_hp_**", caption = "<span style = 'color:blue'>A blue caption</span>" )
p + theme_minimal()
p + md_theme_minimal()
p + ggthemes::theme_fivethirtyeight()
p + md_theme_fivethirtyeight()
改变样式小例子
data("diamonds")
p <- ggplot(diamonds, aes(x = cut, fill = cut)) + geom_bar() + labs(title = "<span style = 'color:#93C1DE'>**Roche**</span> in <span style = 'color:darkorange'>**mtcars**</span>", caption = "Visiualized by <span style = 'color:#D52B1E'>**Ayue**</span>") p + md_theme_minimal()