使用ggplot2绘制局部均衡图：单图展示两个函数

我明白你想要在同一个图里展示分段边际成本（MC）曲线和反需求函数的需求，之前手动生成少量点来画需求曲线的方式确实不够灵活，而且不好控制定义域。下面我会一步步帮你优化代码，解决这些问题：

核心改进点 #

• 用geom_function直接绘制反需求函数，无需手动生成点，曲线更平滑且能轻松控制定义域
• 优化边际成本曲线的数据构造，确保分段区间的端点准确
• 用更简洁的方式绘制垂直线（Q1和Q2）

完整代码示例 #

library(ggplot2)
library(data.table) # 如果你习惯用data.table，也可以替换为tibble/data.frame

# 1. 构造准确的边际成本(MC)曲线数据
# 每个分段的起点和终点严格对应需求区间，确保阶梯状显示正确
mc_data <- data.table(
  Q = c(0, 70, 70, 140, 140, 300),
  P = c(0.794, 0.794, 0.956, 0.956, 2.802, 2.802)
)

# 2. 定义反需求函数
inv_demand <- function(q) {
  # Q不能为0，后续绘图时从极小值开始规避无意义值
  (199 / q)^(1 / 0.14)
}

# 3. 计算Q1和Q2的具体数值
Q1 <- 199.01 * (2.802)^(-0.14)
Q2 <- 199.01 * (1.9)^(-0.14)

# 4. 绘制完整图表
ggplot() +
  # 绘制边际成本曲线
  geom_line(data = mc_data, aes(x = Q, y = P), color = "red", size = 1) +
  # 绘制反需求曲线，精准控制显示的x范围
  geom_function(fun = inv_demand, color = "blue", size = 1, xlim = c(0.1, 300)) +
  # 绘制Q1对应的垂直线
  geom_vline(xintercept = Q1, color = "green", linetype = "solid") +
  # 绘制Q2对应的垂直线
  geom_vline(xintercept = Q2, color = "green", linetype = "solid") +
  # 设置坐标轴范围，确保所有元素完整显示
  xlim(c(0, 300)) +
  ylim(c(0, 6)) +
  # 添加坐标轴标签和标题
  labs(x = "Quantity (Q)", y = "Price (P)", title = "局部均衡分析") +
  theme_minimal()

代码细节解释 #

1. 边际成本曲线：修正了区间端点（把你原来的75调整为70），严格匹配你描述的[0,70]、(70,140]、(140,+∞)区间，确保阶梯线的分段完全准确。
2. 反需求函数：用geom_function直接调用自定义函数，通过xlim参数精准控制曲线的显示范围，既避开了Q=0时的无意义值，又保证曲线连续平滑，比手动生成少量点的效果更专业。
3. 垂直线优化：用geom_vline代替构造data.table的方式，直接传入计算好的截距值，代码更简洁易读，维护起来也更方便。
4. 全局坐标轴控制：通过xlim和ylim统一设置整个图表的可见区域，确保MC曲线、需求曲线和垂直线都能在同一视野内清晰展示。

这样修改后，你就能在同一个图里直观看到MC曲线和反需求曲线的交点，以及指定的Q1、Q2位置啦。

内容的提问来源于stack exchange，提问作者Arturo Sbr