xlim``ylim不要在这里剪。您需要使用expand_limits、scale_x_continuous和scale_y_continuous。尝试：

df <- data.frame(x = 1:5, y = 1:5)
p <- ggplot(df, aes(x, y)) + geom_point()
p <- p + expand_limits(x = 0, y = 0)
p # not what you are looking for

p + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0))

您可能需要稍微调整一下以确保点不会被截断（例如，请参见 和 处的x = 5点y = 5。