安装、加载包

rm(list=ls())
# 安装包
install.packages("ggplot2")
install.packages("ggprism")
install.packages("tidyverse")
install.packages("ggpubr")
#加载包
library(ggplot2)
library(ggprism)
library(tidyverse)
library(ggpubr)

准备绘图数据

#自己随机编写的数据
df <- data.frame(
  A_1 = c(2,5,6,5,4,8,6,3,8,9),
  A_2 = c(5,8,6,3,4,7,9,3,6,4),
  B_1 = c(15,10,5,18,12,13,16,14,10,9),
  B_2 = c(25,20,23,15,14,24,20,22,25,26),
  C_1 = c(1,3,6,5,2,3,6,2,4,1),
  C_2 = c(7,8,9,6,7,8,9,6,7,10)
)

#使用tidyverse包对数据进行处理
df <- df %>% 
  gather(key = 'samples',value = 'values') #gather()函数可以把多列数据合并成一列数据

#添加分组信息
df$group = rep(c("A","B","C"), each = 20)
head(df)#预览数据

image.png

绘图

1）ggplot2包绘制的简单图形

p1 <-ggplot(df,aes(samples,values,color=samples,fill=samples))+
  geom_bar(stat="summary",fun=mean,position="dodge")+
  stat_summary(fun.data = 'mean_sd', geom = "errorbar", width = 0.3,color="black")
p1

image.png

2）通过ggprism包调整主题风格

#通过names（）函数查看该包包含的主题
names(ggprism_data$themes)

image.png

#通过preview_theme()函数可预览每一个主题的样式
preview_theme("diazo")

image.png

preview_theme("candy_soft")

image.png

preview_theme("blueprint")

image.png

preview_theme("summer")

image.png

#我们可以通过theme_prism()函数对ggplot2的主题进行设置
p1+theme_prism(palette="summer")

image.png

#我们也可以通过ggprism自带调色板对ggplot2绘制图形颜色进行改变
p1+ scale_fill_prism(palette = "summer")

image.png

#对主题及颜色同时设置
p1+theme_prism(palette="summer")+
  scale_fill_prism(palette = "summer")

image.png

#通过??theme_prism查看其中的参数，然后我们进行具体设置
??theme_prism
theme_prism(
  palette = "black_and_white",
  base_size = 14,
  base_family = "sans",
  base_fontface = "bold",
  base_line_size = base_size/14,
  base_rect_size = base_size/14,
  axis_text_angle = 0,
  border = FALSE)

#应用
p1 + theme_prism(palette="summer",
  base_fontface = "plain", # 字体样式
                   base_family = "serif", # 字体格式
                   base_size = 16,  # 图形字体大小
                   base_line_size = 0.8, # 坐标轴粗细
                   axis_text_angle = 45)+ #角度
  scale_fill_prism(palette = "summer")

image.png