如何在Dygraphs中缩放点？
我使用伟大的dygraphs软件包R（https://rstudio.github.io/dygraphs/）
我现在的代码是：
james<-mtcars[c("mpg","drat")]
james$date<-seq(from=as.Date("2013-05-16"),to=as.Date("2013-06-16"),by="days")
x <- xts::xts(james$mpg, order.by = james$date)
p <- dygraphs::dygraph(x, main = "mpg over time", xlab = "Date", ylab = "mpg") %>%
dygraphs::dyRangeSelector() %>%
dyOptions(drawPoints = TRUE, pointSize = 2)
p
我想通过james$drat p中点的大小，而不是将它固定为2。
我怎样才能做到这一点？
我认为dygraphs JavaScript库没有选择每个系列中不同的点大小。 一个非常简单的解决方法是为每个点大小创建一个系列。
让我们说我们需要5种不同的james$drat值，与james$drat不同。 首先，根据drat的值创建一个值为1-5的分箱变量：
drat_binned <- cut(james$drat, breaks=5, labels=1:5)
然后我们创建5个情节的y变量（ james$mpg ）：
james_new_variables <- matrix(rep(james$mpg, 5), nrow=nrow(james))
对于第1列，我们只保留drat_binned等于1的mpg值，对应列2-5。 然后将这些变量添加到原始数据集中：
for (i in 1:5)
james_new_variables[drat_binned != i, i] <- NA
james <- data.frame(james, james_new_variables)
然后我们对原始变量加上新变量（默认名称为X1-X5 ）做一个新的dygraph ：
x <- xts::xts(james[,c("mpg","X1","X2","X3","X4","X5")], order.by = james$date)
p <- dygraphs::dygraph(x, main = "mpg over time", xlab = "Date", ylab = "mpg") %>%
dygraphs::dyRangeSelector() %>%
dySeries("mpg") %>%
dySeries("X1", color="blue", drawPoints = TRUE, pointSize = 2) %>%
dySeries("X2", color="blue", drawPoints = TRUE, pointSize = 3) %>%
dySeries("X3", color="blue", drawPoints = TRUE, pointSize = 4) %>%
dySeries("X4", color="blue", drawPoints = TRUE, pointSize = 5) %>%
dySeries("X5", color="blue", drawPoints = TRUE, pointSize = 6) %>%
p
不是很优雅，但有点作品。 揭示使用的诀窍唯一的事情就是图例，它会与X1-X5标签混淆。
我知道这是一个老问题，但我已经使用drawPointCallback找到了一个潜在的解决方案。 我希望它能帮助那里的人。 如果您不想使用原始数字，您可以在R或JavaScript中选择一个比例。
library(dygraphs)
james<-mtcars[c("mpg","drat")]
james$date<-seq(from=as.Date("2013-05-16"),to=as.Date("2013-06-16"),by="days")
x <- xts::xts(james$mpg, order.by = james$date)
p <- dygraphs::dygraph(x, main = "mpg over time", xlab = "Date", ylab = "mpg") %>%
dygraphs::dyRangeSelector() %>%
dyOptions(drawPoints = TRUE)
p %>%
dyCallbacks("drawPointCallback" = sprintf(
"
function(g, name, ctx, canvasx, canvasy, color, radius, index) {
var drat = %s;
radius = drat[index];
return Dygraph.Circles.DEFAULT(g, name, ctx, canvasx, canvasy, color, radius)
}
",
jsonlite::toJSON(mtcars$drat)
)
)