添加facet_grid面板均值作为文字和线条
jwillis0720
我有一个看起来像这样的数据框。
> head(df)
DGene JGene cdr3_len Sum
1 IGHD1 IGHJ1 0 22
2 IGHD1 IGHJ1 1 11
3 IGHD1 IGHJ1 2 16
4 IGHD1 IGHJ1 3 40
5 IGHD1 IGHJ1 4 18
6 IGHD1 IGHJ1 5 30
...
facet_grid非常简单。
ggplot(df,aes(x=cdr3_len,y=Sum)) + geom_line() + xlim(c(1,42)) + facet_grid(JGene~DGene,scales="free_y")
并得到类似的东西。
我想知道是否有人可以帮助我在每个网格的均值上添加一条线。或者可能如何在右上角打印每个网格的均值。
谢谢，
编辑-完整链接到数据框
eipi10
这是一种cdr3_len通过预先计算所需值（根据@ jwillis0720的注释）为平均值添加文本和垂直线的方法：
首先，计算cdr3_len每个面板的平均值，然后left_join将该数据框计算为第二个数据框，该数据框计算用于将文本放置在每个面板上的适当y值（因为适当的y值仅根据的水平而变化JGene）。
library(dplyr)
meanData = df %>% group_by(JGene, DGene) %>%
summarise(meanCDR = sum(Sum*cdr3_len)/sum(Sum)) %>%
left_join(df %>% group_by(JGene) %>%
summarise(ypos = 0.9*max(Sum)))
现在为情节：
ggplot(df,aes(x=cdr3_len, y=Sum)) +
geom_vline(data=meanData, aes(xintercept=meanCDR), colour="red", lty=3) +
geom_line() +
geom_text(data=meanData,
aes(label=round(meanCDR,1), x=40, y=ypos), colour="red",
hjust=1) +
xlim(c(1,42)) +
facet_grid(JGene~DGene,scales="free_y")
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
使用facet_grid为我的因素添加“标题”
- 2
不同的y轴标签facet_grid和大小
- 3
将参数传递给ggplot和facet_grid
- 4
使用ggplot（）和facet_grid（）绘制几个图
- 5
控制facet_grid、ggplot中的间距和标签
- 6
因子和重新排序 facet_grid 的问题
- 7
结合 facet_grid (ggplot2) 和 denscomp (fitdistrplus)
- 8
在不同的facet_grid图中相等的面板高度，ggplot2 R
- 9
ggplot2中的facet_wrap（）和facet_grid（）有什么区别？
- 10
对于相同高度的瓷砖，geom_tile和facet_grid / facet_wrap
- 11
对于相同高度的瓷砖，geom_tile和facet_grid / facet_wrap
- 12
ggplot：facet_grid，但使用一个因子水平作为参考
- 13
如何将自定义标签添加到facet_grid（）
- 14
如何在Facet_Grid条形标签上添加希腊字母？
- 15
更改（全部）facet_grid带状文本
- 16
绘制多列+ facet_grid（ggplot）
- 17
ggplot facet_grid标签上标
- 18
ggplot facet_grid x轴步进
- 19
了解facet_grid scale =“ free”
- 20
R ggplot facet_grid 多箱线图
- 21
在facet_grid中显示每个图的x轴和y轴
- 22
将geom_boxplot与facet_grid和free_y一起使用
- 23
ggplot2中facet_grid的label_parsed与空格和表达式混合
- 24
如何在R中的facet_grid图上注释R-sq和p值？
- 25
如何在ggplot2 :: facet_grid中格式化网格标题和条目
- 26
ggplot facet_grid 现在切换左条带和刻度线
- 27
如何使用 Sjplot 更改 facet_grid 和点估计的形状？
- 28
ggplot2：如何获取facet_grid（）的labeller = label_both和facet_wrap（）的ncol选项的合并功能？
- 29
重新排列facet_grid并将其添加到ggplot2的geom_bar中
我来说两句