208  Question

Schlüsselwörter

Aufgaben, Statistik, Prognose, Modellierung, R, Datenanalyse, Regression

library(tidyverse)

Erstellen Sie für jede Variable aus mtcars ein Histogramm!

Hinweise:

• Nutzen Sie eine Wiederholungsstruktur. Schreiben Sie prägnante Syntax.
• Optional: Lassen Sie dichotome (zweiwertige) Variablen aus.
• Hier (und an vielen anderen Stellen im Netz) finden Sie Tipps.

209 Solution

has_two_levels <- function(vec){
  
  # input: vector of any type
  # value: number of unique values (double)
  
  tmp <- length(unique(vec))
  tmp == 2
}

mtcars_hist <- function(col){
  mtcars %>% 
    ggplot(aes(x = col)) +
    geom_histogram()
}

mtcars %>% 
  select(where(is.numeric)) %>% 
  select(where(negate(has_two_levels))) %>%   # `!` zum Negieren geht leider nicht
  map(mtcars_hist)
## $mpg
## 
## $cyl
## 
## $disp
## 
## $hp
## 
## $drat
## 
## $wt
## 
## $qsec
## 
## $gear
## 
## $carb

210 Meta-information

extype: string exsolution: NA exname: ggplot-prog expoints: 1