clf
data = {"ナイジェリア", 80, 10, ...
        "インドネシア", 77, 5, ...
        "アメリカ", 74, 18, ...
        "カナダ", 72, 16, ...
        "イギリス", 70, 17, ...
        "ケニア", 68, 15, ...
        "フランス", 66, 24, ...
        "オーストラリア", 65, 23, ...
        "スペイン", 62, 17, ...
        "ブラジル", 60, 22, ...
        "ドイツ", 58, 29, ...
        "チリ", 57, 12, ...
        "ペルー", 57, 14, ...
        "エジプト", 57, 15, ...
        "ロシア", 54, 10, ...
        "ガーナ", 48, 10, ...
        "インド", 44, 11, ...
        "メキシコ", 44, 26, ...
        "日本", 41, 9, ...
        "パキスタン", 41, 17, ...
        "韓国", 38, 58, ...
        "中国", 16, 63};
nbars = numel (data) /3;
ylabels = data(1:3:end);
data = [[data(2:3:end){:}](:) [data(3:3:end){:}](:)];
nbars = rows (data);

set (0, "defaulttextfontname", "IPAPMincho");
set (0, "defaultaxesfontname", "IPAPMincho");
axes ("xlim", [0 100], "ylim", [0 nbars+3],
      "ytick", 1:nbars, "yticklabel", fliplr (ylabels));
hold on
box on
h = barh (flipud (data(:,1)));
set (h, "facecolor", "b")
grid on
set (gca, "ygrid", "off")
set (gca, "yticklabel", fliplr (ylabels))
legend ({"肯定的"}, "location", "northwest");
axes ("xdir", "reverse", "xtick", [] , "ytick", [], "xlim", [0 100], ...
      "ylim", [0 nbars+3], "yaxislocation", "right", "color", "none");
hold on
h = barh (flipud (data(:,2)));
set (h, "facecolor", "y")
legend ({"否定的"}, "location", "northeast");

title ("日本の影響力について (2012 BBC Poll[149])")

