# Load necessary libraries
library(ggplot2)
library(dplyr)

# Create the dataset
education_data <- data.frame(
  Year = 2015:2023,
  Total_Disabled_Children = c(3500, 3520, 3550, 3580, 3600, 3630, 3650, 3670, 3700),
  Enrolled_in_School = c(72, 74, 76, 78, 80, 81, 82, 83, 85),
  Special_Schools = c(15, 16, 17, 18, 18, 19, 19, 20, 21),
  Govt_Support_Beneficiaries = c(55, 58, 60, 63, 65, 68, 70, 72, 75),
  Dropout_Rate = c(8, 7.5, 7, 6.5, 6, 5.8, 5.5, 5.2, 5),
  Inclusive_Schools = c(40, 45, 50, 55, 60, 65, 70, 75, 80)
)

# View the dataset
print(education_data)