#### 1. loading required libraries ####
library(ggplot2)#作图 plot
library(ggpubr)#添加显著性标记, Add the significance marker
library(ggsignif)#添加显著性标记, Add the significance marker
library(dplyr)#数据清洗，Data cleaning
library(plyr)#数据清洗，Data cleaning
library(reshape2)#数据清洗，Data cleaning
library(ggthemes)#ggplot所用主题，Themes for ggplot2
library(ggsci)#TOP期刊配色方案, color plates from top journal
library(readxl)#读入 excel, read excel
library(showtext)#字体设置, font setting
library(extrafont)#使用系统字体，Using the system fonts
library(sysfonts)#加载系统字体，loading the system fonts
library(Cairo)#抗锯齿,anti-aliasing
#### 2. Setting themes and working dictionary path ####
loadfonts()
#### 2. Setting themes and working dictionary path ####
loadfonts()
Sys.setenv(R_GSCMD = "C:/Program Files (x86)/gs/gs9.50/bin/gswin32c.exe")
mytheme <- theme_few()+theme(strip.background = element_rect(fill="gray72",colour ="#4d4d4d"),
text = element_text(family = "Arial"),
strip.text = element_text(size = 6,hjust = 0.5),
plot.title = element_text(size = 6,hjust = 0.5),
axis.text=element_text(size=6,color = "#4D4D4D"),
axis.title=element_text(size = 6),
legend.text = element_text(size = 6),
legend.title = element_text(size = 6),
legend.background = element_blank(),
panel.border = element_rect(colour = NA),
axis.line = element_line(color = "#4D4D4D",size=0.2),
axis.ticks.length = unit(0.8, "mm"))
mytheme1 <- theme_few()+theme(strip.background = element_rect(fill="gray72",colour ="#4d4d4d",size=0.2),
panel.background = element_rect(colour = "#4d4d4d",size=0.2),
text = element_text(family = "Arial"),
strip.text = element_text(size = 6,hjust = 0.5),
plot.title = element_text(size = 6,hjust = 0.5),
axis.text=element_text(size=6,color = "#4D4D4D"),
axis.title=element_text(size = 6),
legend.text = element_text(size = 6),
legend.title = element_text(size = 6),
legend.background = element_blank(),
axis.line = element_line(color = "#4D4D4D",size=0.2),
axis.ticks.length = unit(0.8, "mm"))
wdImport<-("E:/Study/SCI/Soil Micro/SCI/Figures/Data/Data for submit")
wdOutput_Figure1 <- ("E:/Study/SCI/Soil Micro/SCI/Figures/Figures from R/Figure1")
#### 1. Loading packet####
library(ggplot2)#作图 plot
library(ggpubr)#添加显著性标记, Add the significance marker
library(ggsignif)#添加显著性标记, Add the significance marker
library(dplyr)#数据清洗，Data cleaning
library(plyr)#数据清洗，Data cleaning
library(reshape2)#数据清洗，Data cleaning
library(ggthemes)#ggplot所用主题，Themes for ggplot2
library(grid)#分面和嵌合图，facet and Mosaic graph
library(agricolae)#多重比较，Multiple comparisons.
library(readxl)#读入 excel, read excel
library(ggsci)#配色，color scheme
library(showtext)#字体设置, font setting
library(car)#方差齐性检验，homogeneity test of variance, levene test
library(extrafont)#使用系统字体，Using the system fonts
library(sysfonts)#加载系统字体，loading the system fonts
library(Cairo)#抗锯齿,anti-aliasing
library(stringr)#字符串处理.string manipulation
library(graphics)#坐标轴表达式，expression for axis
library(vegan)
library(data.table)
