Public Procurement

• Whatever foodgrains are produced and offered, i.e. wheat, paddy, coarse grains, by the farmers, within the stipulated procurement period are purchased by the State Government Agencies including the Food Corporation of India (FCI) at Minimum Support price (MSP).
• The government procures foodgrains in order to ensure farmers receive the minimum support price (MSP) and a stock is maintained to distribute to the poor under the Public Distribution System (PDS) and other schemes and also to ensure the country’s food security.
• Before the harvest during each Crop season, the Government of India announces the Minimum Support Price (MSP) for procurement.

library(data.table)
library(ggplot2)
library(ggiraph)

# Read the data
t1 <- fread("/home/pawan/procurement/procurement.csv")

# Improved visualization theme
my_theme <- theme_minimal(base_size = 14) +
  theme(
    text = element_text(family = "Arial", color = "#2c3e50"),
    plot.title = element_text(size = 18, face = "bold", hjust = 0.5,
                             margin = margin(15, 0, 15, 0)),
    plot.subtitle = element_text(size = 12, hjust = 0.5, color = "#7f8c8d"),
    axis.title = element_text(size = 14, face = "bold"),
    axis.title.y = element_text(margin = margin(0, 15, 0, 0)),
    axis.title.x = element_text(margin = margin(15, 0, 0, 0)),
    axis.text = element_text(size = 11),
    axis.text.x = element_text(angle = 45, vjust = 0.5, hjust = 1),
    legend.position = "bottom",
    legend.title = element_blank(),
    legend.text = element_text(size = 11),
    panel.grid.major = element_line(color = "#ecf0f1", size = 0.5),
    panel.grid.minor = element_blank(),
    panel.border = element_rect(color = "#bdc3c7", fill = NA, size = 0.5),
    plot.background = element_rect(fill = "white", color = NA),
    plot.margin = unit(c(1, 1, 1, 1), "cm"),
    strip.background = element_rect(fill = "#f8f9fa", color = "#dee2e6"),
    strip.text = element_text(face = "bold", size = 12)
  )


# Summarize data
t1_summary <- t1[, .(Total = sum(Total),
                     FCI = sum(FCI),
                     StateAgency = sum(StateAgency)),
                 by = .(Crop, MarketingSeason)]

# Create tooltip for interactivity
t1_summary[, tooltip := paste0(
  "Crop: ", Crop, "\n",
  "Season: ", MarketingSeason, "\n",
  "Total: ", round(Total, 1), " LMT\n",
  "FCI: ", round(FCI, 1), " LMT\n",
  "State Agencies: ", round(StateAgency, 1), " LMT"
)]

# Create interactive plot
p <- ggplot(t1_summary,
            aes(x = MarketingSeason,
                y = Total,
                fill = Crop,
                tooltip = tooltip,
                data_id = paste(Crop, MarketingSeason))) +
  geom_bar_interactive(stat = "identity",
                       width = 0.7,
                       alpha = 0.8) +
    facet_wrap(~Crop, scales = "free_y") +
    my_theme +
  labs(
    title = "Foodgrain Procurement Trends by Crop and Marketing Season",
    y = "Quantity (in Lakh Metric Tons - LMT)",
    x = "Marketing Season",
    caption = "Source: Central Food Grains Procurement Portal (Department of Food & Public Distribution) \n
          Analysis: Pawan"
  ) +
  scale_fill_brewer(palette = "Set2") +
  scale_y_continuous(labels = scales::comma)

# Make it interactive with ggiraph
girafe(ggobj = p,
       width_svg = 12,
       height_svg = 8,
       options = list(
         opts_tooltip(css = "background-color:white;color:black;padding:8px;border-radius:4px;border:1px solid #ccc;"),
         opts_hover(css = "fill-opacity:0.9;stroke-width:2;"),
         opts_selection(type = "single", css = "stroke:red;stroke-width:2;"),
         opts_sizing(rescale = TRUE, width = 1)
       ))

Paddy Procurement

• Paddy procurement marketing season in India begins each year on 1st October and ends on 30th September the following year.
• Overall paddy procurement has been increasing over the last 3 years.
• There was a fall in procurement in Oct-Dec (2021-22) over the same period in the previous year.
• Paddy procurement however picked up subsequently and was higher in Jan-Mar (2021-22) over the corresponding period in 2020-21.
• The decline in procurement in Oct-Dec (2021-22) is mainly because of the decline in paddy procurement in Haryana and Punjab.
• And the recovery in procurement starting in January end 2022 is due to a large increase in paddy procurement in Chhattisgarh and Madhya Pradesh.
• The paddy procurement in Haryana in this season is much less as compared to the previous seasons