如何在highcharter中生成因子为y的散点图?

Posted

技术标签:

【中文标题】如何在highcharter中生成因子为y的散点图?【英文标题】:How to produce scatterplot with a factor as y in highcharter? 【发布时间】:2018-08-08 14:25:48 【问题描述】:

问题:

我想用highcharter::hchart 生成散点图,其中yfactor,x 是date

显然,highcharter::hchart "scatter" 不接受因子变量作为 y。

有什么解决方法吗? 还是 "scatter" 只是错误的图表类型?

(评论:我知道ggplotly 会是一个不错的选择,但我实际上需要highcharter 解决方案)


例子:

假设我想生成一个按类型发布的时间表。 我想要一个带有d$type(=y 轴)和d$date(=x 轴)的散点图,highcharter 工具提示应该显示d$titled$typed$date(格式正确)。

library(stringi)
library(tidyverse)
library(highcharter)

### create example data
d <- data.frame(date = sample(seq(as.Date("2001/1/1"),
                                  as.Date("2003/1/1"),
                                  by = "day"),
                              30), # Date of publication
                title = stringi::stri_rand_strings(30, 5), # Title of publication
                type = rep(c("book","article","tweet"),
                           length.out=30)) # Publication type
glimpse(d)
#>Observations: 30
#>Variables: 3
#>$ date  <date> 2001-02-21, 2001-12-31, 2002-09-02, 2002-12-11, 2001-...
#>$ title <fct> NvHuI, 81HoS, TsyWs, KbTT2, I2p4f, ASasv, HuclA, cmihb...
#>$ type  <fct> book, article, tweet, book, article, tweet, book, arti...


### ggplot2: static plot
ggplot(d, aes(x=date,
              y=type)) +
  geom_point(aes(colour=type), 
             alpha=0.5,
             size = 3) + 
  scale_x_date(date_labels = "%m / %Y") +
  theme_light() +
  theme(panel.grid.minor.x = element_blank())

ggplot2::geom_points 在这里做得很好。

但是,我希望图表具有交互性(显示标题等的工具提示...)所以我将尝试使用 highcharter::hchart

### highcharter: interactive plot
# A.) NOT WORKING, because y is a factor
hchart(d,
       "scatter",
       hcaes(x = date,
             y = type,
             group = type))   

显然,highcharter::hchart "scatter" 不接受 factor 作为 y

我得到这个工作的唯一方法是将d$type 转换为数字...但是xAxisLabels 和工具提示是错误的...

# B.) WORKING, because y is numeric
hchart((d %>% 
          mutate(typenum = as.numeric(type))), 
       "scatter",
       hcaes(x = date,
             y = typenum,
             group = typenum))   

【问题讨论】:

【参考方案1】:

另一种选择是:

lvls <- d %>% pull(type) %>% levels()

d %>% 
  mutate(typenum = as.numeric(type) - 1) %>% 
  hchart("scatter", hcaes(x = date, y = typenum, group = type)) %>% 
  hc_yAxis(categories = lvls)

注意as.numeric(type) - 1,这是因为 javascript,然后 highcharts 是 0-index。所以当我们添加类别名称时,highcharts 会以 0 开头。

【讨论】:

很好的答案,顺便说一句很棒的包@jbkunst,你是最棒的!

以上是关于如何在highcharter中生成因子为y的散点图?的主要内容,如果未能解决你的问题,请参考以下文章

Matplotlib 中的散点图轮廓

带有误差条的散点图

如何组合散点图以形成具有公共 X 轴的散点图矩阵以用于不同的 Y 轴?

是否可以通过高度图绘制带有正方形符号的散点图

Excel中如何正确地画XY散点图

Matplotlib 散点图和颜色图的问题