如何使用ggplot画条形图并调整背景

以前都是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"))