# Load ggplot2 library
library(ggplot2)

# Create a bar chart to visualize the distribution of categories
ggplot(data, aes(x = Category)) +
  geom_bar(aes(fill = Category), position = "dodge") +
  theme_minimal() +
  labs(
    title = "Distribution of Categories",
    x = "Categories",
    y = "Frequency",
    caption = "Source: Your Excel Data"
  ) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))