Budget

library(readxl)
budget <- read_excel("C:/Users/Niresh Kumar/Desktop/budget.xlsx")
colnames(budget)

## [1] "Ministry" "BE 25–26" "RE 25–26"

budget <- budget %>%
  rename(
    RE = `RE 25–26`,
    BE = `BE 25–26`
  )

budget <- budget %>%
  mutate(change = RE-BE)

budget <- budget %>%
  mutate(change_pct = (change / BE) * 100)

budget %>%
  arrange(change_pct) %>%
  ggplot(aes(x = reorder(Ministry, change_pct),
             y = change_pct,
             fill = change_pct > 0)) +

  geom_col(width = 0.55) +

  coord_flip(clip = "off") +

  geom_hline(yintercept = 0, linetype = "dashed") +

  geom_text(aes(label = paste0(round(change_pct,1), "%"),
                hjust = ifelse(change_pct > 0, -0.2, 1.25)),
            size = 3) +

  scale_fill_manual(values = c("TRUE"="steelblue",
                               "FALSE"="indianred"),
                    guide = "none") +

  scale_y_continuous(expand = expansion(mult = c(0.20, 0.20))) +

  labs(title = "Budget Revision by Ministry (RE vs BE 2025–26)",
       x = "",
       y = "Percent Change (%)") +

  theme_minimal() +
  theme(
    panel.grid.major.y = element_blank(),
    axis.text.y = element_text(size = 9),
    plot.margin = margin(10, 20, 10, 40)   # 👈 key fix
  )