用到的知识点

• barplot函数绘制条形图
• barplot函数，想要柱子不要超过Y轴坐标的话，需要在ylim上的上限加50（不过也是具体情况具体分析）
• text(）函数加注释，不过需要通过自己调整一下参数，让位置与柱形图对应好（虽然我记得好像会有更加优雅的写法，但是我网上查到的也只有Python seaborn的用法，有点忘了， 知道的简友请在下面评论区告知一下哈~）
• layout(）函数传入一个矩阵，绘制多个子图（总是跟Python的subplot函数记混）

代码举例

i<-1
layout(matrix(1:8, 2, 4,byrow=T))

#pdf(file = 'CD24_cells_distribution.pdf')
# png(filename = 'CD24_cells_distribution.png')
for(sam in sample_list){
  name<-name_list[i]
  print(name)
  
  sam_dis<-data.frame(table(sam@assays$RNA@counts['CD24', ]))
  barplot(sam_dis$Freq, names.arg=sam_dis$Var, 
          main = name, xlab = "CD24_count", ylab="cell_count", ylim=c(0, max(sam_dis$Freq+50)))
  text(x=seq(from=1, to=length(sam_dis$Var))*1.1, y=sam_dis$Freq+10, labels = sam_dis$Freq)
  
  i<-i+1
}
# dev.off()
table()

遇到的问题

1. pdf保存的话，不知道为啥大小很难调整，生成出来都是只是单列，并非按着代码输出要求生成2行4列的格式
2. png保存的话，大小也很难调整

解决方法

在Rstudio点击ZOOM方法后，点击保存按钮，可视化保存，问题完美解决~