Fibonacci

library(ggplot2)
library(gridExtra)

# Generar la serie Fibonacci
fibonacci <- numeric(20)
fibonacci[1] <- 1
fibonacci[2] <- 1
for (i in 3:20) {
  fibonacci[i] <- fibonacci[i-1] + fibonacci[i-2]
}

# Crear un data frame con los valores de Fibonacci
df <- data.frame(
  Index = 1:20,
  Value = fibonacci
)

# Crear el primer gráfico con color azul
plot1 <- ggplot(df, aes(x = Index, y = Value)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  labs(title = "Serie Fibonacci - Ejemplo Azul",
       x = "Índice",
       y = "Valor") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

# Crear el segundo gráfico con color amarillo
plot2 <- ggplot(df, aes(x = Index, y = Value)) +
  geom_bar(stat = "identity", fill = "gold") +
  labs(title = "Serie Fibonacci - Ejempolo Amarillo",
       x = "Índice",
       y = "Valor") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

# Organizar los gráficos en una fila con dos columnas
grid.arrange(plot1, plot2, ncol = 2)