# 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()