在双y轴ggplot中调整y轴限制

library(ggplot2)

# 创建示例数据
data <- data.frame(
  Month = seq(as.Date("2022-01-01"), by = "month", length.out = 12),
  Sales = runif(12, min = 50, max = 150), # 销售额（万元）
  Profit = runif(12, min = 10, max = 30)  # 利润（千元）
)

# 绘制双y轴ggplot图表
ggplot(data, aes(x = Month)) +
  geom_line(aes(y = Sales, color = "Sales")) +
  geom_line(aes(y = Profit * 10, color = "Profit")) + # 利润乘以10以匹配销售额的量纲
  scale_y_continuous(
    name = "Sales (万元)",
    sec.axis = sec_axis(~./10, name = "Profit (千元)")
  ) +
  scale_color_manual(values = c("Sales" = "blue", "Profit" = "red")) +
  theme_minimal()

ggplot(data, aes(x = Month)) +
  geom_line(aes(y = Sales, color = "Sales")) +
  geom_line(aes(y = Profit * 10, color = "Profit")) +
  coord_cartesian(ylim = c(0, 200)) + # 调整主y轴视图范围
  scale_y_continuous(
    name = "Sales (万元)",
    sec.axis = sec_axis(~./10, name = "Profit (千元)"),
    limits = c(0, 200) # 设置主y轴的实际范围
  ) +
  scale_color_manual(values = c("Sales" = "blue", "Profit" = "red")) +
  theme_minimal()