如何绘制这四个随机变量的直方图。这行得通，但似乎不必要的长。
#libraries
library(tidyverse)
library(purrr)
# Standard deviation question
std_devs %>%
map(rnorm, n=1000, mean=75) %>%
do.call('rbind', .) %>%
t() %>%
as.data.frame() %>%
gather() %>%
ggplot(., aes(x=value))+geom_histogram()+facet_wrap(~key)
答案 0 :(得分：1)
<script>
WebFontConfig = {
google: { families: ['Oswald:400,300', 'Material+Icons'] }
};
(function(d) {
var wf = d.createElement('script'), s = d.scripts[0];
wf.src = 'https://ajax.googleapis.com/ajax/libs/webfont/1.6.26/webfont.js';
wf.async = true;
s.parentNode.insertBefore(wf, s);
})(document);
</script>
由purrr加载，因此您可以跳过该行。 tidyverse使其余部分更加简洁。
map_df