{r} cidades <- c('São Paulo', 'Rio de Janeiro', 'Belo Horizonte', 'Salvador', 'Porto Alegre') epoca <- c('Trimestre 1', 'Trimestre 2', 'Trimestre 3', 'Trimestre 4') tri_1 <- c(25, 30, 22, 28, 18) tri_2 <- c(20, 15, 22, 28, 32) tri_3 <- c(30, 35, 10, 15, 8) tri_4 <- c(12, 28, 25, 20, 22) temperaturas <- c(tri_1, tri_2, tri_3, tri_4) temperaturas <- matrix(temperaturas, nrow = 4,ncol = 5, byrow = TRUE) rownames(temperaturas) <- c('Primeiro Trimestre', 'Segundo Trimestre', 'Terceiro Trimestre', 'Quarto Trimestre') colnames(temperaturas) <- c('São Paulo', 'Rio de Janeiro', 'Belo Horizonte', 'Salvador', 'Porto Alegre') temperaturas
