devtools::install_github('JiaxiangBU/add2ggplot')

library(add2ggplot)

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

plot_logo<-add_logo(plot_path ="man/figures/logo.png",logo_path ="man/figures/jiaxiang.png",logo_position ="bottom right",logo_scale =5)plot_logo

library(ggrepel)#> Warning: package 'ggrepel' was built under R version 3.6.1#> Loading required package: ggplot2df<-mtcars%>%    tibble::rownames_to_column()

df%>%ggplot()+aes(mpg, disp,label = rowname)+geom_point(color ='white')+# geom_label_repel use fill arg in the segments.geom_label_repel(data =function(x)            df%>% head,arrow =arrow(length =unit(0.02,"npc")),box.padding =1,segment.color = white_one,color = white_one,label.size =NA,fill = red_two,aes(face ="bold")    )+# theme_white()theme_grey_and_red()+labs(title ='使用labs覆盖',subtitle ='使用labs覆盖',x ='使用labs覆盖',y ='使用labs覆盖',caption ='备注: 使用labs覆盖'    )#> Warning: Ignoring unknown aesthetics: face

z<-ggplot(iris,aes(x = Sepal.Length,y = Sepal.Width,col = Species))+geom_jitter(alpha =0.7)+scale_color_brewer("Species",palette ="Dark2",labels =c("Setosa","Versicolor","Virginica")    )+scale_y_continuous("Width (cm)",limits =c(2,4.5),expand =c(0,0))+scale_x_continuous("Length (cm)",limits =c(4,8),expand =c(0,0))+ggtitle("Sepals")+coord_fixed(1)

z#> Warning: Removed 1 rows containing missing values (geom_point).

z+theme_classic()#> Warning: Removed 1 rows containing missing values (geom_point).

z+theme_classic2()