Επιτόκια τραπεζικών δανείων

Να πάρετε από την τράπεζα της Ελλάδας το αρχείο που αναφέρετε σε επιτόκια δανεισμού και καταθέσεων. https://opendata.bankofgreece.gr/el/dataset/13 Να κάνετε το διάγραμμα σύγκρισης ανάμεσα στο επιτόκιο στεγαστικού και καταναλωτικού δανείου.

library(tidyverse)
library(scales)
library(readxl)
library(lubridate)

u <- "https://www.bankofgreece.gr/OpenDataSetFilesALL/STATISTIKI/BoG_MIR_el_2021-12-02.xlsx"
download.file(u, destfile = "../data/BoG-13.xlsx")

DF <- read_excel("../data/BoG-13.xlsx") %>% 
    select(d1 = 1, d2 = 2, kat = 13, steg = 14) %>% 
    mutate(Date = make_date(d1, d2, 1)) %>% 
    select(Date, kat, steg) 

DF %>% 
    ggplot(aes(x = Date)) +
    geom_line(aes(y = steg, group = "Δάνειο", colour = "c1"), size = 1.5) +
    geom_line(aes(y = kat, group = "Δάνειο", colour = "c2"), size = 1.5) +
    labs(x = "", y = "Επιτόκιο", 
         title = "Τραπεζικά επιτόκια νέων δανείων",
         caption = "Πηγή: https://opendata.bankofgreece.gr/el/dataset/13") +
    scale_colour_manual(name = 'Επιτόκιο', 
                        values =c('c2' = 'blue','c1' = 'red'),
                        labels = c('Καταναλωτικό', 'Στεγαστικό')) +
    theme_minimal(base_size = 18)

DF %>% 
    ggplot(aes(x = steg, y = kat)) + 
    geom_point( color = "blue", alpha = 0.5,  size = 5, stroke = 1) +
    geom_smooth(method = "lm", color = "red") +
    theme_ipsum(base_size = 18, base_family = "Ubuntu")

Συνδεθείτε για περισσότερες δυνατότητες αλληλεπίδρασης,
σχολιασμοί, εξωτερικοί σύνδεσμοι, βοήθεια, ψηφοφορίες, αρχεία, κτλ.

Εκπαιδευτικό υλικό από τον Αθανάσιο Σταυρακούδη σας παρέχετε κάτω από την άδεια Creative Commons Attribution-NonCommercial-ShareAlike 4.0 License.
Σας παρακαλώ να ενημερωθείτε για κάποιους επιπλέον περιορισμούς
http://stavrakoudis.econ.uoi.gr/stavrakoudis/?iid=401.

Athanassios Stavrakoudis, Sat 23 Nov 2024