R语言通过收入和消费的一个表格，以可支配收入为x轴，画出APC和MPC

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求大神帮忙，以可支配收入为x轴，画出估计的MPC和APC

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

1. #是不是这样？没有数据，所以随机生成。
   
2. library(dplyr)
   
3. library(ggplot2)
   
4. x=rnorm(10,700, 50)+seq(1200,3000,by=200)#x代表可支配收入
   
5. y=-100+0.8*x+rnorm(10,0,1)#y代表消费支出，0.8代表边际消费倾向。
   
6. df <- data.frame(x,y)
   
7. df <- df %>% mutate(mpc=0.8,apc=y/x)
   
8. df <- df[order(x),]
   
9. ggplot(data=df,aes(x=x))+
   
10.   geom_line(aes(y=mpc,col="MPC"))+
    
11.   geom_line(aes(y=apc,col="APC"))+
    
12.   labs(x="可支配收入",y="MPC, APC")

复制代码

附图如下所示：