%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 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);