問題タブ [geom-point]

R にサンプル データフレームがあります。

ggplot で、y='year'、x='profit' の 3 つの個別のグラフを描画しようとしています。データは product_id でフィルタリングされます。geom_point はすべて円形になります。これは、製品 A の次のコードによって実現できます。

ただし、カスタマイズのために、y 軸の値 (利益) が 2.0 未満の場合は、円の塗りつぶしの色を変更したいと考えています。境界線は元の色として赤にする必要がありますが、塗りつぶしの色は黄色にする必要があります。上記のグラフでは、2019 年のポイントは赤い枠線と黄色の塗りつぶし色になります。次の方法で試しましたが、うまくいきません。

もう 1 つの問題は、3 つのグラフすべてで、円形のサイズが標準の相対サイズを維持していないことです。次のような標準サイズのスケールを開発しようとしています

'sale' 列の値 <=1.9 の場合。サイズは5になります。

1.9 < 販売値 <= 10 の場合。サイズ範囲は 10 ～ 20 です。

10 < 販売値 <= 20 の場合。サイズは25になります

そして、sale_value > 20 の場合。サイズは30になります。

これをどのように実装できるか、または可能かどうかさえわかりません。

一部のデータ (残念ながら主に文字データ) をプロットしようとしていますが、geom_flag を使用して小さな旗の画像を作成し、x 軸 (x = 国) のラベルの下に配置して、完全に書くことができないため、より明確にしたかったのです。国名（アルゼンチンなど長い名前だとめちゃくちゃになる）

しかし、私が得ているのは下の画像です...いくつかのフラグしか表示されず、画像がそれらを含めるのに「十分な高さがない」ように見えるため、それらは適切に表示されません。すべてのフラグを表示し、画像がグラフに完全に表示されるようにコードを変更するにはどうすればよいですか? 複雑だと思いますが、よろしくお願いします！これが私のコードです：

私のデータの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"))