R: Split metricsgraphics гистограмма фактором

Question

У меня есть кадр данных, который выглядит вроде следующего:

'data.frame': 400 obs. of 4 variables: 
$ admit: Factor w/ 2 levels "rejected","accepted": 1 2 2 2 1 2 2 1 2 1 ... 
$ gpa : num 3.61 3.67 4 3.19 2.93 3 2.98 3.08 3.39 3.92 ... 

Теперь я хотел бы, чтобы превратить это в гистограмме ГПА с использованием пакета metricsgraphics, но расколоть данные по коэффициенту «признать». Как это делается?

Использование ggplot я могу сделать что-то вроде следующего:

ggplot(data, aes(gpa)) + 
geom_histogram(aes(fill=admit, y=..density..), 
      position="dodge", 
      binwidth=0.1 
     ) 

, но я смотрю на то, как конкретно сделать это с помощью metricsgraphics. я в настоящее время

mjs_plot(data, x = gpa) %>% 
    mjs_histogram(bins = 80) 

, но это, конечно, не делится на коэффициент.

Answer 1

Думаю, вам придется производить каждый сюжет и устраивать его в сетку. От package vignette:

moar_plots <- lapply(1:7, function(x) { 
    mjs_plot(rbeta(10000, x, x), width="250px", height="250px", linked=TRUE) %>% 
    mjs_histogram(bar_margin=2) %>% 
    mjs_labs(x_label=sprintf("Plot %d", x)) 
}) 

mjs_grid(moar_plots, nrow=4, ncol=3, widths=c(rep(0.33, 3)))