data = csvRead("data.csv");

tauxAccroissement = ((data(:, 4) / 1000) - (data(:, 5) / 1000)) * 100;

tauxAccroissementMoyenParContient = [mean(tauxAccroissement(1:57)), mean(tauxAccroissement(58:86)), mean(tauxAccroissement(87:99)), mean(tauxAccroissement(100:150)), mean(tauxAccroissement(151:193)), mean(tauxAccroissement(194:207))];

bar(tauxAccroissementMoyenParContient);
gca().x_ticks.labels = "$\rotatebox{90}{\mathsf{"+_(["Afrique", "Amérique du nord", "Amérique du sud", "Asie", "Europe", "Océanie"])'+"}}$";
title("Taux d''accroissement moyen par continent");
ylabel("Taux d''accroissement (%)");
xs2png(0,"ex3/img/ex3-4.png");