title: “Dashboard Turístico CENESTUR” format: dashboard: orientation: rows theme: lumen

Resumen General

Row

list(
  icon = "airplane",
  color = "info",
  value = paste0(round(sum(datos_turismo$visitantes) / 1e6, 1), " M")
)

$icon
[1] "airplane"

$color
[1] "info"

$value
[1] "625.1 M"

promedio <- mean(datos_turismo$gdpPercap)
list(
  icon = "cash-coin",
  color = "success",
  value = paste0("$", round(promedio, 2))
)

$icon
[1] "cash-coin"

$color
[1] "success"

$value
[1] "$11680.07"

Row

Column

p <- ggplot(datos_turismo, aes(x = ingreso_turismo, y = visitantes, 
                               color = continent, text = country)) +
  geom_point(alpha = 0.8, size = 2) +
  scale_x_log10() +
  scale_y_log10() +
  theme_minimal() +
  labs(x = "Ingresos (Log)", y = "Visitantes (Log)")

ggplotly(p, tooltip = "text")

Column

datatable(datos_turismo %>% select(country, continent, visitantes, ingreso_turismo),
          options = list(pageLength = 10, dom = 'tp'),
          rownames = FALSE)