r - 通过为 R 中每个条形的不同部分分配名称，使直方图更清晰

Question

假设我有一个包含两列和 19 行的数据框(见下文)；左栏为细胞系名称，右栏为ZEB1基因在相应细胞系中的表达情况。

    CellLines   ZEB1
    600MPE  2.8186
    AU565   2.783
    BT20    2.7817
    BT474   2.6433
    BT483   2.4994
    BT549   3.035
    CAMA1   2.718
    DU4475  2.8005
    HBL100  2.6745
    HCC38   3.2884
    HCC70   2.597
    HCC202  2.8557
    HCC1007 2.7794
    HCC1008 2.4513
    HCC1143 2.8159
    HCC1187 2.6372
    HCC1428 2.7327
    HCC1500 2.7564
    HCC1569 2.8093

我使用下面的简单代码为这些数据绘制了直方图:

hist(Heiser$ZEB1[1:19], breaks=50, col="grey")

它给出了直方图，其 x 轴是基因表达量，y 轴是该表达在细胞系中的频率；但是，我想将细胞系的名称添加到它们在直方图上的特定位置……我该怎么做？

提前感谢您花时间回答这个问题:-)最好的。

Answer 1

一种替代方法是使用 text 将标签插入到绘图中:

hist(Heiser$ZEB1[1:19], breaks=50, col="grey")
text(Heiser$ZEB1, 2, labels= Heiser$CellLines, srt=90)

编辑:

将同一类别中的标签逐个放置:

Heiser_hist <- hist(Heiser$ZEB1[1:19], breaks=50, col="grey")
Heiser$cut <- cut(Heiser$ZEB1, breaks=Heiser_hist$breaks)
library(dplyr)
Heiser <- Heiser %>% group_by(cut) %>% mutate(pos = seq(from=1, to=2, length.out=length(ZEB1)))
with(Heiser, text(ZEB1, pos, labels=CellLines, srt=45, cex=0.9))

您可以在不改变 srt 倾向的情况下尝试文本，但在那种情况下过度绘制会更糟。您还可以使用 x 轴来减少过度绘制。