ggplot2：添加大小圖例和顏色圖例：僅自動出現一個

Question

數據集（originalRfiltered3）：

https://www.dropbox.com/s/fekw0o7ybdilnpr/originalRfiltered3.xlsx?dl=0

或dput輸出在這里： http ://txt.do/15k69

我正在嘗試繪制以下情節

為此，我做了以下工作：

ggplot(originalRfiltered3, aes(x = host.length, y = of.thorax) ) + 
 geom_point(aes(size = originalRfiltered3$number.simp), col = "black") + 
 geom_point(aes(col = host.sex), size = originalRfiltered3$number.simp) + 
 stat_smooth(method = "lm", col = "black", formula = y~poly(x,2)) + 
 scale_colour_manual(name = "Host Sex", 
   values = c("red","blue"), labels=c("F","M")) + 
 scale_size_continuous(name = "Group Size",
   labels = c("1", "2", "3", "4+") ) + 
 theme_classic() + 
 labs(x = "Host length (cm)" ) +
 labs(y = "Parasite length (mm)" ) +
 labs(title = "Correlation between size of host and parasite")

我知道我可以在同一條es行中同時指定大小和顏色，但這只會生成圖例之一。 <-如果您可以在這里幫助我，那么我的問題就解決了。

我想生成所附圖片中的內容，但不必繪制兩組點，這將導致黑色的基礎點（以便自動生成圖例）和第二層着色的點（從而使顏色圖例生成）。

我嘗試生成白色的基礎尺寸點，這使我在具有白色背景的情節中具有正確的視覺外觀，但是隨后使圖例中大小不同的圓圈變為白色，這不是我想要的。

我也嘗試過scale_size_manual並添加了點，但是我收到一條錯誤消息，因為size是一個連續變量，因此無法正常工作。

謝謝！

