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)
tri_combinado <- c(tri_1, tri_2, tri_3, tri_4)
matriz_tree <- matrix(tri_combinado, nrow = 4)
matriz_tree
rownames(matriz_tree) <- c('1º Trimestre', '2º Trimestre', '3º Trimestre', '4º Trimestre')
colnames(matriz_tree) <- c('São Paulo', 'Rio de Janeiro', 'Belo Horizonte', 'Salvador' , 'Porto Alegre')
matriz_tree