qualidade do ar

mail@pastecode.io avatar
unknown
r
2 years ago
1.2 kB
5
Indexable
Never
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)
}

ficheiro <- "QualidadeARO3.xlsx"


generate_plot_data_frame <- function() {
  # o ler_range retorna uma tabela cujo nome da coluna é ...1, daí ser necessário o $...1 
  plot_data <- data.frame(Valores = c(
                                      as.numeric(ler_range(ficheiro, "H2:H8785")$...1),
                                      as.numeric(ler_range(ficheiro, "J2:J8785")$...1)
                                    ),
                          Estações = c(
                                      rep("Restelo", 8784),
                                      rep("VNTelha-Maia", 8784)
                                   )
         )
  plot_data
}

plot_data <- generate_plot_data_frame()

ggplot(plot_data, aes(x = Valores, fill = Estações)) + geom_histogram(color="#e9ecef", alpha=0.6, position = 'identity')  + scale_fill_manual(values=c("#73C2BE", "#776885")) + ggtitle("Qualidade do ar em diferentes estações") + labs(x = "Qualidade do ar", y = " Frequência absoluta")