%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%   Plot of Indian literacy rate from 1901 to 2011
%   Author: Sumanch
%   Date: September 22, 2012
%   License: PD-self
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Male = [9.8; 10.6; 12.2; 15.6; 24.9; 27.16; 40.4; 45.96; 56.38;...
        64.13; 75.85; 82.14];
Female = [0.6; 1; 1.8; 2.8; 7.3; 8.86; 15.35; 21.97; 29.76;...
        39.29; 54.16; 65.46];
Total = [5.3; 5.9; 7.2; 9.5; 16.1; 18.33; 28.3; 34.45; 43.57; 52.21;...
        65.38; 74.04];
Urban = [34.59; 54.4; 60.2; 67.2; 73.1; 80.3; 84.98];
Rural = [12.1; 22.5; 27.9; 36.1; 44.7; 59.4; 68.91];

dt_sou = sprintf('Source: 2011 Census of India');

hold on
p1 = plot(1901:10:2011,Male,'Color','red','LineWidth',2);
p2 = plot(1901:10:2011,Female,'Color','blue','LineWidth',2);
p3 = plot(1901:10:2011,Total,'ko-','LineWidth',2);
p4 = plot(1951:10:2011,Urban,'m--','LineWidth',2);
p5 = plot(1951:10:2011,Rural,'c--','LineWidth',2);
set(p4,'Color',[1 .3 .5])
set(p5,'Color',[.5 .3 1])

legend('Male','Female','Total','Urban','Rural','Location','NorthWest')
xlabel('Year')
ylabel('Literacy Rate (%)')
title('Literacy Rate in India','FontWeight','bold');
Text_t = annotation('textbox','Position',[0.1455 0.5443 0.12 0.11],...
    'FitBoxToText','on','String',dt_sou);