如何在highcharter中以y为因子生成散点图? [英] How to produce scatterplot with a factor as y in highcharter?
问题描述
我想用 显然, 是否有任何解决方法? (评论:我知道 举例: 假设我想根据类型生成发布时间表。 highcharter :: hchart $ c产生散点图$ c>,其中
y
是因子
,x是日期
$ b highcharter :: hchart
scatter
不接受因素变量作为y。
或者scatter
只是错误的图表类型?
ggplotly
会是一个不错的选择,但实际上我需要一个 highcharter
解决方案)
我想要一个带有 d $ type
(= y轴)和 d $ date
的散点图(= x轴)和 highcharter
工具提示应该显示 d $ title
, d $ type 和
d $ date
(格式正确)。
<$ c $ b $ library $(
$ library
$ lt; - data.frame(date =样本(seq(as.Date(2001/1/1),
as.Date(2003/1/1),
by =day),
30 ),#发布日期
title = stringi :: stri_rand_strings(30,5),#发布的标题
type = rep(c(book,article,tweet),
$ b#>观察值:30
#>变量:3
#> $日期<日期> 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>书籍,文章,推文,书籍,文章,推文,书籍,艺术...
### ggplot2:静态图
ggplot(d,aes(x = date ,
y = type))+
geom_point(aes(color = 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 )不工作,因为y是一个因素
hchart(d,
scatter,
hcaes(x = date,
y = type,
group = type) ))
显然, highcharter :: hchartscatter
不接受因子
为 y
。
我得到这个工作的唯一方法是将 d $ type
转换为numeric ...,然后将 xAxisLabels
和工具提示是错误的......
#B.)WORKING,因为y是数字
hchart((d %>%
mutate(typenum = as.numeric(type))),
scatter,
hcaes(x = date,
y = typenum,
group = typenum))
另一种方法是:
lvls< - d%>%拉(类型)%>%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-索引。所以当我们添加类别的名称时,highcharts将从0开始。
Problem:
I would like to produce a scatter plot with highcharter::hchart
, where y
is a factor
, and x is a date
.
Apparently, highcharter::hchart
"scatter"
does not accept factor variables as y.
Is there any workaround?
Or is "scatter"
just the wrong charttype?
(Comment: I know ggplotly
would be a good alternative, but I actually need a highcharter
solution)
Example:
Let's suppose I want to produce a timeline of publications by type.
I want a scatterplot with d$type
(=y-axis) and d$date
(=x-axis) and the highcharter
tooltip should show me d$title
, d$type
and d$date
(properly formatted).
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
does a nice job here.
However, I want the chart to be interactive (tooltip showing the title and so on...) So I'll give it a try with highcharter::hchart
:
### highcharter: interactive plot
# A.) NOT WORKING, because y is a factor
hchart(d,
"scatter",
hcaes(x = date,
y = type,
group = type))
Apparently, highcharter::hchart "scatter"
doesn't accept a factor
as y
.
The only way I get this working is transforming d$type
to numeric...but then the xAxisLabels
and the tooltip are wrong...
# B.) WORKING, because y is numeric
hchart((d %>%
mutate(typenum = as.numeric(type))),
"scatter",
hcaes(x = date,
y = typenum,
group = typenum))
An alternative would be:
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)
Note the as.numeric(type) - 1
, this is beacause Javascript and then highcharts is 0-index. So when we add the name of categories, highcharts will start with 0.
这篇关于如何在highcharter中以y为因子生成散点图?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!