Librerías a utilizar

library(tidyverse)
library(DT)
library(kableExtra)

1. MATRICES

Los siguientes vectores contienen recaudación de las 3 primeras peliculas de Stard War tanto en Estados Unidos y fuera del mismo.

new_hope <- c(462,324.4)
empire_strikes <- c(290.5, 247.9)
return_jedi <- c(309.3, 165.8)

1. Creación de una matriz que contenga la información de las tres peliculas de Star War

Star_War <- matrix(c(new_hope,empire_strikes,return_jedi), nrow = 3,ncol = 2,byrow = TRUE)
Star_War %>% kbl(caption = "<center>Tabla1. Datos de las 3 peliculas de Star 
                 War",align = "c",centering = F,booktabs = T,longtable=F) %>%
  kable_classic(full_width = T, html_font = "Cambria",)
Tabla1. Datos de las 3 peliculas de Star War
462.0 324.4
290.5 247.9
309.3 165.8

2. Agregar nombre a las columnas de la tabla 1. (US y no-US)

colnames(Star_War) <- c("US", "Non-US")
Star_War %>% kbl(caption = "<center>Tabla2. Datos de las 3 peliculas de Star War con nombres en las columnas",align = "c",centering = F,booktabs = T,longtable=F) %>% kable_classic(full_width = T, html_font = "Cambria",)
Tabla2. Datos de las 3 peliculas de Star War con nombres en las columnas
US Non-US
462.0 324.4
290.5 247.9
309.3 165.8

3. Agregar nombre a las filas de la tabla 1. (New_hope,The Empire Strikes Back y Return of the Jedi)

rownames(Star_War) <- c("New Hope", "The Empire Strikes Back","Return of the Jedi")
Star_War %>% kbl(caption = "<center>Tabla3. Datos de las 3 peliculas de Star War con nombres en filas y columnas",align = "c",centering = F,booktabs = T,longtable=F) %>% kable_classic(full_width = T, html_font = "Cambria",)
Tabla3. Datos de las 3 peliculas de Star War con nombres en filas y columnas
US Non-US
New Hope 462.0 324.4
The Empire Strikes Back 290.5 247.9
Return of the Jedi 309.3 165.8

4. Creación de una matriz de precios con nombres de filas y columnas

Precios_Star_War <- matrix(c(5,5,6,6,7,7), nrow = 3, byrow = TRUE, dimnames = list(rownames(Star_War),colnames(Star_War)))
Precios_Star_War %>% kbl(caption = "<center>Tabla3. Datos de los precios de las 3 peliculas de Star War con nombres en filas y columnas",align = "c",centering = F,booktabs = T,longtable=F) %>% kable_classic(full_width = T, html_font = "Cambria",)
Tabla3. Datos de los precios de las 3 peliculas de Star War con nombres en filas y columnas
US Non-US
New Hope 5 5
The Empire Strikes Back 6 6
Return of the Jedi 7 7