如何创建highcharts点打印图?-高宪章

如何创建highcharts点打印图?-高宪章,r,highcharts,r-highcharter,R,Highcharts,R Highcharter,如何使用Rhighcharter包创建这样的highcharts图 它是0上方或下方扇区(实例)的简单计数,并用颜色反映值 这有时被称为点图() 来自()的图像 一些样本数据: data = data.table( CJ(date = seq(as.IDate("2019-01-01"), as.IDate("2019-01-10"), by = "day"), group = seq(1,20)) ) data[, value := runif(n=200, -5,5)]

如何使用R
highcharter
包创建这样的highcharts图

它是0上方或下方扇区(实例)的简单计数,并用颜色反映值

这有时被称为点图()

来自()的图像

一些样本数据:

data = data.table(
  CJ(date = seq(as.IDate("2019-01-01"), as.IDate("2019-01-10"), by = "day"),
     group = seq(1,20))
)

data[, value := runif(n=200, -5,5)]

就我所知:

library(highcharter)
library(data.table)

data = data.table(
  CJ(date = seq(as.Date("2019-01-01"), as.Date("2019-02-10"), by = "day"),
     group = seq(1,20))
)

# generate random value
data[, value := round(runif(n=dim(data)[1], -5,5),4)]

# categorize it from 1 to 10
data[, cat:=cut(value, breaks=quantile(data[value!=0]$value, seq(0,1,0.1)), labels=seq(1,10))]

# assign colour based on value
colf = colorRampPalette(colors = c("red","yellow", "green"))
cols = colf(10)
data[, color := as.factor(cols[cat])]

# generate x and y
data[, x := datetime_to_timestamp(date)]
data[, y := order(order(value))-sum(value<0), date]

data[, name := group]

highchart() %>%
  hc_chart(type = "scatter") %>%
  hc_xAxis(type = "datetime", dateTimeLabelFormats = list(day = '%d of %b')) %>%
  hc_tooltip(pointFormat = "Performance = <b>{point.value}</b> <br> Group = <b>{point.name}</b>") %>%
  hc_add_theme(hc_theme_flat(chart = list(backgroundColor = "#FFF"))) %>%
  hc_add_series(data, groupPadding=0)
库(highcharter)
库(数据表)
data=data.table(
CJ(日期=序号(截止日期(“2019-01-01”)、截止日期(“2019-02-10”)、截止日期,
组=序号(1,20))
)
#生成随机值
数据[,值:=四舍五入(runif(n=dim(数据)[1],-5,5),4)]
#把它从1分到10分
数据[,类别:=切割(值,分段=分位数(数据[值!=0]$value,序号(0,1,0.1)),标签=序号(1,10))]
#根据值指定颜色
colf=颜色调色板(颜色=c(“红色”、“黄色”、“绿色”))
cols=colf(10)
数据[,颜色:=换算系数(cols[cat])]
#生成x和y
数据[,x:=日期时间戳(日期)]
数据[,y:=订单(订单(价值))-总和(价值%)
hc_图表(type=“scatter”)%>%
hc_xAxis(type=“datetime”,dateTimeLabelFormats=列表(日期=“%d,共%b”))%>%
hc_工具提示(pointFormat=“Performance={point.value}
Group={point.name}”)%>% hc#U添加#U主题(hc#U主题平面(图表=列表(backgroundColor=“#FFF”)))%%>% hc_添加_系列(数据,分组填充=0)

它还适用于更多点:

Hi.一般来说,Highcharts不提供这样的图形。它可以使用散点系列来实现,但需要一些定制(在JavaScript中)。将这些定制调整到R将更加困难。不幸的是,它远远超出了标准Highcharts支持范围,但如果您有进一步的问题,可以通过以下方式与Highcharts支持团队联系:support@highcharts.comthis是真的,我已经管理了一个bit@raf18seb有没有办法让它显示不同的群体是不同的图表上的系列?(请看我的答案)这真的很有趣。我用你的代码重新创建了华尔街日报图表,效果非常好……直到我有了几十个时间片——在这一点上,图表中的所有点都变成了橙色,但工具提示保持了指定的颜色值。听起来像是一个奇怪的highchart问题,可能是因为显示的点太多了,而且它可能我无法处理它?我设法让它在2000点以上工作(见答案)。是的,我怀疑这是一个highcharts(或highcharter)问题。我正在使用highcharter v0.7.0.9000。这绝对是一种展示LMI数据的有趣方式。