100天生信-Day8
箱线图绘制代码记录：
install.packages('patchwork')
library(ggplot2)
library(patchwork)
setwd("/Users/lichuanshun/Documents/project/1_R_plot/")
rm(list = ls())
self <- read.csv('kaks_self.csv', header = T)
At <- read.csv('kaks_At.csv', header = T)
Br <- read.csv('kaks_Br.csv', header = T)
colnames(self)
p1<- ggplot(self, aes(x=type, y=Ka_Ks, fill = type)) +
geom_boxplot() +
scale_fill_manual(values=c("#E64B35FF", "#4DBBD5FF", "#00A087FF")) +
geom_dotplot(binaxis='y', stackdir='center', stackratio=1.5, dotsize=0.5) +
theme_classic()
p2 <- ggplot(At, aes(x=type, y=Ka_Ks, fill = type)) +
geom_boxplot() +
scale_fill_manual(values=c("#E64B35FF", "#4DBBD5FF", "#00A087FF")) +
geom_dotplot(binaxis='y', stackdir='center', stackratio=1.5, dotsize=0.5) +
theme_classic()
p3 <- ggplot(Br, aes(x=type, y=Ka_Ks, fill = type)) +
geom_boxplot() +
scale_fill_manual(values=c("#E64B35FF", "#4DBBD5FF", "#00A087FF")) +
geom_dotplot(binaxis='y', stackdir='center', stackratio=1.5, dotsize=0.5) +
theme_classic()
## 使用patchwork组图
(p1 | p2 | p3)
