以前都是python中matplotlib画图,自从学会R后,用R画图更合适
# 读取数据和查询数据
taxon <- read.table("top_genus.txt")
acc <- read.table("top_genus_acc.txt")
# 导入库
library("ggplot2")
# 构建数据框用来画图
data <- data.frame(taxon=taxon, acc=acc)
colnames(data) <- c("taxon","acc")
# 画图
# 设置位置偏移0.5,宽度0.7,y轴范围【0,1】
p <- ggplot(data=data, aes(x=taxon, weight=acc, fill=taxon,color=taxon,angle = 45)) +
geom_bar(position=position_dodge(0.5),width=0.7,show.legend=FALSE,ymin=0,ymax=1) +
labs(title="Acc of different model", x="Model", y="Acc")
p
# 画水平直线
p <- p+geom_hline(yintercept = c(0.9),linetype=2,color="black")
p
# 设置背景白色
p <- p+theme_bw()
p
# 去掉网格
p <- p+theme(panel.grid=element_blank(),axis.line=element_line(size=0.5, colour="black"))