This commit is contained in:
nlitkowski 2021-05-26 02:17:53 +02:00
commit 59b88d3ad5

View File

@ -79,3 +79,12 @@ german_credit_risk %>%
) +
ylab("Credit amount") +
theme_bw()
#Histogram przedstawiający ilość wziętych kredytów w zależności od wieku i z przeznaczeniem na co z linią gęstości
german_credit_risk %>%
ggplot(aes(x=Age, fill = Purpose)) +
geom_histogram(color = 'white', binwidth = 1) +
scale_x_continuous(name="Age", breaks = scales::pretty_breaks(n = 10)) +
ylab('Number of credits') +
stat_density(aes(x=Age, y=..count..), geom = "line", inherit.aes = FALSE, size = 1.10, color = '#555555', adjust = 1)