Plot multiple histograms with purrr::map and ggplot2

up vote
0
down vote

favorite

How do I plot the histograms for these four random variables . This works, but it seems unneccessarily long.

#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)

edited Nov 10 at 14:57

Richard Telford

5,72742335

asked Nov 10 at 12:00

spindoctor

366218

what it std_devs?
– Richard Telford
Nov 10 at 12:09

Apologies, I missed that. The answer below figured out what I meant.
– spindoctor
yesterday

add a comment |

up vote
0
down vote

favorite

How do I plot the histograms for these four random variables . This works, but it seems unneccessarily long.

#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)

edited Nov 10 at 14:57

Richard Telford

5,72742335

asked Nov 10 at 12:00

spindoctor

366218

what it std_devs?
– Richard Telford
Nov 10 at 12:09

Apologies, I missed that. The answer below figured out what I meant.
– spindoctor
yesterday

add a comment |

up vote
0
down vote

favorite

How do I plot the histograms for these four random variables . This works, but it seems unneccessarily long.

#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)

edited Nov 10 at 14:57

Richard Telford

5,72742335

asked Nov 10 at 12:00

spindoctor

366218

How do I plot the histograms for these four random variables . This works, but it seems unneccessarily long.

#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)

r ggplot2 tidyverse purrr

edited Nov 10 at 14:57

Richard Telford

5,72742335

asked Nov 10 at 12:00

spindoctor

366218

edited Nov 10 at 14:57

Richard Telford

5,72742335

asked Nov 10 at 12:00

spindoctor

366218

edited Nov 10 at 14:57

Richard Telford

5,72742335

edited Nov 10 at 14:57

Richard Telford

5,72742335

edited Nov 10 at 14:57

Richard Telford

5,72742335

asked Nov 10 at 12:00

spindoctor

366218

asked Nov 10 at 12:00

spindoctor

366218

asked Nov 10 at 12:00

spindoctor

366218

what it std_devs?
– Richard Telford
Nov 10 at 12:09

Apologies, I missed that. The answer below figured out what I meant.
– spindoctor
yesterday

add a comment |

what it std_devs?
– Richard Telford
Nov 10 at 12:09

Apologies, I missed that. The answer below figured out what I meant.
– spindoctor
yesterday

what it std_devs?
– Richard Telford
Nov 10 at 12:09

Apologies, I missed that. The answer below figured out what I meant.
– spindoctor
yesterday

add a comment |

1 Answer
1

active

oldest

votes

up vote
0
down vote

accepted

purrr is loaded by tidyverse so you can skip that line. map_df makes the rest much more condensed.

library(tidyverse)



# Standard deviation question

set.seed(10)

std_devs <- 1:4

std_devs %>% 

  map_df(~data_frame(key = ., value = rnorm(n=1000, mean=75, sd = .))) %>% 

    ggplot(aes(x=value))+geom_histogram()+facet_wrap(~key)

edited Nov 10 at 14:57

answered Nov 10 at 12:15

Richard Telford

5,72742335

add a comment |

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53238721%2fplot-multiple-histograms-with-purrrmap-and-ggplot2%23new-answer', 'question_page');
}
);

Post as a guest

Name

1 Answer
1

active

oldest

votes

1 Answer
1

active

oldest

votes

up vote
0
down vote

accepted

purrr is loaded by tidyverse so you can skip that line. map_df makes the rest much more condensed.

library(tidyverse)



# Standard deviation question

set.seed(10)

std_devs <- 1:4

std_devs %>% 

  map_df(~data_frame(key = ., value = rnorm(n=1000, mean=75, sd = .))) %>% 

    ggplot(aes(x=value))+geom_histogram()+facet_wrap(~key)

edited Nov 10 at 14:57

answered Nov 10 at 12:15

Richard Telford

5,72742335

add a comment |

up vote
0
down vote

accepted

purrr is loaded by tidyverse so you can skip that line. map_df makes the rest much more condensed.

library(tidyverse)



# Standard deviation question

set.seed(10)

std_devs <- 1:4

std_devs %>% 

  map_df(~data_frame(key = ., value = rnorm(n=1000, mean=75, sd = .))) %>% 

    ggplot(aes(x=value))+geom_histogram()+facet_wrap(~key)

edited Nov 10 at 14:57

answered Nov 10 at 12:15

Richard Telford

5,72742335

add a comment |

up vote
0
down vote

accepted

purrr is loaded by tidyverse so you can skip that line. map_df makes the rest much more condensed.

library(tidyverse)



# Standard deviation question

set.seed(10)

std_devs <- 1:4

std_devs %>% 

  map_df(~data_frame(key = ., value = rnorm(n=1000, mean=75, sd = .))) %>% 

    ggplot(aes(x=value))+geom_histogram()+facet_wrap(~key)

edited Nov 10 at 14:57

answered Nov 10 at 12:15

Richard Telford

5,72742335

purrr is loaded by tidyverse so you can skip that line. map_df makes the rest much more condensed.

library(tidyverse)



# Standard deviation question

set.seed(10)

std_devs <- 1:4

std_devs %>% 

  map_df(~data_frame(key = ., value = rnorm(n=1000, mean=75, sd = .))) %>% 

    ggplot(aes(x=value))+geom_histogram()+facet_wrap(~key)

edited Nov 10 at 14:57

answered Nov 10 at 12:15

Richard Telford

5,72742335

edited Nov 10 at 14:57

answered Nov 10 at 12:15

Richard Telford

5,72742335

answered Nov 10 at 12:15

Richard Telford

5,72742335

answered Nov 10 at 12:15

Richard Telford

5,72742335

add a comment |

draft saved

draft discarded

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Name

This page is only for reference, If you need detailed information, please check here

搜尋此網誌

Nrthugu