R Highcharter中的密度圖

Question

我正在嘗試在highcharter R繪制類似的密度圖。 我對highcharter很highcharter ，任何指導都將不勝感激。

dt <- data.frame(x=rnorm(1000),y=sample(c(0,1),size = 1000,replace = T))
library(ggplot2)
ggplot(data = dt) +
  aes(x = x,fill=factor(y)) +
  geom_density(adjust = 1,alpha=0.5) 

我的嘗試：

library(highcharter)
library(dplyr)
hcdensity(density(dt$x), area = TRUE) %>% 
  hc_add_series(density(dt$y), area = TRUE)

Answer 1

看起來您想要兩條曲線（y = 0和y = 1）。 只會調用dt $ x的hcdensity，首先是y = 0。 然后對於y = 1，對hc_add_series使用'density'。 使用type ='area'填充。

hcdensity(dt$x[dt$y==0]) %>% 
  hc_add_series(density(dt$x[dt$y==1]), type='area')

如果要包括多條曲線或更通用的解決方案，請嘗試以下操作：

library(purrr)
tapply(dt$x, dt$y, density) %>%
  reduce(.f = hc_add_series, type='area', .init=highchart())

這很有幫助：

創建超過2組的高圖表密度