library(dplyr)

# Compute average temperature per year
df_avg <- df %>%
  rowwise() %>%
  mutate(Average_Temperature = mean(c_across(-Year), na.rm = TRUE))  # Exclude "Year" column

# Create the bar chart
ggplot(df_avg, aes(x = Year, y = Average_Temperature, fill = as.factor(Year))) +
  geom_bar(stat = "identity", show.legend = FALSE) +  # Bar chart
  scale_fill_viridis_d() +  # Use a color palette
  labs(title = "Average Yearly Temperature",
       x = "Year",
       y = "Average Temperature (°C)") +
  theme_minimal()