跟着 Cell 学绘图: 优美的条形图

世界上没有真理

1引言

几周前在一篇文献看到了一个挺好看的条形图,想着尝试绘制一下,今天研究了一会差不多可以绘制。这篇文献来自今年刚发表的一篇癌症单细胞相关的文章。

文章标题:

Single-cell landscape of the ecosystem in earlyrelapse hepatocellular carcinoma

---

里面成功吸引我注意的条形图:

下面展示一下我探索的结果:

2加载数据

数据是我自己在 excel 里跟着图盯了半天打进去的,哈哈:

# 加载R包
library(ggplot2)
library(tidyverse)

# 读取数据
df <- read.delim('c:/Users/admin/Desktop/bar_data.txt',header = T)

# 查看数据
head(df,3)
    cell_type cells                    type
1 Endothelial   245  Primary malignant cell
2 Endothelial   210 Relapsed malignant cell
3       Mono2   181  Primary malignant cell

3数据整理

我们根据图形观察需要整理一下数据:

• 1. x 轴都为正数。
• 2. 条形图上标签左右都靠内。
• 3. 按 Relapsed malignant cell 对应的 cells 从大到小排序。
• 4. 双 x 轴。
• 5. 条形图上添加了点图层。

经过上面分析,第一个问题我们需要 把某个 type 的 cells 变为负数,第二个问题需要 添加一列文本对齐的数据, 第三个排序问题 因子化 一下即可: