使用R语言（ggplot2）绘制分组条形图，并添加误差线和显著性说明

最近要处理实验数据，觉得Excel画的图打印出来太不清晰了，所以试了一下R语言的ggplot2。最后画出的图可以导出eps格式，再用adobe illustrator进一步修改。

# 创建一个data.frame
vadility <- c('有效', '有效', '无效', '无效')
valance <- c('中性', '负性', '中性', '负性')
RT <- c(421, 428, 432, 431)
SD <- c(11, 11, 10, 11)

# 字体大小常量
WORD_SIZE = 15

# 命名向量
name <- c('有效性', '图片效价', '反应时', '标准差')

# 导入所需的包
library(ggplot2)
library(ggthemr)
library(ggsignif)

# 创建data.frame并命名
testData <- data.frame(vadility=vadility, valance=valance, RT=RT, SD=SD)
names(testData) <- name

# ggthemr包选择一个主题，主要是方便，也可以手动修改颜色，具体参见ggthemr在github上的说明
# 个人觉得导出eps后，在ai中修改更方便
ggthemr('greyscale')

# 开始画图
ggplot(data = testData, aes(x=vadility, y = RT, fill = valance)) +   # x，y轴数据，分组条形图下将其他离散数据传给fill
  coord_cartesian(ylim=c(300,460)) +  # 设置y轴坐标范围
  lab