一部のデータ (残念ながら主に文字データ) をプロットしようとしていますが、geom_flag を使用して小さな旗の画像を作成し、x 軸 (x = 国) のラベルの下に配置して、完全に書くことができないため、より明確にしたかったのです。国名（アルゼンチンなど長い名前だとめちゃくちゃになる）
しかし、私が得ているのは下の画像です...いくつかのフラグしか表示されず、画像がそれらを含めるのに「十分な高さがない」ように見えるため、それらは適切に表示されません。すべてのフラグを表示し、画像がグラフに完全に表示されるようにコードを変更するにはどうすればよいですか? 複雑だと思いますが、よろしくお願いします！これが私のコードです：
data$iso2 <- countrycode(data$Country, "country.name", "iso2")
heatmap_trial3 <- y_Rec1 %>%
select(iso2, Place, `Contentious?`,`Comments number`, Country) %>%
ggplot(aes(x=iso2,
y=Place,
group=iso2)) +
geom_point(aes(shape=`Contentious?`,
size=`Comments number`,
color=Country)) +
theme(plot.background = element_rect(fill = NA),
panel.background = element_rect(fill = "white")) +
guides(size=FALSE, color=FALSE) +
geom_flag(y =-0.75, aes(image = iso2)) +
xlab(NULL) + expand_limits(y=-0.75)
私のデータのdput（）：
structure(list(iso2 = c("CA", "DE", "DE", "CA", "CA", "AU", "RU", "BE", "BE", "BE", "BE") "、"TR"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、 "DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE" "、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、"DE"、 "DE"、"DE"、"DE"、"DE"、"FR"、"FR"、"FR"、"CN"、"CN"、"CN"、"CN"、"CN"、"CN"、"CN"、"CN"、"CN"、"FR "、"FR"、"FR"、"JP"、"JP"、"JP"、"JP"、"JP"、"SA"、"SA"、"BR"、"BR"、"BR"、 "BR"、"BR"、"BR"、"BR"、"BR"、"BR"、"BR"、"BR"、"RU"、"RU"、"BE"、"IT"、"IT" "、"IT"、"IT"、"IT"、"IT"、"IT"、"IT"、"AR"、"IT"、"IT"、"CH"、"AR"、"IT"、 「米国」、「米国」、「AR」、「AR"、"AR"、"AR"、"AR"、"JP"、"JP"、"US"、"US"、"US")、Place = structure(c(4L, 3L, 3L, 3L, 4L、4L、3L、5L、5L、5L、5L、4L、2L、2L、2L、2L、2L、3L、3L、3L、3L、3L、3L、3L、4L、4L、4L、4L、4L、 4L、4L、4L、4L、4L、4L、4L、4L、5L、5L、5L、5L、5L、5L、5L、5L、5L、5L、5L、5L、5L、5L、5L、3L、3L、 4L、3L、4L、4L、4L、4L、5L、5L、5L、5L、4L、4L、5L、4L、5L、5L、5L、5L、3L、4L、2L、4L、4L、4L、5L、 5L、5L、5L、5L、5L、2L、3L、5L、3L、3L、2L、2L、2L、3L、3L、4L、4L、5L、5L、5L、3L、5L、3L、3L、5L、 5L, 5L, 5L, 5L, 5L, 5L, 5L, 3L, 4L, 5L), .Label = c("Context Intro", "Context Rec 1", "保護主義", "WTO改革", "多国間主義", 「Context Rec 2」、「Crisis Response」、「Customs」、「Global Value Chains」、「Context Rec 3」、「Micro-Small-Med-Entrepr.」、「Trade Finance」、「Export Credit Agencies」、「Context Rec 4」、「Green Trade」、「Foreing Investments」）、クラス = "要因")、Contentious?= c("論争なし", "論争あり", "論争なし", "論争なし", "論争なし", "論争なし", "論争あり", "論争なし", "論争あり", "論争なし", 「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、 「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争あり」、「論争あり」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争あり」、「論争なし」、「論争なし」、「論争なし」、「論争あり」、「論争あり」、「論争なし」、「論争なし」 "、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争である"、"論争である"、"論争である"、"論争である"、"論争ではない"、"ではない論争あり」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争あり」、「論争あり」、「論争あり」、「論争なし」、「論争なし」、「論争あり」、「論争なし」、「論争なし」、「論争なし」、「論争あり」、「論争あり」、「論争あり」、「論争なし」、「論争あり」、「論争あり」、「論争あり」、「論争あり」 "、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない"、"論争ではない" 、「論争がない」、「論争がある」、「論争がない」、「論争がある」、「論争がない」、「論争がある」、「論争がない」、「論争がない」、「論争がない」、論争的でない」、「論争的ではない」、「論争的ではない」、「論争的である」、「論争的ではない」、「論争的である」、「論争的である」、「論争的ではない」、「論争的ではない」、「論争的である」、「論争的ではない」、 「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争なし」、「論争あり」、「論争なし」、「論争あり」、「論争なし」、「論争あり」、「論争なし」 " )、論争的」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的である」、「論争的ではない」、「論争的である」、「論争的ではない」 、「論争あり」、「論争なし」)、論争的」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的ではない」、「論争的である」、「論争的ではない」、「論争的である」、「論争的ではない」 、「論争あり」、「論争なし」)、Comments number= c(2L, 9L, 9L, 1L, 2L, 1L, 2L, 4L, 4L, 4L, 4L, 1L, 5L, 5L, 5L, 5L, 5L, 9L, 9L, 9L, 9L, 9L, 9L, 9L 、13L、13L、13L、13L、13L、13L、13L、13L、13L、13L、13L、13L、13L、15L、15L、15L、15L、15L、15L、15L、15L、15L、15L、15L、15L 、15L、15L、15L、2L、2L、3L、1L、4L、4L、4L、4L、4L、4L、4L、4L、3L、3L、1L、1L、6L、6L、6L、6L、1L、1L 、2L、3L、3L、3L、6L、6L、6L、6L、6L、6L、2L、2L、1L、1L、4L、3L、3L、3L、4L、4L、2L、2L、7L、2L、2L , 1L, 7L, 4L, 2L, 2L, 7L, 7L, 7L, 7L, 7L, 6L, 6L, 2L, 1L, 2L ), 国 = c("カナダ", "ドイツ", "ドイツ", "カナダ"、"カナダ"、"オーストラリア"、"ロシア"、"ベルギー"、"ベルギー"、"ベルギー"、"ベルギー"、"トルコ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、 "ドイツ"、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」 "、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、"ドイツ"、 「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「ドイツ」、「フランス」、「フランス」、「フランス」 "、"中国"、"中国"、"中国"、"中国」、「中国」、「中国」、「中国」、「中国」、「中国」、「フランス」、「フランス」、「フランス」、「日本」、「日本」、「日本」、「日本」 、「日本」、「サウジアラビア」、「サウジアラビア」、「ブラジル」、「ブラジル」、「ブラジル」、「ブラジル」、「ブラジル」、「ブラジル」、「ブラジル」、「ブラジル」、「ブラジル」 、「ブラジル」、「ブラジル」、「ロシア」、「ロシア」、「ベルギー」、「イタリア」、「イタリア」、「イタリア」、「イタリア」、「イタリア」、「イタリア」、「イタリア」、イタリア」、「アルゼンチン」、「イタリア」、「イタリア」、「スイス」、「アルゼンチン」、「イタリア」、「アメリカ合衆国」、「アメリカ合衆国」、「アルゼンチン」、「アルゼンチン」、「アルゼンチン」、「アルゼンチン」、「アルゼンチン」、「日本」、「日本」、「アメリカ合衆国のアメリカ", "アメリカ合衆国", "アメリカ合衆国")), row.names = c(NA, -114L), class = c("tbl_df", "tbl", "data.frame"))クラス = c("tbl_df", "tbl", "data.frame"))クラス = c("tbl_df", "tbl", "data.frame"))
