intro

library(add2ggplot)
#> Registered S3 methods overwritten by 'ggplot2':
#> method from 
#> [.quosures rlang
#> c.quosures rlang
#> print.quosures rlang

add_logo(
 plot_path = system.file("extdata", "logo.png", package = "add2ggplot"),
 logo_path = system.file("extdata", "jiaxiang.png", package = "add2ggplot"),
 logo_position = "bottom right",
 logo_scale = 5
)

 more_colors(n = 12)
#> [1] "#A6CEE3" "#1F78B4" "#B2DF8A" "#33A02C" "#FB9A99" "#E31A1C" "#FDBF6F"
#> [8] "#FF7F00" "#CAB2D6" "#6A3D9A" "#FFFF99" "#B15928"
 more_colors(n = 24)
#> [1] "#A6CEE3" "#1F78B4" "#B2DF8A" "#33A02C" "#FB9A99" "#E31A1C" "#FDBF6F"
#> [8] "#FF7F00" "#CAB2D6" "#6A3D9A" "#FFFF99" "#B15928" "#8DD3C7" "#FFFFB3"
#> [15] "#BEBADA" "#FB8072" "#80B1D3" "#FDB462" "#B3DE69" "#FCCDE5" "#D9D9D9"
#> [22] "#BC80BD" "#CCEBC5" "#FFED6F"
 more_colors(n = 36)
#> [1] "#A6CEE3" "#1F78B4" "#B2DF8A" "#33A02C" "#FB9A99" "#E31A1C" "#FDBF6F"
#> [8] "#FF7F00" "#CAB2D6" "#6A3D9A" "#FFFF99" "#B15928" "#8DD3C7" "#FFFFB3"
#> [15] "#BEBADA" "#FB8072" "#80B1D3" "#FDB462" "#B3DE69" "#FCCDE5" "#D9D9D9"
#> [22] "#BC80BD" "#CCEBC5" "#FFED6F"

mtcars %>%
ggplot2::ggplot(ggplot2::aes(mpg, disp)) +
ggplot2::geom_point() +
theme_classic2()

mtcars %>%
ggplot2::ggplot(ggplot2::aes(mpg, disp)) +
ggplot2::geom_point() +
theme_du_bois()

mtcars %>%
ggplot2::ggplot(ggplot2::aes(mpg, disp)) +
ggplot2::geom_point() +
theme_grey_and_red()

mtcars %>%
ggplot2::ggplot(ggplot2::aes(mpg, disp)) +
ggplot2::geom_point() +
theme_ilo()

mtcars %>%
ggplot2::ggplot(ggplot2::aes(mpg, disp)) +
ggplot2::geom_point() +
theme_white()