我想使用ggplot2创建一个图形来显示部分均衡问题。我环顾四周寻找解决方案,却找不到一个。
我想在同一个图中绘制两个函数,最好使用ggplot2。我想绘制逆需求函数和离散边际成本曲线,其中x轴为Q,y轴为P.
边际成本曲线如下:
然后,
我可以绘制边际成本曲线,但我不熟悉使用ggplot2绘制自定义函数。我设法单独绘制函数,没有使用* function = *命令,但我无法修复可见域(xlim = c(0,300)),我无法将其与边际成本曲线结合起来。
提前致谢。
修改的
我到目前为止的代码如下:
# Graphic representation
#T1 is the discrete MgC curve
T1 <- as.data.table(c(0,75, 75,140, 140,300))
T1$P <- c(0.793,0.793,
0.956,0.956,
2.802,2.802)
setnames(T1, c("V1"),c("Q"))
#D0 is the inverse demand curve
D0 <- data.table(c(1,2,3,4,5))
setnames(D0,c("V1"),c("P"))
D0$Q <- ((D0$P)^(-0.14))*199.01
# Q1 and Q2 are quantities demanded when P=2.802 and 1.9 respectively
Q1 <- data.table(c(rep(199.01*(2.802)^-0.14,3)),c(0,2.5,5))
Q2 <- data.table(c(rep(199.01*(1.9)^-0.14,3)),c(0,2.5,5))
setnames(Q1,c("V1","V2"),c("Q","P"))
setnames(Q2,c("V1","V2"),c("Q","P"))
ggplot(mapping = aes(x = Q, y = P)) +
geom_line(data = T1, color = "red", size = 1) +
geom_path(data = D0, color = "blue", size = 1) +
geom_line(data = Q1, color = "green") +
geom_line(data = Q2, color = "green")