将子/上标添加到条形图标签
达里奥
我有这个情节
plot.colors<- c("#a6cee3", "#1f78b4","#b2df8a","#33a02c", "#525252")
ggplot() +
geom_bar(aes(y = v3, x = v1 , fill = v2), data = melted.data, stat="identity") +
coord_flip() +
scale_fill_manual(values= plot.colors) +
facet_wrap(~v4)
我想在轴刻度中添加子脚本或上标；即：“ BRCA ^ a”，“ BLCA ^ a，b”和“ ACC ^ b”。但是我很困，因为我不知道如何在不更改数据表的情况下更改轴刻度。有没有一种创建矢量并将其元素用作轴刻度的方法？在这种情况下，我想我可以使用“ as.expression”之类的东西。
所以这是库和数据：
library(ggplot2)
v1<- c("ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA", "ACC", "BLCA", "BRCA")
v2<- c("LumA", "LumA", "LumA", "LumA", "LumA", "LumA", "LumB", "LumB", "LumB", "LumB", "LumB", "LumB", "Basal", "Basal", "Basal", "Basal", "Basal", "Basal", "Her2", "Her2", "Her2", "Her2", "Her2", "Her2", "NoA", "NoA", "NoA")
v3<- c(46.575342, 39.726027, 36.120401, 26.027397, 24.931507, 22.965440, 9.589041, 14.794521, 22.073579, 1.369863, 2.191781, 7.580825, 26.027397, 31.506849, 26.198439, 2.739726, 4.931507, 22.742475, 17.808219, 13.972603, 15.607581, 4.109589, 3.013699, 10.256410, 65.753425, 64.931507, 36.454849)
v4<- c("pam50", "pam50", "pam50", "pbcmc", "pbcmc", "pbcmc", "pam50", "pam50", "pam50", "pbcmc", "pbcmc", "pbcmc", "pam50", "pam50", "pam50", "pbcmc", "pbcmc", "pbcmc", "pam50", "pam50", "pam50", "pbcmc", "pbcmc", "pbcmc", "pbcmc", "pbcmc", "pbcmc")
melted.data<- data.frame(v1, v2, v3, v4)
rm(v1, v2, v3, v4)
费利佩·阿尔瓦伦加（Felipe Alvarenga）
只需再将此命令添加到您的ggplot中
scale_x_discrete(labels = parse(text=c("BRCA" = "BRCA^a", "BLCA" = "BLCA^{list(a, b)}", "ACC" = "ACC^b")))
这将改变x轴上的刻度
ggplot() +
geom_bar(aes(y = v3, x = v1 , fill = v2), data = melted.data, stat="identity") +
coord_flip() +
scale_fill_manual(values= plot.colors) +
facet_wrap(~v4) +
scale_x_discrete(labels = parse(text=c("BRCA" = "BRCA^a", "BLCA" = "BLCA^{list(a, b)}", "ACC" = "ACC^b")))
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
隐藏发件人没有短信PHP
- 2
Hashchange事件侦听器在将事件处理程序附加到事件之前进行侦听
- 3
在浏览器中请求URL时会发生什么？
- 4
flask-admin 如何自定义删除按钮
- 5
材质UI垂直滑块。如何改变在垂直材料UI滑块导轨的厚度（反应）
- 6
用日期数据透视表和日期顺序查询
- 7
Jqgrid：多级别组摘要
- 8
java io ioexception无法解析服务器地址解析器的响应
- 9
Swift如何使用Base64Url编码JWT标头和有效负载之类的json对象
- 10
sshd AllowGroups组未授予访问权限
- 11
jQuery无限滚动固定div中的滚动
- 12
android 背部按下
- 13
Flexbox CSS 对齐属性环境惰性？
- 14
为什么随机森林中的平均降低基尼系数取决于人口规模？
- 15
ClickHouse 创建临时表
- 16
为什么PlusShare.Builder setRecipients方法不起作用？
- 17
如何在Android中识别MICR代码
- 18
PyQt4.QtCore模块无法向sip模块注册
- 19
正则表达式，用于查找所有以任何字母开头和数字开头的文件
- 20
是否可以通过编程方式对很多动画进行重新着色？
- 21
机器密钥生成
我来说两句