r - 通过 rCharts 格式化 Highcharts 图

Question

我在从 rCharts 中获取 highchart 图时遇到了一些问题。我的数据和预期的图表是这样的:

set.seed(123134)
y <- rnorm(20, 35, 4)
y[7] <- NA
y[13] <- NA
y <- rbind(t(t(y)), t(t(rep(NA, 10))))
fc <- rnorm(10, 35, 1)
fc <- rbind(t(t(rep(NA,20))), t(t(fc)))
uci <- rnorm(10, 38, 1)
uci <- rbind(t(t(rep(NA,20))), t(t(uci)))
lci <- rnorm(10, 32, 1)
lci <- rbind(t(t(rep(NA,20))), t(t(lci)))
plotData <- data.frame(y,fc,uci,lci)

h1 <- Highcharts$new()
h1$chart(type="line")
h1$series(data=plotData$y)
h1$series(data=plotData$fc)
h1$series(data=plotData$uci)
h1$series(data=plotData$lci)
h1$series(data=rep(30,30))
h1

主要是一些带有缺失值的观测数据，预测和相应的区间以及水平线显示的某个限制。现在，有些事情我想不通:

1. 我希望预测和时间间隔具有相同的样式。如何将这三个系列的点样式改为相同的样式？
2. 水平线不一定是交互式的。是否可以选择绘制一条简单的水平线？我没有让它与来自 http://docs.highcharts.com 的引用一起使用
3. 如何从图例中删除某些系列？特别是我不希望图例中包含间隔。
4. 有没有办法在观察到的数据中插入缺失值？还是我必须提前手动执行此操作？

Answer 1

您好 @user2691669 欢迎来到 SO。我将尝试解决您的 4 个问题。

1. 要设置样式，请使用带有选项 symbol = your style 的标记
2. 要删除标记，请使用启用了选项的标记 = FALSE
3. 要在图例中不显示系列节目，请使用 showInLegend = FALSE
4. 要插入缺失值，我可以提供的最佳方法是 connectNulls = TRUE

您可以编写代码来实现上述内容:

set.seed(123134)
y <- rnorm(20, 35, 4)
y[7] <- NA
y[13] <- NA
y <- rbind(t(t(y)), t(t(rep(NA, 10))))
fc <- rnorm(10, 35, 1)
fc <- rbind(t(t(rep(NA,20))), t(t(fc)))
uci <- rnorm(10, 38, 1)
uci <- rbind(t(t(rep(NA,20))), t(t(uci)))
lci <- rnorm(10, 32, 1)
lci <- rbind(t(t(rep(NA,20))), t(t(lci)))
plotData <- data.frame(y,fc,uci,lci)

h1 <- Highcharts$new()
h1$chart(type="line")
h1$series(data=plotData$y, marker = list(symbol = 'circle'), connectNulls = TRUE)
h1$series(data=plotData$fc, marker = list(symbol = 'circle'), connectNulls = TRUE)
h1$series(data=plotData$uci, showInLegend = FALSE, marker = list(symbol = 'square'), connectNulls = TRUE)
h1$series(data=plotData$lci, showInLegend = FALSE, marker = list(symbol = 'square'), connectNulls = TRUE)
h1$series(data=rep(30,30), marker= list(enabled = FALSE))
h1

可以在HighCharts api 看到各种选项。文档。例如，标记选项位于 this link。 .