dput（originalRfiltered3）結構（list（infection.cluster = c（“ B12_ES079_A”，“ B12_ES079_A”，“ B12_ES080_A”，“ B12_ES080_A”，“ B12_ES081_A”，“ B12_ES081_A”，“ B12_ES083_A，” B12_ES083_A，“ “ B12_ES084_A”，“ B12_ES086_A”，“ B12_ES086_A”，“ B13_ES029_A”，“ B13_ES029_A”，“ B13_ES029_B”，“ B13_ES029_B”，“ B13_ES039_A”，“ B13_ES039_A”，“ B13076” ”，“ B13_ES076_A”，“ B13_ES076_A”，“ B13_ES076_A”，“ B13_ES081_A”，“ B13_ES081_A”，“ B13_ES086_A”，“ B13_ES086_A”，“ B13_ES086_A”，“ B13_ES13_A”，“ B13_ES13_A”，“ “ B13_ES121_A”，“ B13_ES121_A”，“ B19_ES007_A”，“ B19_ES016_A”，“ B19_ES016_A”，“ B19_ES016_B”，“ B19_ES016_B”，“ B19_ES016_B”，“ B19_ES016_B”，“ B19_ES__016” ”，“ B19_ES048_A”，“ B19_ES40_A”，“ B19_ES40_A”，“ B21_ES001_A”，“ B21_ES001_A”，“ B21_ES002_A”，“ B21_ES002_A”，“ B21_ES003_A”，“ B21_ES003_A”，“ B21_ES”，“ B21_ES_003” “ B21_ES005_A”，“ B21_ES006_A”，“ B21_ES006_A”，“ B21_ES007 _A“，” B21_ES007_A“，” B21_ES008_A“，” B21_ES008_A“，” B21_ES009_A“，” B21_ES009_A“，” B21_ES011_A“，” B21_ES011_A“，” B21_ES011_A“，” B21_ES012_A“，” B21_ES012_A“，” B21_ES012_A“，” ，“ B21_ES012_A”，“ B21_ES012_A”，“ B21_ES013_A”，“ B21_ES013_A”，“ B21_ES013_A”，“ B21_ES014_A”，“ B22_ES1074_A”，“ B22_ES1074_A”，“ B22_ES1074_A”，“ B22_ES_7_A”，“ B22_ES1074_A”，“ B22_ES1075_A“，” B22_ES1075_A“，” B22_ES1075_A“，” B22_ES1075_A“，” B22_ES1130_A“，” B22_ES1130_B“，” B22_ES1132_A“，” B22_ES1134_A“，” B22_ES1__1“ _13” ，“ B22_ES1138_A”，“ B22_ES1138_A”，“ B22_ES1139_A”，“ B22_ES1139_A”，“ B22_ES1140_A”，“ B22_ES1140_A”，“ B22_ES1140_A”，“ B22_ES1140_B”，“ B22_ES1_114” B22_ES1141_A“，” B22_ES1141_B“，” B22_ES1141_B“，” B22_ES1142_A“，” B22_ES1142_A“，” B22_ES1142_B“，” B22_ES1142_B“，” B22_ES1142_C“，” B22_ES_2_B_A _“ _ 22” ，“ B29_ES011_A”，“ B29_ES063 _A“，” B29_ES063_A“，” B29_ES077_A“，” B3_ES1002_A“，” B3_ES1002_A“，” B3_ES1003_A“，” B3_ES1003_A“，” B3_ES1004_A“，” B3_ES1004_A“，” B“ _3，” B“ ，“ B3_ES1009_A”，“ B3_ES1010_A”，“ B3_ES1010_A”，“ B3_ES1012_A”，“ B3_ES1012_A”，“ B3_ES1012_A”，“ B3_ES1012_A”，“ B3_ES1012_A”，“ B3_ES_10”，“ B3_ES10_A”，“ B3_ES10_A” B3_ES1014_A“，” B3_ES1014_B“，” B3_ES1015_A“，” B3_ES1015_A“，” B3_ES1016_A“，” B3_ES1016_A“，” B3_ES1018_A“，” B3_ES1018_A“，” B3_ES10_A_3“ 10_A_10” ，“ B3_ES1021_A”，“ B3_ES1021_A”，“ B3_ES1022_A”，“ B3_ES1022_A”，“ B3_ES1023_A”，“ B3_ES1023_A”，“ B3_ES1024_A”，“ B3_ES1024_A”，“ B3_ES ___”，“ B3_ES1024_A”，“ 3” B3_ES1026_A“，” B3_ES1026_A“，” B3_ES1027_A“，” B3_ES1027_A“，” B3_ES1027_B“，” B3_ES1027_B“，” B3_ES1043_A“，” B30_ES059_A“，” B31_ES_A“”，“ B31_ES005_A”，“ B31_ES005_A” ，“ B31_ES009_A”，“ B31_ES009_A”，“ B31_ES009_B”，“ B31_ES009_B”，“ B31_ ES020_A”， “B31_ES020_A”， “B31_ES020_B”， “B31_ES020_B”， “B33_b1_ES002_A”， “B33_b1_ES002_A”， “B33_b1_ES002_B”， “B33_b1_ES002_B”， “B33_b1_ES003_A”， “B33_b1_ES003_A”， “B33_b1_ES004_A”， “B33_b1_ES004_A”， “B33_b1_ES004_B” “B33_b1_ES004_B”， “B33_b1_ES005_A”， “B33_b1_ES005_A”， “B33_b1_ES005_B”， “B33_b1_ES005_B”， “B33_b2_ES006_A”， “B33_b2_ES006_A”， “B33_b2_ES006_B”， “B33_b2_ES006_B”， “B33_b2_ES007_A”， “B33_b2_ES007_A”， “B33_b2_ES007_B”，“ B33_b2_ES007_B”， “B33_b2_ES007_C”， “B33_b2_ES007_C”， “B33_b2_ES008_A”， “B33_b2_ES008_A”， “B33_b2_ES008_A”， “B33_b2_ES008_A”， “B33_b3_ES001_A”， “B33_b3_ES001_A”， “B33_b4_ES001_A”， “B33_b4_ES001_A”， “B33_b5_ES001_A”， “B33_b5_ES001_A” “B33_b6_ES001_A”， “B33_b6_ES001_A”， “B33_b6_ES003_A”， “B33_b6_ES003_A”， “B33_b6_ES004_A”， “B33_b6_ES005_A”， “B33_b6_ES005_A”， “B33_b6_ES006_A”， “B33_b6_ES006_A”， “B34_b1_ES002_A”， “B34_b10_ES001_A”， “B34_b10_ES001_A”，“ B34_b10_ES002_A”，“ B34_b10_ES002_A”，“ B34_b10_ES003_A”，“ B34_b10_ES004_A”，“ B34_b10_ES004_A”，“ B34_b10_ES005_A”，“ B34_b10_ES005_A”， “B34_b12_ES001_A”， “B34_b12_ES001_A”， “B34_b12_ES002_A”， “B34_b12_ES002_A”， “B34_b12_ES003_A”， “B34_b12_ES003_A”， “B34_b12_ES003_A”， “B34_b2_ES001_A”， “B34_b3_ES001_A”， “B34_b3_ES001_A”， “B34_b3_ES002_A”， “B34_b3_ES002_A” “B34_b3_ES003_A”， “B34_b3_ES003_A”， “B34_b3_ES004_A”， “B34_b3_ES004_A”， “B34_b3_ES005_A”， “B34_b3_ES005_A”， “B34_b3_ES005_B”， “B34_b5_ES001_A”， “B34_b5_ES001_A”， “B34_b5_ES002_A”， “B34_b5_ES002_A”， “B34_b5_ES003_A”，“ B34_b5_ES003_A”， “B34_b5_ES004_A”， “B34_b5_ES004_A”， “B34_b5_ES005_A”， “B34_b5_ES005_A”， “B34_b5_ES005_B”， “B34_b5_ES005_B”， “B34_b7_ES001_A”， “B34_b7_ES001_A”， “B34_b7_ES002_A”， “B34_b7_ES002_A”， “B34_b7_ES002_A”， “B34_b7_ES003_A” ，“ B34_b7_ES003_A”，“ B34_b8_ES001_A”，“ B34_b8_ES001_A”，“ B4_ES1058_A”，“ B4_ES1058_A”，“ ES11_A”，“ ES17_A”，“ RT1ES1_A”，“ RT1ES1_A”，“ RT1ES1_A”，“ RT1ES1_A”，“ RT1ES3_A”，“ RT1ES4_A”，“ RT1ES5_A”，“ RT1ES5_A”，“ RT1ES6_A”，“ RT1ES7_A”，“ RT1ES7_B”，“ RT1ES7_B”，“ RT1ES7_B”，“ RT1ES8_B”，“ RT1ES8_B” “ RT1ES9_A”，“ RT1ES9_A”，“ RT2ES1_A”，“ RT2ES1_A”，“ RT2ES1_A”，“ RT2ES11_A”，“ RT2ES11_A”，“ RT2ES13_A”，“ RT2ES13_A”，“ RT2ES13_A”，“ RT2ES15_A”，“ RT2ES15_A”，“ RT2ES15_A”，“ ”，“ RT2ES2_A”，“ RT2ES4_A”，“ RT2ES4_A”，“ RT2ES6_A”，“ RT2ES6_A”，“ RT2ES7_A”，“ RT2ES8_A”，“ RT2ES9_A”），host.length = c（27.1，27.1，24.5，24.5，28，28 ，28，31.5，31.5，29.2，29.2，31.9，31.9，21.2，21.2，21.2，21.2，26.5，26.5，26.5，29.4，29.4，29.4，29.4，29.4，29.4，26.7，26.7，26.6，26.6，26.6 ，24.5，24.5，28.9，28.9，31.2，31.2，26，26.9，26.9，26.9，26.9，26.9，26.9，27.9，26.9，29.2，28.5，28.5，26.5，26.5，29.1，29.1，27.3，27.3，27.3 ，27.3、31.2、31.2、19.1、19.1、28.5、28.5、31.6、31.6、23、23、33.2、33.2、30.7、30.7、30.7、27.9、27.9、27.9、27.9、27.9、27.9、28.8、28.8、28.8 ，33.2，22.9，22.9，22.9，22.2，22.2，22.2，22.2，22.2，22.2，22.2，17.7，17.7，22.2，21.9，21.9，30.5，30.5，22.9，22.9，22.9，22.9，27.1，27.1，24.5 ，24.5、24.5、24.5、24.5、27.5、27.5、27.5、27.5、27.5、28.5、28.1、28.1、28.1、28.1、28.1、28.1、28.1， 19.6、17.4、34.6、16.1、25.4、25.4、16.9、27.5、27.5、24.6、24.6、30.9、30.9、26.2、26.2、28、28、26.8、34、34、19.5、19.5、19.5、19.5、19.5， 19.5、30.8、30.8、30.7、30.7、30.7、33.4、33.4、32.1、32.1、27.2、27.2、27.2、27.2、27.3、27.3、21.4、22.9、22.9、26.7、26.7、24、24、26.2、26.2， 26.2、26.2、19.4、22.1、22.1、22.1、19.8、19.8、19.8、19.8、23.2、18.4、27.4、27.4、25.3、27.9、27.9、22.9、22.9、22.9、22.9、29.1、29.1、29.1、29.1， 36.2、36.2、36.2、36.2、45.4、45.4、32.3、32.3、32.3、32.3、43.6、43.6、43.6、43.6、41.4、41.4、41.4、41.4、39.5、39.5、39.5、39.5、39.5、39.5、47.1， 47.1、47.1、47.1、49.1、49.1、31.6、31.6、32.9、32.9、30.7、30.7、30.2、30.2、30.8、32.8、32.8、35.8、35.8、37.7、41.4、41.4、38.7、38.7、34.8、34.8、35.6， 35.6、39.8、39.8、42.4、42.4、32、32、35.8、35.8、35.8、33.3、32.2、32.2、30.5、30.5、31.9、31.9、37.8、37.8、39.9、39.9、39.9、41.1、41.1、45.2， 45.2、41.3、41.3、46、46、44.1、44.1、44.1、44.1、38.7、38.7、39.2、39.2、39.2、50.7、50.7、30.2、30.2、22、22、24， 25、31、31、27、27、30、30、32、30、30、27、27、27、27、27、26、26、26、28、28、34、34、34、28、28， 30，30，30，25，25，27，32，29，29，34，34，29，26，31），host.sex = c（“ f”，“ f”，“ f”，“ f” ，“ m”，“ m”，“ f”，“ f”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f“，” f“，” f“，” m“，” m“，” m“，” m“，” m“，” m“，” f“，” f“，” f“，” f“ ，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f“，” f“，” f“，” f“，” m“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“ ，“ f”，“ f”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ m”，“ m”，“ m“，” m“，” m“，” m“，” m“，” f“，” f“，” f“，” f“，” f“，” f“，” m“，” m“ ，“ m”，“ m”，“ f”，“ f”，“ f”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f“，” f“，” f“，” m“，” m“，” m“，” m“，” f“，” f“，” f“，” f“，” m“，” m“ ，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ m” ，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ m”，“ f”，“ f“，” m“，” m“，” m“，” m“，” m“，” m“，” f“，” f“，” f“，” f“，” f“，” m“ ，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ m”，“ m”，“ f”，“ f”，“ f”， “ f”，“ f”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ m” “，” m“，” m“，” m“，” f“，” f“，” f“，” f“，” f“，” m“，” m“，” m“，” m“， “ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f” “，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” m“， “ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f “，” m“，” m“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” f“，” m“， “ f”，“ f”，“ f”，“ f”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ m”，“ m “，” f“，” f“，” f“，” m“，” m“，” m“，” m“，” m“，” m“，” m“，” f“，” f“， “ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ f”，“ f”，“ f”，“ f “，” f“，” f“，” m“，” m“，” m“，” m“，” m“，” f“，” f“，” m“，” m“，” m“， “ m”，“ f”，“ m”，“ f”，“ f”，“ f”，“ f”，“ m”，“ m”，“ f”，“ m”，“ m”，“ f “，” f“，” f“，” f“，” f“，” m“，” m“，” m“，” m“，” m“，” m“，” m“，” m“， “ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ m”，“ f”，“ f”，“ m”，“ m”，“ m”，“ m” “，” m“，” m“，” m“），position.simplified = c（”背側“，”背側“，”胸側“，”胸側“，”胸側“，”胸側“，”背側“，”背”，“背”，“背”，“前”，“前”，“胸”，“ 胸”，“胸”，“胸”，“胸”，“胸”，“胸”，“背”，“背”，“背”，“背”，“背”，“背”，“骨盆” ，“骨盆”，“背側”，“背側”，“背側”，“胸側”，“胸側”，“背側”，“背側”，“胸側”，“胸側”，“胸側”，“背側”，“背”，“背”，“背”，“背”，“背”，“背”，“生殖器”，“背”，“背”，“背”，“胸”，“胸”，“前” ，“前”，“胸”，“胸”，“背”，“背”，“背”，“背”，“背”，“背”，“背”，“背”，“背”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側” ，“背側”，“背側”，“背側”，“背側”，“骨盆”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背”，“背”，“背”，“胸”，“背”，“胸”，“胸”，“胸”，“胸”，“胸”，“背”，“背”，“背” ，“背側”，“背側”，“背側”，“胸側”，“胸側”，“胸側”，“背側” ，“背側”，“背側”，“背側”，“背側”，“背側”，“前側”，“前側”，“背側”，“背側”，“背側”，“背側”，“前側”，“前”，“前”，“前”，“前”，“背”，“背”，“背”，“背”，“背”，“骨盆”，“骨盆”，“骨盆”，“骨盆” ，“背側”，“背側”，“骨盆”，“骨盆”，“胸側”，“胸側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背”，“背”，“背”，“背”，“背”，“背”，“背”，“前”，“骨盆”，“骨盆”，“胸”，“胸”，“背” ，“背側”，“背側”，“背側”，“前側”，“前側”，“背側”，“胸側”，“胸側”，“背側”，“背側”，“胸側”，“胸側”，“胸”，“胸”，“胸”，“胸”，“背”，“背”，“背”，“背”，“背”，“背”，“胸”，“胸”，“前” ，“胸骨”，“骨盆”，“骨盆”，“胸骨”，“背骨”，“背骨”，“前”，“前骨”，“胸骨”，“胸骨”，“胸骨”，“胸骨”，“背”，“背”，“胸”，“胸”，“胸”，“胸” ral”，“背側”，“背側”，“胸側”，“胸側”，“背側”，“背側”，“其他”，“其他”，“背側”，“背側”，“胸側”，“胸側” ，“背側”，“背側”，“胸側”，“胸側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“骨盆”，“骨盆”，“前側”，“前側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側” ，“背側”，“背側”，“胸側”，“背側”，“背側”，“背側”，“背側”，“背側”，“胸側”，“胸側”，“背側”，“背側”，“骨盆”，“骨盆”，“背側”，“背側”，“胸側”，“胸側”，“胸側”，“背側”，“背側”，“背側”，“背側”，“背側”，“胸側” ，“胸骨”，“骨盆”，“骨盆”，“背骨”，“背骨”，“背骨”，“背骨”，“背骨”，“背骨”，“背骨”，“背骨”，“背骨”，“背”，“背”，“胸”，“胸”，“背”，“背”，“背”，“背”，“背”，“背”，“背”，“胸”，“胸” ，“胸骨”，“胸骨”，“胸骨”，“胸骨”，“胸骨”，“背側”，“背側”，“背側” l”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“背側”，“胸側”，“背側”，“其他”，“胸側”，“胸側” ，“其他”，“其他”，“其他”，“其他”，“其他”，“背側”，“背側”，“背側”，“胸側”，“胸側”，“背側”，“背側”，“背”，“背”，“背”，“胸”，“背”，“背”，“背”，“背”，“背”，“胸”，“背”，“其他”），數字。宿主上的寄生蟲數量= c（2，2，2，2，2，2，2，2，2，2，2，2，4，4，4，4，3，3，3，6， 6，6，6，6，6，2，2，2，3，3，3，2，2，2，2，2，2，1，9，9，9，9，9，9，9，9，9， 2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，3，3， 3、7、7、7、7、7、7、7、3、3、3、1、3、3、3、7、7、7、7、7、7、7、1、1、1、2 2，2，2，5，5，5，5，2，2，5，5，5，5，5，6，6，6，6，6，6，6，7，7，7，7，7， 7，7，1，1，1，1，2，2，1，2，2，2，2，2，2，2，2，2，1，1，2，2，6，6，6，6， 6，6，6，2，2，3，3，3，2，2，2，2，4，4，4，4，2，2，1，1，2，2，2，2，2，2， 4，4，4，4，1，3，3，3，4，4，4，4，1，1，2，2，2，2，2，2，4，4，4，4，4，4， 4、4、5、5 5，5，2，2，4，4，4，4，4，4，4，4，4，4，4，6，6，6，6，6，6，6，4，4，4，4， 4，2，2，2，2，2，2，2，2，2，3，3，2，2，2，2，1，1，2，2，2，2，1，2，2，2， 2，2，2，2，2，3，3，3，2，2，2，2，2，2，2，2，2，2，4，4，4，4，2，2，2，2，2， 2，2，2，4，4，4，4，2，2，2，3，3，3，2，2，2，2，2，2，2，2，2，2，2，2，2，5， 2、5、2、2、2、5、5、5、5、5、5、3、3、3、2、2、3、3、3、2、2、4、4、4、3、3、2， 3、2、2、2、2、2、2、5、2），總簇= c（1，1，1，1，1，1，1，1，1，1，1，1，2，2，2 ，2，2，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，3，3 ，3，3，3，3，3，3，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1 ，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1 ，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，2，2，2，2，2，2，2，2，2，2，2 ，2，3，3，3，3，3，3，3，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1 ，1，1，1，1，1，1，1，1，1，1，1，2，2，2，1，1，1，1，1，1，1，1，1，1，1，1 ，1，1，1，1，1，1，1，1，1，1，1，1，1，1，2，2，2，2，1，1，1，1，1，1，1，1 ，2，2，2，2，2， 2，2，2，3，3，3，3，1，1，2，2，2，2，2，2，2，2，2，2，2，2，2，3，3，3，3， 3，3，1，1，1，1，1，1，1，1，1，1，1，1，3，3，1，1，1，1，1，1，1，1，1，1， 1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，1，2，2，2， 1，1，1，1，1，1，1，1，1，2，2，2，2，1，1，1，1，1，1，1，1，1，1，1，1，1，1， 1，1，1，1，2，1，1，1，1，1，2，2，2，2，1，1，1，1，1，1，1，1，1，1，1，1，胸部的1，1，1，1，1，1，1，1，1，1，1，1，2，1）= c（6.26，8.51，6.5，7.78，4.26，5.21，8.37，7.31，10.23 ，9.14，7.49，8.54，5.43，6.77，3.75，4.56，7.53，6.96，9.43，8.01，6.47，4.94，5.39，2.75，2.25，8.6，7.22，8.02，8.13，7.59，6.07，6.04，7.06，6.79 ，8.64、7.74、3.71、6.05、6.11、1.25、1.5、1、0.8、0.8、4.59、8.88、6.94、7.75、6.32、6.83、8.46、6.81、6.21、6.77、6.54、8.88、8.63、8.65、2.75 ，2.25、10.64、9.9、7.94、6.65、3、0.7、9.98、7.46、6.77、6.45、1.2、6.9、7.28、7.19、7.23、6.11、2.65、7.9、6.57、3.72、4.84、4.71、3.5、1.25 ，4.5，2.15，2，1，1，0.75，0.66，2，2，3.54，6.18，4.61，8.19，9.31，7.14，7.25，5。 41，4.52，3.26，3.54，7，6.35，3.02，4.87，6.31，7.11，6.45，5.41，6.39，1.3，0.9，6.53，5.53，6.57，5.88，1.6，2，1.5，3.1，1.75，5， 0.75、5.69、6.06、1.2、4.81、4.38、3.9、3.7、9.22、9.94、8.2、6.9、6.89、5.97、2.3、6.82、8.26、2.75、1.1、0.3、0.75、0.5、0.5、8.69、8.15， 7.57、8.87、4.99、8.71、9.21、7.34、9.03、4.6、4、2、2.25、7.06、7.55、3、6.48、6.5、2.95、1.57、6.47、5.55、9.84、7.41、2、2.5、3.5， 5.71，5.75，5.17，2.2，3.2，1，0.5，4，1.25，6.91，7.86，5.34，6.04，7.2，5.72，5.61，4.47，8.81，9.11，7.35，6.71，5.87，7.12，8.27，8.1， 6.65、6.18、7.74、9.87、7.98、8.96、9.33、8.88、8.14、9.12、7.67、8.09、7.76、10.85、9.65、8.17、5.69、6.98、9.12、11.8、10.69、10.4、9.56、8.43、9.73， 9.15、11.83、5.76、4.78、6.87、7.32、7.55、7.75、12.11、8.51、8.67、7.2、6.68、10.27、10.28、5.68、10.91、7.84、12.31、10.73、6.06、7.14、7.23、10.1、7.04， 10.79、11.2、5.62、7.07、8.82、9.93、8.68、5.19、7.06、5.15、5.83、6.09、7.47、5.82、10.28、12.13、7.15、7.06、9.44、9.13、12.74、10.78、11.23、1 1.65、9.56、10.25、10.94、12.05、9.32、8.22、7.97、8.73、11.77、11.03、6.77、7.95、11.03、9、9.5、7.84、6.29、3.67、4.1、4.1、4.8、7.5、3、4.4， 4.7、4.1、5.8、3.8、3.8、4.6、4.5、2.7、3.3、3.5、2.6、3.4、5.1、4.3、6、2.9、4、4.3、4、4.6、4.7、6、7.7、5、8.7， 6.6、4.3、3.9、4.6、5.4、7.4、5.7、4.2、2.7），parasite.eggs = c（“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“否”，“是”，“否”，“是”，“否”，“是”，“是” ，“是”，“是”，“否”，“否”，“否”，“否”，“是”，“是”，“否”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“否”，“否”，“否”，“否”，“否” ，“否”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“否”，“否”，“是”，“是”，“是”，“是”，“否”，“否”，“是”，“否”，“是” ，“否”，“否”，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“否”，“否”，“不”，“不”，“不”，“不”，“不”，“不”，“不”，“不”，“不”，“不”，“不”，“不”，“不” ，“是”，“否”，“是”，“是”，“是”，“否”，“否”，“否”，“否”，“ 否”，“否”，“是”，“否”，“是”，“否”，“是”，“是”，“是”，“否”，“否”，“否”，“是” ，“否”，“是”，“否”，“否”，“否”，“否”，“否”，“否”，“否”，“否”，“是”，“是”，“否”，“是”，“是”，“否”，“否”，“是”，“是”，“是”，“否”，“是”，“否”，“否”，“是” ，“是”，“否”，“否”，“否”，“否”，“否”，“否”，“是”，“是”，“是”，“是”，“否”，“否”，“否”，“是”，“是”，“是”，“否”，“否”，“否”，“是”，“是”，“否”，“是”，“是” ，“否”，“否”，“是”，“否”，“否”，“是”，“否”，“否”，“否”，“是”，“是”，“是”，“否”，“否”，“否”，“否”，“否”，“否”，“是”，“是”，“是”，“是”，“是”，“是”，“是” ，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是” ，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“否” ，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“是”，“是”，“否”，“否”，“否”，“是” ，“是”，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是” ，“否”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“是”，“否”，“是”，“否”，“否”，“是”，“是”，“是”，“否”，“是”，“否”，“是”，“是”，“否”，“是”，“是” ，“是”，“否”，“否”，“否”，“否”，“否”，“否”，“是”，“是”，“否”，“否”，“否”，“是”，“是”，“否”，“是”，“是”，“否”，“否”，“是”，“否”，“是”，“否”，“否”，“是” ，“ yes”，“ yes”，“ no”），number.simp = c（1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，2.5，2.5，2.5， 2.5、2、2、2、2.5、2.5、2.5、2.5、2.5、2.5、1.5、1.5、2、2、2、1.5、1.5、1.5、1.5、1.5、1.5、1、2.5、2.5、2.5， 2.5、2.5、2.5、2.5、2.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5， 1.5、1.5、1.5、2、2、2、2.5、2.5、2.5、2.5、2.5、2.5、2、2、2、1、2、2、2、2.5、2.5、2.5、2.5、2.5、2.5， 2.5、1、1、1、1.5、1.5、1.5、1.5、2.5、2.5， 2.5、2.5、1.5、1.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、1、1、1 1，1.5，1.5，1，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1.5，1，1.5，1.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5，1.5，1.5， 2，2，2，1.5，1.5，1.5，1.5，2.5，2.5，2.5，2.5，1.5，1.5，1，1.5，1.5，1.5，1.5，1.5，1.5，2.5，2.5，2.5，2.5，2.5，1， 2，2，2，2.5，2.5，2.5，2.5，1，1，1.5，1.5，1.5，1.5，1.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5，2.5， 2.5、1.5、1.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5、2.5， 1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、2、2、1.5、1.5、1.5、1.5、1.5、1、1.5、1.5、1.5、1.5、1.5、1、1.5、1.5、1.5、1.5， 1.5、1.5、1.5、1.5、2、2、2、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、2.5、2.5、2.5、1.5、1.5、1.5、1.5、1.5、1.5， 1.5、1.5、2.5、2.5、2.5、2.5、1.5、1.5、2、2、2、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、1.5、2.5、1.5， 2.5、1.5、1.5、1.5、2.5、2.5、2.5、2.5、2、2、2、1 5，1.5，2，2，2，1.5，1.5，2.5，2.5，2.5，2，2，1.5，2，1.5，1.5，1.5，1.5，1.5，2.5，1.5）），row.names = c（ NA，-332L），類= c（“ tbl_df”，“ tbl”，“ data.frame”））

Answer 1

讓我們嘗試一下：

ggplot(originalRfiltered3, aes(x = host.length, y = of.thorax) ) + 
 geom_point(aes(size = number.simp, fill = host.sex), shape=21, colour="black" ) + 
 scale_fill_manual(name = "Host Sex", labels=c("F", "M"), values = c("red", "blue") ) + 
     scale_size_continuous(name = "Group Size", labels = c("1", "2", "3", "4+") ) + 
  stat_smooth(method = "lm", col = "black", formula = y~poly(x,2)) + 
  theme_classic() + 
  labs(x = "Host length (cm)" ) +
  labs(y = "Parasite length (mm)" ) +
  labs(title = "Correlation between size of host and parasite")  +
  guides(fill = guide_legend(override.aes = list(size=8)))

黑色圓圈定義為shape=21 ，顏色定義為scale_fill_manual 。