用r语言ggplot2画图设置y轴范围和刻度不expand

以下是一份用R语言ggplot2绘制图形，并设置y轴范围和刻度，同时不使用expand的代码示例：

library(ggplot2)

# 创建数据集
x <- seq(1, 10, 1)
y <- x^2
data <- data.frame(x, y)

# 绘制散点图
ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  # 设置y轴范围和刻度
  scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, 25)) +
  # 不使用expand
  theme(plot.margin = unit(c(1, 1, 1, 1), "cm"),
        axis.line = element_line(size = 1),
        axis.line.y = element_line(colour = "black", size = 1),
        axis.line.x = element_line(colour = "black", size = 1),
        axis.text = element_text(size = 14),
        axis.text.y = element_text(margin = margin(r = 10, unit = "pt")),
        axis.text.x = element_text(margin = margin(t = 5, unit = "pt")),
        axis.title = element_text(size = 16),
        panel.grid.major = element_line(colour = "gray", size = 0.5),
        panel.grid.minor = element_line(colour = "gray", size = 0.5),
        panel.border = element_blank(),
        panel.background = element_blank(),
        panel.spacing = unit(0.5, "lines"))

在上述代码中，我们使用了scale_y_continuous函数来设置y轴的范围和刻度。具体来说，limits参数指定y轴的范围为0到100，breaks参数指定y轴的刻度为0、25、50和100。同时，我们还使用了theme函数来设置图表的样式，其中axis.line、axis.line.y和axis.line.x参数用于设置坐标轴线的样式，axis.text、axis.text.y和axis.text.x参数用于设置坐标轴标签的样式，axis.title参数用于设置坐标轴标题的样式，panel.grid.major和panel.grid.minor参数用于设置网格线的样式，panel.border参数用于设置面板边框的样式，panel.background参数用于设置面板背景的样式，panel.spacing参数用于设置面板元素之间的间距。这些样式设置可以根据需要进行调整