У меня есть образец dataframe:цвет текст в фаске легенды цвета в R ggplot2
dput (данные)
structure(list(DAF = c(0.00704225, 0.00352113, 0.00352113, 0.028169,
0.00352113, 0.00704225, 0.0105634, 0.00352113, 0.0105634, 0.00352113,
0.00352113, 0.00352113, 0.0176056, 0.0140845, 0.00352113, 0.0140845,
0.00352113, 0.0105634, 0.00352113, 0.00352113, 0.0140845, 0.00352113,
0.084507, 0.00352113, 0.0669014, 0.00704225, 0.00352113, 0.00352113,
0.00704225, 0.00352113, 0.00704225, 0.00352113, 0.00352113, 0.028169,
0.00352113, 0.00704225, 0.0105634, 0.00352113, 0.0105634, 0.00352113,
0.00352113, 0.00352113, 0.0176056, 0.0140845, 0.00352113, 0.0140845,
0.00352113, 0.0105634, 0.00352113, 0.00352113, 0.0140845, 0.00352113,
0.084507, 0.00352113, 0.0669014, 0.00704225, 0.00352113, 0.00352113,
0.00704225, 0.00352113), TYPE = structure(c(2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("All SVs", "bDEL"), class = "factor"),
Function = structure(c(2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L,
2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L,
2L, 2L, 2L, 2L, 2L, 1L), .Label = c("Genic", "Intergenic"
), class = "factor")), .Names = c("DAF", "TYPE", "Function"
), class = "data.frame", row.names = c(NA, -60L))
Я построен с использованием»
p1<-ggplot(sv,aes(x=DAF,y=..density..,fill=Function))+geom_histogram(position="dodge",binwidth=0.02)+facet_wrap(~ TYPE, scales = "free",ncol=2)
аннотированный текст из дата-карта:
> dput(dat)
structure(list(x = c(0.05, 0.05, 0.05, 0.05, 0.05, 0.05), y = c(20L,
17L, 14L, 35L, 30L, 25L), labs = structure(c(3L, 4L, 6L, 1L,
2L, 5L), .Label = c("mean=0.0173", "mean=0.0190", "mean=0.0415",
"mean=0.0440", "p=0.0393", "p=1.47e-08"), class = "factor"),
TYPE = structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c("All SVs",
"bDEL"), class = "factor")), .Names = c("x", "y", "labs",
"TYPE"), class = "data.frame", row.names = c(NA, -6L))
p2<-p1+geom_text(aes(x, y, label=labs),size=1,data=dat,inherit.aes = F)
который дает следующий сюжет:
Однако, я должен был бы цвет текста «означают = ...» внутри каждой грани по соответствующим цветом легенды. т.е. в фасете Все SV, «среднее значение = 0,0415» должно быть в «Геническом» цвете и «среднее значение = 0,0440» в цвете «Интергенический».
Откуда вы знаете, какое значение получает цвет функции, если он не находится в 'dat'? –