散点曲线拟合

[Miachol]

---

due: 2021-06-27

Contact: 陈永明 / Angusbio@126.com Tool: https://hiplot.com.cn/basic/ggscatterstats 工具包中只有线性拟合，缺少对于散点分布是非线性拟合的工具包

[ShixiangWang]

https://indrajeetpatil.github.io/ggstatsplot/reference/ggscatterstats.html 查了下没有开发非线性的接口。

[ShixiangWang]

开发者把拟合可视化参数固定死了为 lm

> set.seed(123)
> library(ggstatsplot)
> 
> # creating dataframe with rownames converted to a new column
> mtcars_new <- as_tibble(mtcars, rownames = "car")
> 
> # simple function call with the defaults
> if (require("ggExtra")) {
+     ggscatterstats(
+         data = mtcars_new,
+         x = wt,
+         y = mpg,
+         label.var = car,
+         label.expression = wt < 4 & mpg < 20,
+         # making further customization with `ggplot2` functions
+         ggplot.component = list(ggplot2::geom_rug(sides = "b")), smooth.line.args = list(method = stats::loess)
+     )
+ }
Error in (function (mapping = NULL, data = NULL, stat = "smooth", position = "identity",  : 
  formal argument "method" matched by multiple actual arguments

[ShixiangWang]

https://github.com/IndrajeetPatil/ggstatsplot/issues/617 挂一个issue，但开发者不一定会实施，因为很多参数都与线性拟合是关联的。

[ShixiangWang]

@Miachol 需要你根据 https://github.com/IndrajeetPatil/ggstatsplot/issues/617#issuecomment-864757877 增强下。