#ExcelPedroWave

En esta ocasión voy a explicar cómo construir un gráfico de carreras de barras, y animarlo con macros que cambien el día de visualización de los 10 países con más datos acumulados.

En este tutorial explico cómo crear una tabla dinámica partiendo de la tabla cargada con Power Query, cómo generar una tabla auxiliar que será el origen de datos del gráfico de barras y cómo animar el gráfico para que simule una carrera de barras del Top Ten de países con más fallecimientos acumulados por Covid-19, carrera que continua y que nadie sabe cuándo acabará...

Preparados, listos ¡YA!

¡Comienza la carrera!

Entradas de la carrera

Si quieres profundizar en cómo se ha preparado la carrera, en estos enlaces están los 5 artículos anteriores sobre esta carrera:

Gráfico Carrera Barras Excel Bar Chart Race

Carreras de Barras por Covid-19 en Excel v2

Tutorial 1 Power Query - Carrera de Barras

Tutorial 2 Power Query - Carrera de Barras

Tutorial 3 Power Query - Carrera de Barras

Inicio de la carrera

Si has leído los anteriores tutoriales de Power Query sobre esta carrera de barras, ya sabrás cómo extraer, transformar y cargar datos de la Web a una tabla normalizada.

Si has seguido los pasos aplicados en Power Query tendrás un archivo con la tabla normalizada pero, para este ejercicio, es conveniente que comiences descargando el siguiente archivo:

• Enlace a Microsoft OneDrive:

Tutorial Gráfico Carreras Barras PW1.xlsm

• Enlace a Google Drive:

Tutorial Gráfico Carreras Barras PW1.xlsm

Este archivo Excel habilitado para macros contiene todo lo necesario para continuar:

A) Los pasos aplicados en la consulta en Power Query

B) La tabla normalizada con 4 columnas: Country (País); Date (Fecha); Value (Valor acumulado) y Increment (Valor diario), en la hoja: time_series_covid19_deaths_glob

C) Las macros VBA que animarán el gráfico con la carrera de barras, por lo que es necesaria su descarga.

D) No contiene datos de la descarga desde la Web, por lo que la tabla normalizada está vacía.

Instrucciones de la carrera

Partiendo del archivo descargado hay que seguir los siguientes pasos para construir el gráfico de carrera de barras:

1) Abrir el archivo descargado en una versión de Excel con Power Query (ver aquí)

2) Aparece una advertencia de vista protegida. Presionar el botón: Habilitar edición

3) Aparece una advertencia de seguridad. Presionar el botón: Habilitar contenido

4) Actualizar todo desde el menú: Datos > Actualizar todo

5) En la Barra de Estado aparece el mensaje: Ejecutando consulta en segundo plano...

Esta consulta accede a la web y descarga la tabla de datos acumulados en unos minutos.

6) Hacer clic en cualquier parte de la tabla e insertar una tabla dinámica desde el menú: Insertar > Tabla dinámica

7) En la ventana para crear la tabla dinámica hay que mantener la tabla seleccionada y elegir la hoja de cálculo existente: TD_Países!$B$4 (en la celda B4 de esa hoja se creará la tabla dinámica) y presionar el botón: Aceptar

8) Seleccionar Date como Filas de la tabla dinámica.

9) Desagrupar las fechas haciendo clic con el botón derecho del ratón para mostrar el menú contextual y seleccionar: Desagrupar

10) Seleccionar los demás campos de la tabla dinámica: Country en Filas y Accumulated y Daily en Valores.

11) Seleccionar la fila 6 y en el menú: Vista > Inmovilizar > Inmovilizar paneles

12) Editar las etiquetas de las columnas de la tabla dinámica:

Celda B4: Date / Country

Celda C4: Accumulated

Celda D4: Daily

13) Cambiar el diseño de la tabla dinámica desde el menú: Diseño > Estilos de tabla dinámica, seleccionando un estilo oscuro, por ejemplo: gris oscuro.

14) Desde el menú: Análisis de tabla dinámica > Insertar escala de tiempos

15) Seleccionar Date y presionar el botón: Aceptar, con lo que se crea la escala de tiempos.

16) Seleccionar el período en Días

17) En la escala de tiempos, desmarcar: Encabezado y Nivel de tiempo

18) Cambiar el estilo de la escala de tiempos, por ejemplo: Gris claro

19) Aumentar la altura de la escala de tiempos para que se vea la barra de desplazamiento.

20) Seleccionar un día en la escala de tiempos, por ejemplo: el 1 de junio de 2021, para filtrar la tabla dinámica por ese día, con los datos acumulados y diarios de cada país para ese día.

21) Seleccionar la escala de tiempos, cortar presionando las teclas: Control + X

22) Seleccionar la hoja 'Carrera' y pegar la escala de tiempos cerca de la celda H2, presionando las teclas: Control + V

23) Seleccionar la celda C6 de la tabla dinámica, hacer clic con el botón derecho del ratón y seleccionar Ordenar > Ordenar de mayor a menor, con lo que se ordenará por los países con más datos acumulados.

24) Crear las fechas máxima y mínima de la extracción de datos en las celdas de la hoja 'TD_Países':

F2 - Texto: Fecha Mínima:

