jjjj.R

# Instalar ggplot2 si no lo tienes
# install.packages("ggplot2")

# Cargar la librería
library(ggplot2)

# Crear vectores de datos
nombres <- c("Ana", "Luis", "Marta", "Pedro")
edades <- c(23, 30, 25, 28)
ciudades <- c("Madrid", "Barcelona", "Sevilla", "Valencia")

# Crear el data.frame
df <- data.frame(Nombre = nombres, Edad = edades, Ciudad = ciudades)

# Crear un gráfico de barras de las edades
ggplot(df, aes(x = Nombre, y = Edad, fill = Ciudad)) +
  geom_bar(stat = "identity") +
  labs(title = "Edades de Personas por Ciudad",
       x = "Nombre",
       y = "Edad") +
  theme_minimal()