Gráficos interactivos con RStudio: Relación entre el salario y la experiencia laboral

Supongamos que tenemos un conjunto de datos que contiene información sobre el salario y la experiencia laboral de varios empleados. Queremos crear un gráfico interactivo que muestre la relación entre el salario y la experiencia laboral de estos empleados.

# Instalar y cargar paquetes necesarios

install.packages("plotly")
library(plotly)

# Crear datos ficticios

set.seed(123)
datos <- data.frame(Experiencia = sample(1:10, 100, replace = TRUE),
                    Salario = rnorm(100, mean = 50000, sd = 10000))

# Crear gráfico interactivo
grafico_interactivo <- plot_ly(datos, x = ~Experiencia, y = ~Salario, type = 'scatter', mode = 'markers')

# Personalizar el gráfico
grafico_interactivo <- grafico_interactivo %>% layout(
  title = "Relación entre salario y experiencia laboral",
  xaxis = list(title = "Experiencia laboral (años)"),
  yaxis = list(title = "Salario ($)"))

# Mostrar el gráfico interactivo
grafico_interactivo

Gráficos interactivos con RStudio: Evolución de las ventas mensuales

Ahora, supongamos que tenemos datos sobre las ventas mensuales de dos productos diferentes a lo largo del tiempo. Queremos crear un gráfico interactivo que muestre la evolución de las ventas de ambos productos durante varios meses.

# Crear datos ficticios

set.seed(123)
meses <- seq(as.Date("2023-01-01"), as.Date("2023-12-01"), by = "month")
ventas_producto_1 <- cumsum(rnorm(12, mean = 100, sd = 20))
ventas_producto_2 <- cumsum(rnorm(12, mean = 80, sd = 15))
datos <- data.frame(Meses = meses, Producto_1 = ventas_producto_1, Producto_2 = ventas_producto_2)

# Crear gráfico interactivo

grafico_interactivo_2 <- plot_ly(datos, x = ~Meses) %>%
  add_lines(y = ~Producto_1, name = 'Producto 1', line = list(color = 'blue')) %>%
  add_lines(y = ~Producto_2, name = 'Producto 2', line = list(color = 'red'))

# Personalizar el gráfico

grafico_interactivo_2 <- grafico_interactivo_2 %>% layout(
  title = "Ventas mensuales de productos",
  xaxis = list(title = "Meses"),
  yaxis = list(title = "Ventas"),
  hovermode = 'closest'
)

# Mostrar el gráfico interactivo

grafico_interactivo_2

Gráficos interactivos con RStudio: Evolución del rendimiento de cada estudiante

Supongamos que tenemos datos sobre el rendimiento de tres estudiantes en diferentes exámenes a lo largo del tiempo. Queremos crear un gráfico interactivo que muestre la evolución del rendimiento de cada estudiante en los diferentes exámenes.

# Crear datos ficticios

set.seed(123)
estudiantes <- c("Estudiante A", "Estudiante B", "Estudiante C")
examenes <- c("Examen 1", "Examen 2", "Examen 3", "Examen 4")
rendimiento <- matrix(rnorm(12, mean = 80, sd = 10), ncol = 3)
colnames(rendimiento) <- estudiantes
rownames(rendimiento) <- examenes
datos <- data.frame(Examenes = rep(examenes, each = 3), Estudiante = rep(estudiantes, times = 4), Rendimiento = as.vector(rendimiento))

# Crear gráfico interactivo

grafico_interactivo_3 <- plot_ly(datos, x = ~Examenes, y = ~Rendimiento, color = ~Estudiante, type = 'scatter', mode = 'lines+markers')

# Personalizar el gráfico

grafico_interactivo_3 <- grafico_interactivo_3 %>% layout(
  title = "Rendimiento de estudiantes en diferentes exámenes",
  xaxis = list(title = "Exámenes"),
  yaxis = list(title = "Rendimiento"),
  hovermode = 'closest')

# Mostrar el gráfico interactivo

grafico_interactivo_3