在ggplot2中手动向x和y轴添加断点

library(ggplot2)

# 创建一个简单的数据集
data <- data.frame(x = c(1, 2, 3, 4, 5),
                   y = c(1, 4, 9, 16, 25))

# 绘制散点图
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point()

# 手动向x轴添加断点
p + scale_x_continuous(breaks = c(1, 3, 5))

# 手动向y轴添加断点
p + scale_y_continuous(breaks = c(5, 10, 15, 20, 25))

p + scale_x_continuous(breaks = c(1, 3, 5)) +
  scale_y_continuous(breaks = c(5, 10, 15, 20, 25))