theme_yk_business: ggplot color theme for bussiness files
In purplezippo/ggpkt: YIK Themes and Customized Geoms for Data Vis.

Description Usage Arguments Details Value See Also Examples

A theme that can be used in bussiness scenes.

theme_yk_business_brief(base_size = 8, base_family = "")

theme_yk_business_light(base_size = 10, base_family = "")

theme_yk_business_dark(base_size = 10, base_family = "")

theme_yk_business_light_solid(base_size = 10, base_family = "")

theme_yk_business_dotted_lightblue(base_size = 10, base_family = "")

theme_yk_business_blue(base_size = 10, base_family = "")

`base_size`	base font size
`base_family`	base font family

Use scale_color_business_light() with this theme.

theme_yk_business_light: The signature yik-business theme.
theme_yk_business_dark: The opposit of theme theme_yk_business_light
theme_yk_business_brief: A theme in designed to show figures in a brief way.
theme_yk_business_light_solid: A theme similar to theme_yk_business_light but with solid lines.
theme_yk_business_dotted_lightblue: A theme with dotted grid lines and light blue background.
theme_yk_business_blue: A theme with blue background.

An object of class theme().

Other themes: theme_rp_light, theme_yk_academic

library(ggplot2)
data(medical_cpi)
head(medical_cpi)

medical_cpi$time <- as.Date(paste0(medical_cpi$time, '01'), format = '%Y%m%d')

windowsFonts(yahei = windowsFont("<e5><be><ae><e8><bd><af><e9><9b><85><e9><bb><91>"))
p <- ggplot(medical_cpi) +
  geom_line(aes(x = time, y = cpi, col = medi_type), size = 1)

# light
p + theme_yk_business_light(base_family = 'yahei') +
  scale_color_business_light()

# dark
p + theme_yk_business_dark(base_family = 'yahei') +
  scale_color_business_dark()

# continuous scale
p2 <- ggplot(medical_cpi) +
  geom_point(aes(x = time, y = cpi, colour = cpi, fill = cpi), size = 5, shape = 21)

p2 + theme_yk_business_light(base_family = 'yahei') +
  scale_colour_business_continuous(col.scheme = 'blue') +
  scale_fill_business_continuous(col.scheme = 'red')