于是今天分享一下绘制代码给大家，下面是小伙伴发的图：
这幅图绘制的关键点有两个：
-
1、排序
-
2、在图里添加文本标签，并为不同颜色
数据的话大家根据类似格式整理成就可以了。
首先加载 R 包，读取测试数据：
# 加载R包
library(ggplot2)
library(ggprism)
library(tidyverse)
# 读取数据
bar <- read.table('C:/Users/admin/Desktop/bar.txt',header = T)
# 查看数据
head(bar,3)
id B type
1 THYROID -1.821506 low
2 IMMUNE -1.652449 low
3 ACID -1.430220 low
接下来我们给数据排序，然后设置 因子类型的水平 就能按照排序的数值大小进行显示了：
# 升序排序
bar <- bar %>% arrange(B)
# 变成因子类型
bar$id <- factor(bar$id,levels = bar$id)
先默认画一张：
ggplot(data = bar,aes(x = id,y = B,fill = type)) +
geom_col() +
xlab('') + yla
