r - 将散点图和折线图与 R 中的 highcharter 相结合

Question

我是 highcharter 包的新手。我想在散点图上添加一条线(回归线)。这看起来很简单，但我无法破解它。我可以使用 hchart() 单独制作它们，但它们不会合并。

library(broom)
library(dplyr)
library(highcharter)

lm.model <- augment(lm(mpg ~ wt, data = mtcars))

lm.model %>%
  hchart(type = "scatter", hcaes(x = wt, y = mpg))

lm.model %>%
  hchart(type = "line", hcaes(x = wt, y = .fitted)

我也尝试过使用 hc_add_series_scatter() 但我没有找到类似的线函数。

highchart() %>%
  hc_add_series_scatter(x = lm.model$wt, y = lm.model$mpg)

甚至可以组合两种图表类型吗？

Answer 1

尝试

highchart() %>%
  hc_add_series(lm.model, "scatter", hcaes(wt, mpg)) %>% 
  hc_add_series(lm.model, "line", hcaes(x = wt, y = .fitted))

输出是