# Zadanie 8
data.set <- PogromcyDanych::pearson
View(data.set)

data.set %>%
  ggplot() +
  geom_histogram(aes(x = syn), col = 'white') +
  geom_density(aes(x = syn), trim = T) -> p1


data.set %>%
  ggplot(aes(ojciec)) +
  geom_density() -> p2

library(gridExtra)

grid.arrange(p1, p2)