Untitled

library(readxl)
library(here)
library(ggplot2)
library(reshape)
ler_range <- function(nome_ficheiro, range_linhas) {
  data <- read_excel(nome_ficheiro, 1, col_names = FALSE, range = range_linhas,col_types=c("text"))
}
ficheiro<- "EsperancaVida.xlsx"

generate_plot_data_frame <- function() {
  data <- data.frame(ler_range(ficheiro, "A52:A69"), ler_range(ficheiro, "O52:O69"),
                     ler_range(ficheiro, "AE52:AE69"), ler_range(ficheiro, "V52:V69"))
  colnames(data) <- c("Anos", "Estónia", "Suécia", "Letónia")
  data}
plot_data<-generate_plot_data_frame()
  ggplot(plot_data, aes(x = Anos)) + geom_line(mapping = aes(y = Estónia, color =
                                                             "Esperanca de Vida Estonia"), size = 1) + geom_line(mapping = aes(y = Letónia, color =
                                                                                                                             "Esperanca de Vida Letonia"), size = 1) + geom_line(mapping = aes(y = Suécia, color =
                                                                                                                                                                                           "Esperanca de Vida Suecia"), size = 1) + scale_color_manual(values = c("Esperanca de Vida Estonia"="goldenrod1","Esperanca de Vida Suecia"="darkgreen","Esperanca de Vida Letonia"="blue"))+labs(color = "Legenda", y = "Total") + theme_bw() + ggtitle("Gráfico temporal de Esperança de Vida em Estónia, Letónia e Suécia") + theme(plot.title = element_text(size = 10, face =
                                                                                                                                                                          "bold", hjust = 0.5, margin = margin(5, 0, 10, 0, "pt")))