Согласитесь ли вы использовать geom_vline
?
ggplot(mpg, aes(class)) + geom_bar(aes(weight = displ)) +
geom_vline(xintercept= seq_along(unique(mpg$class)) + 0.45, color = "blue") +
theme(panel.grid.major.x = element_blank())
Другой вариант может заключаться в использовании position_nudge
, но тогда вы нужно беспокоиться о позиции axis.text.x
и заполнении предела x.
ggplot(mpg, aes(x = class)) + geom_bar(aes(weight = displ), position = position_nudge(-0.45)) +
scale_x_discrete(expand = c(0.1,0.4)) +
theme(panel.grid.major.x = element_line(colour="blue", size=0.5),
axis.text.x = element_text(hjust = 1))