用plot()画边际税率图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想画一个边际税率图，代码是：
N <- 120
x <- (0:N)*1000
m <- sapply(x, TaxRate1994)
par(mai=c(2,0.5,0.5,0.5))

plot(x/1000, slope(m,x), ylim=c(0,0.5),type="l",
     main="China's marginal tax rates in 1994, 2011 and 2018 (price constant)",
     xlab="Taxable Income (in thousands)",
     ylab="Income Tax Rate",
     lty=4,lwd=1, col="red", xaxt="n",yaxt="n")
axis(1,at=c(0,20,40,60,80,100,120))
axis(2,at=c(0,0.1,0.2,0.3,0.4,0.5,0.6))


但是画出来变成这样：



尝试把点变多，
N <- 120000
x <- (0:N)
m <- sapply(x, TaxRate1994)
names(TaxRate1994)
par(mai=c(2,0.5,0.5,0.5))


却变成了下面这样：

我想要的图是这样的：


请问有没有大神能帮忙呀！研究了好久都没研究出来

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：边际税率

这些图有哪些你认为不对的地方呢？你认为正确的图形应该是什么样子的呢？

学习了一波

allain 发表于 2018-10-30 08:42
这些图有哪些你认为不对的地方呢？你认为正确的图形应该是什么样子的呢？

第一个图就是它是斜的，但是边际税率理论上过渡时应该是直的
第二个图就是那条蓝色凸出来了