qualidade do ar
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")