report

Datagrunnlag

loans <- load_loans("~/R-prosjekter/the-zhats/data/loans.csv") 
validate_loans(loans)

Aggregert oversikt

summary <- summarise_loans(loans) 
summary

## # A tibble: 6 × 4
##   maaned  kundegruppe risikoklasse total_utlan
##   <chr>   <chr>       <chr>              <int>
## 1 2024-01 Bedrift     High             1500000
## 2 2024-01 Privat      Low               250000
## 3 2024-01 Privat      Medium            400000
## 4 2024-02 Bedrift     Low               500000
## 5 2024-02 Bedrift     Medium           2000000
## 6 2024-02 Privat      Low               300000

Total utlån per måned

library(ggplot2)

ggplot(summary, aes(x = maaned, y = total_utlan, fill = kundegruppe)) + geom_col(position = "dodge")