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])")