R中有平滑线的平滑线

Question

我有一个数据集，该数据集在两列中包含有关工资和税金总额的数据。您可以在下面的代码行中看到数据：

SAMPLE_WAGES_TAX_WEDGE_TEST<-data.frame(
  GROSS=c(10,20,30,40,50,60,70,80,90,100,200,300,400,500,600,700,800,900,1000),
  TAXWEDGE=c(30.1,30.4,30.7,30.9,29.1,28.9,28.6,28.5,27.9,27.2,27.1,27.0,27.0,26.8,25,24,23,21,19)
)

因此，我的意图是使用plotly软件包绘制图形，并从ggplot2中绘制一些类似函数geom_smooth（）的平滑线。

library(data.table)
library(plotly)

dat <-as.data.table(SAMPLE_WAGES_TAX_WEDGE_TEST)

fig <- plot_ly(dat, x = ~GROSS, y = ~TAXWEDGE, name = "Before reform", type = 'scatter',
               mode = 'lines',line = list(dash = "solid") )

我尝试使用这一行代码，但是我无法添加平滑行，所以任何人都可以帮助解决该问题吗？

Answer 1

有两种方法可以解决此问题：

1）将ggplot对象转换为plotly

ggfig <- ggplot(dat, aes(x=GROSS, y=TAXWEDGE) ) +
         geom_line() + geom_smooth()

ggplotly(ggfig)

2）geom_smooth()基于黄土平滑剂。您需要先安装黄土，然后将其与add_ribbons对象一起在plot_ly中使用。选中此出色的blog entry（最后一个示例），以获取有关黄土和其他平滑剂的实施指南。