Я рисую следующие данные с помощью ggplot:
df<- data.frame(name= c("g1","g1","p1","p1"),fc = c(-1.32,-2.11,-1.17,-3.23),fdr = c(.0001,.0001,.07,.0002),cond= c("2v1","3v1","2v1","3v1"))
head(df)
name fc fdr cond
g1 -1.32 .0001 2v1
g1 -2.11 .0001 3v1
p1 -1.17 .07 2v1
p1 -3.23 .0002 3v1
Используя код ggplot:
df$name<- as.factor(df$name)
df$name <- relevel(df$name, as.character(df$name[3]))
ggplot(df, aes(name,fc), group=variable)+
geom_col(aes(fill=factor(as.numeric(fdr)<0.05)), width = 0.98,color="white")+
coord_flip()+scale_fill_manual(values = c("FALSE"= "#00BFC4","TRUE"= "#F8766D"))+
geom_hline(yintercept = 0, colour = "gray" )+
geom_text(aes(label=round(fc,2)),angle = 90, position = position_stack(vjust = 0.5), size =3.5, color= "white")
График для p1 кажется перевернутым, где полоса для -1,17 находится вверху, а метка все еще внизу. Я хочу, чтобы серая полоса была внизу, а метка «1.17» посередине. Буду признателен за любую помощь, которую я могу получить. Спасибо