如何使用给定的 function 绘制供给需求曲线？

Question

我想使用我写的 function 绘制供需曲线，以查找需求、供应和名义利率：

y_demand <- function(pi, a, b, rbar, m, pibar) {
  R_t <- m*(pi - pibar) + rbar
  yd <- a - b*(R_t - rbar)
  return(yd)
}

y_supply <- function(pi, pi_lag, nu, o) {
  ys <- (pi - pi_lag - o) / nu
  return(ys)
}


nominal_interest_rate <- function(pi, m, pibar, rbar) {
  R_t <- m*(pi - pibar) + rbar
  return(R_t)
}

参数：

我想要一些东西，例如：

使用创建的函数创建以下典型的“AD-AS”图：

1. 需求和供给曲线与上面的参数值一样
2. 具有正需求冲击的图表（=.1）
3. 具有正供给冲击的图表 (ot =.1)