Tenho as duas perguntas a seguir: (1) Quero que o rótulo fique entre dois ticks. Meu pensamento original era adicionar os ticks secundários e remover os ticks primários, mas axis.minor.ticks.length.y não funciona (2) Adicione pontos stat_summary na legenda Muito obrigado por responder suas perguntas!
Aqui está o código e a figura:
library("ggplot2")
dt <- data.frame(
ca = rep(c("Oesophageal cancer", "Gastric cancer", "Colorectal cancer"), 3),
var1 = c(1:3, -4:-6, 7:9),
var2 = rep(LETTERS[1:3], 3)
)
dt %>%
ggplot(aes(var1, ca, fill = var2))+
geom_bar(stat="identity", width=0.8)+
stat_summary(fun=sum, geom="point",colour="grey40", fill="grey40", shape=20, size=2)+
geom_vline(xintercept=0, colour="grey30", linetype="dotted")+
theme(
axis.minor.ticks.length.y = rel(0.5)
)
Objetivo: Alterar o estilo da Figura 1 para a Figura 2
