добавить подстрочные/надстрочные индексы к меткам гистограммы

у меня есть этот сюжет

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)

r label ggplot2 superscript subscript
person Dario.gs    schedule 06.03.2018    source источник
comment
Возможный дубликат: stackoverflow .com/questions/28978011/   -  person MrFlick    schedule 07.03.2018
comment
Чтобы использовать верхние/нижние индексы на графиках, вам нужно использовать выражения. Дублирующаяся ссылка имеет основную идею (но использует индексы). В вашем случае вы, вероятно, хотите: scale_x_discrete(labels = parse(text=c("BRCA" = "BRCA^a", "BLCA" = "BLCA^{list(a, b)}", "ACC" = "ACC^b")))   -  person MrFlick    schedule 07.03.2018

Ответы (1)


arrow_upward
1
arrow_downward

Просто добавьте еще одну команду в свой 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")))

введите здесь описание изображения

person Felipe Alvarenga    schedule 06.03.2018