R语言绘图 - 柱形图01

一、R语言软件安装

1、系统和软件参考：R语言绘图基础
2、下载Demo数据，点击文章底部的“下载demo数据”下载demo数据和R脚本。

二、数据和脚本准备

1、将demo数据解压缩到D盘根目录的“R-Plot”文件夹下。
2、将绘图数据按照demo数据的格式填写到“input_table.csv”文件中。

三、运行R脚本进行绘图

1、双击R脚本“BarPlot01.R”，用RStudio打开脚本。

2、根据原始数据修改脚本（可以修改的内容见下面的脚本，主要修改红色部分）

library(ggplot2)
df <- read.table("D:\\R-Plot\\input_table.csv", header=T,sep=",")
ggplot(data = df, mapping = aes(x = reorder(x, order), y = mean))+
# 下面代码是进行柱形图绘制的主代码（修改柱形图的宽度“width”和颜色“fill”）
geom_bar(stat= 'identity', width=0.5, fill='#ea635d')+
# 下面代码是为了添加error bar
geom_errorbar(aes(ymin=mean-sd, ymax=mean+sd), width=0.2, linetype=1, size=1.0)+
# 下面是x轴的参数修改
# x轴的标题的内容（修改x轴的名字）
labs(x="Metal ion")+
# x轴的标题的字体大小，颜色等信息
theme(axis.title.x= element_text(size=15, family="Cambria", color="black", face= "bold", vjust=0.5, hjust=0.5) )+
# x轴的刻度上面的值的大小、颜色、角度等信息
theme(axis.text.x = element_text(size = 12, face = "bold",family = "Cambria",  vjust = 0.5, hjust = 0.5,angle=0))+
# 下面是y轴的参数修改
# y轴的标题的内容（修改y轴的名字）
labs(y = "Decoloration rate (%)")+
# y轴的标题的字体大小，颜色等信息
theme(axis.title.y= element_text(size=15, family="Cambria", color="black", face= "bold", vjust=2.0, hjust=0.5))+
# 应该轴的刻度上面的值的大小、颜色、角度等信息
theme(axis.text.y = element_text(size = 12, family = "Cambria", face = "bold",vjust = 0.5, hjust = 0.50))+
# y轴的显示范围范围，一般柱形图的y轴是连续数值（y轴的范围必须要大于数据，否则不会显示图像）
scale_y_continuous(limits=c(0,5000), breaks = c(0, 1000, 2000, 5000))+
# x轴和y轴的刻度线的长度和宽度，如果是负值则刻度线向内
theme(axis.ticks = element_line(size = 1), axis.ticks.length = unit(5, "pt"))+
# 下面这行代码就是去掉背景的颜色，并添加上外框
theme(panel.grid =element_blank(), panel.background = element_blank(), axis.line = element_line(size=1, colour = "black"))

3、点击Run运行脚本，生成柱形图。

下面是demo数据生成的柱形图：

4、保存图像为SVG格式，利用CorelDRAW软件修改细节。具体参考“CorelDRAW绘图基础”

下载demo数据