Mapa de calor

Los mapas de calor son una representación gráfica de datos sobre un área determinada en términos de color. El término “ mapa de calor ” le da a uno la impresión de una representación visual de la temperatura en un área determinada y, aunque tienen esta aplicación, se pueden usar para representar cualquier campo de datos en un área.

Generación de la gráfica

Conjunto de datos (US Stores Sales)

Este conjunto de datos contiene información sobre los valores de venta en dólares en las tiendas estadounidenses entre 2010 y 2011.

Cargar librería dplyr

#Cargar librería
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.2.2
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Cargado de datos

#Lectura de datos
data_us_stores <- read.csv("sales.csv", sep=",")

Selección de columnas

#Seleccionar columnas de los datos
us_stores <- data.frame(data_us_stores$State,data_us_stores$Profit,data_us_stores$Margin,data_us_stores$Sales,
                        data_us_stores$COGS,data_us_stores$Total.Expenses,data_us_stores$Marketing,
                        data_us_stores$Inventory,data_us_stores$Budget.Profit,data_us_stores$Budget.COGS,
                        data_us_stores$Budget.Margin,data_us_stores$Budget.Sales)

Renombrar columnas

#Renombrar columnas del conjunto de datos
colnames(us_stores) <- c('State','Profit','Margin','Sales','COGS','Total.Expenses','Marketing','Inventory',
                         'Budget.Profit','Budget.COGS','Budget.Margin','Budget.Sales')

Agrupación de datos

#Agrupar datos por estado
us_sales <- us_stores %>% group_by(State) %>% 
  summarise(across(c(Profit, Margin, Sales, COGS, Total.Expenses, Marketing, Inventory, Budget.Profit,
  Budget.COGS, Budget.Margin, Budget.Sales),sum), .groups = 'drop') %>% as.data.frame()

Agregación de nombres a las filas

#Agregar nombres a las filas
row.names(us_sales) <- us_sales$State

Eliminación de columna cualitativa

#Eliminar columna de nombres de Estados
us_sales <- us_sales[,2:12]

Conversión de tipo de datos

#Convertir dataframe a mátriz
us_sales_matrix <- data.matrix(us_sales)

Creación del mapa de calor

#Crear mapa de calor
us_sales_heatmap <- heatmap(us_sales_matrix, Rowv=NA, Colv=NA, col = cm.colors(256), scale="column", margins=c(10,15))