我有以下两个问题:(1)我想让标签位于两个刻度之间。我最初的想法是添加辅助刻度并删除主刻度,但是 axis.minor.ticks.length.y 不起作用 (2) 在图例处添加 stat_summary 点 非常感谢您回答您的问题!
这是代码和图:
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)
)
目的:将图1改为图2样式