Наложение гистограммы с использованием rbokeh

Question

Я пытаюсь создать наложенную гистограмму, используя rbokeh,

Пример можно найти ниже:

library(rbokeh)
# Simple approach:
h1 <- figure(width = 600, height = 400) %>%
            ly_hist(eruptions, data = faithful, breaks = 40, freq = T)

# Overlaying approach:
faithful$grouper <-  sample(c("A","B"), 272, replace = T)

h2 <- figure(width = 600, height = 400) %>%
            ly_hist(eruptions, data = faithful, breaks = 40, freq = T, color = grouper)

Я не уверен, что color вариант будет предоставлять эту функциональность.

Спасибо за вашу помощь.