25) Crear nombres (en el menú: Fórmulas > Administrador de nombres) para las celdas:

G2: Fecha_Mínima

G3: Fecha_Máxima

26) Cambiar el nombre de la tabla dinámica: TD_Países

27) La tabla dinámica no será el origen del gráfico de barras, sino que hay que crear una tabla auxiliar con los 10 países con más datos acumulados (Top Ten) y ¡en orden inverso! para que en la gráfica se vean arriba las barras más largas. En la hoja 'TD_Países' editar las siguientes celdas:

F5 - Texto: País

G5 - Texto: Acumulado

G6 - Fórmula: =C15

28) Con la celda G6 seleccionada, en el menú: Insertar > Tabla, teniendo marcado: La tabla tiene encabezados, presionar el botón: Aceptar

29) Cambiar el estilo de la tabla con el menú: Diseño de tabla > Estilos rápidos, seleccionando un estilo Medio, por ejemplo: Gris claro.

30) Editar la celda F6 con la fórmula: =SI([@Acumulado]=0;"";B15)

31) Cambiar el nombre de la tabla: Tabla_TOP10_Países

32) Desde el menú: Diseño de tabla > Cambiar tamaño de tabla, con el rango para 10 países: $F$5:$G$15, y presionar el botón: Aceptar

33) En el menú: Diseño de tabla > Opciones de estilo de tabla, marcar: Fila de totales

34) Comprobar que en la celda G16 aparece el valor máximo, con la fórmula: =SUBTOTALES(104;[Acumulado])

35) Hacer referencia a ese subtotal con el máximo del Top Ten, seleccionando la celda G16 y desde el menú: Fórmulas > Administrador de nombres > Nuevo, editar el nombre: Máx_Día y presionar el botón: Aceptar

36) Ahora toca editar manualmente las celdas del rango F7:G15 para obtener datos invertidos de países y valores acumulados, para lo que hay que modificar las fórmulas de las celdas:

Hay que observar que los datos están cruzados, con el país con más datos acumulados abajo en la tabla auxiliar de la derecha, en lugar de estar arriba como en la tabla dinámica de la izquierda. La tabla auxiliar tendrá esta apariencia:

37) Seleccionar el rango G6:G16 y con el botón derecho del ratón abrir el menú contextual y seleccionar: Formato de celdas, en la pestaña Número, en la categoría Personalizada, editar el Tipo: #.##0;;;

38) Seleccionar la celda B5 y en el Cuadro de nombres escribir: Fecha_Gráfico

39) Seleccionar la celda F5 y en el menú: Insertar > Barras 2D > Barras agrupadas

40) Con el gráfico seleccionado, cortarlo con las teclas: Control + X, y pegarlo en la hoja 'Carrera' con las teclas: Control + V

41) Con el gráfico seleccionado, en el menú: Diseño de gráfico > Estilos de diseño > Cambiar colores, y seleccionar: Paleta monocromática 7

42) Hacer clic en una de las barras horizontales, con lo que se seleccionan todas las barras. Hacer clic con el botón derecho del ratón y, en el menú contextual, seleccionar: Dar formato a serie de datos... En Opciones de serie editar el Ancho de rango: 50%, con lo que las barras horizontales serán más gruesas.

43) Hacer clic en el Título del gráfico y en la barra de fórmulas escribir la celda dónde está la fecha del gráfico: =TD_Países!$B$5

44) Marcar en negrita: el Título del gráfico y los Ejes vertical y horizontal

45) Hacer clic con el botón derecho del ratón en el Eje horizontal y seleccionar: Dar formato al eje...

En las opciones del eje, en Etiquetas, cambiar la posición de la etiqueta: Alto

46) Hacer clic con el botón derecho del ratón en una de las barras horizontales, y en el menú contextual seleccionar: Agregar etiqueta de datos

47) Hacer clic en una de las etiquetas de datos, con lo que se seleccionan todas las etiquetas, y ponerlas en negrita.

48) Hacer clic en las líneas de división verticales y eliminarlas con la tecla: Supr

49) Este paso es muy IMPORTANTE para que funcionen las macros: Seleccionar el gráfico y cambiar su nombre en el Cuadro de nombres, escribiendo: Gráfico Carrera Barras

50) Seleccionar el gráfico, hacer clic con el botón derecho del ratón y seleccionar: Asignar macro, eligiendo la macro: CorrerFechas y presionar el botón: Aceptar

Si has seguido todos estos 50 pasos, y alguno más que se me olvida, habrás construido un gráfico de barra así:

Y haciendo clic sobre el gráfico actuarán las macros que animarán la carrera de barras.

Quien tenga interés en estudiar las macros puede verlas en el Editor VBA que se abre pulsando las teclas: Alt + F11

Si me animo puede que explique cómo funcionan las macros, pero para eso debo recibir comentarios animándome a hacerlo, pues este tema ya es demasiado extenso.

Vídeo de la carrera

Pronto publicaré un vídeo donde explicaré los pasos anteriores para crear un gráfico de barras a partir de una tabla de datos acumulados y animarlo como si fuera una carrera de los 10 países con más datos acumulados por día.

Espero que si has leído esto ya seas capaz de usar Power Query y de animar tus gráficos.