下面是与ggplot2完全相同的图。主要任务是设置正确的binwidth和breaks：

library(ggplot2)

ggplot(mtcars, aes(x = mpg)) +
  geom_histogram(binwidth = 2, color = "black", fill = "grey80", breaks = seq(0, 160, by = 2)) +
  geom_vline(xintercept = 150, linetype = "dashed", color = "blue", size = 1) +
  scale_x_continuous(limits = c(-10, 160), expand = c(0, 0)) +
  scale_y_continuous(limits = c(0, 7.5), expand = c(0, 0)) +
  theme_classic()

但它真的改变了吗？

library(ggplot2)
library(patchwork)

p1 <- ggplot(data = mtcars, aes(x=mpg))+
  scale_x_continuous(c(0,160))+
  geom_histogram(binwidth = 15, color="black", fill="white") +
  ggtitle("just the histogram")
  
p2 <- ggplot(data = mtcars, aes(x=mpg))+
  scale_x_continuous(c(0,160))+
  geom_histogram(binwidth = 15, color="black", fill="white") +
  geom_vline(xintercept = 150, color= "blue", linetype="dashed") +
  ggtitle("with vline")

p1 + p2

创建于2023-04-22使用reprex v2.0.2
我不太清楚你期望“不改变”是什么。也许你希望ggplot看起来像base R：在这种情况下，您的问题将重复到：R - emulate the default behavior of hist() with ggplot2 for bin width