我正在尝试删除面积图（使用highchart在R中创建）左右两侧的白色区域，该区域在下图中以红色显示。

我的可复制代码：

library(highcharter)

type <- c("A", "B", "C", "D","A", "B", "C", "D","A", "B", "C", "D")
total <- c(3300, 6080, 2780, 14054, 3638, 6360, 2722, 14148, 2681, 4761, 2080, 10080)
year <- c(2018, 2018, 2018, 2018, 2019, 2019, 2019, 2019, 2020, 2020, 2020, 2020)
df <- data.frame(type, year, total)

highchart() %>%

  hc_chart(type="area") %>%
  hc_add_series(data = subset(df, type == "D"), name = "D", type = "area", hcaes(x = year, y = total)) %>%
  hc_add_series(data = subset(df, type == "B"), name = "B", type = "area", hcaes(x = year, y = total)) %>%
  hc_add_series(data = subset(df, type == "C"), name = "C", type = "area", hcaes(x = year, y = total)) %>%
  hc_add_series(data = subset(df, type == "A"), name = "A", type = "area", hcaes(x = year, y = total)) %>%

  hc_xAxis(title = "", categories = c("2018", "2019", "2020"))

我在网上找过，但我不知道JavaScript，所以很难弄清楚。