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

Я знаю, что могу указать как размер, так и цвет в одной строке AES, но это только генерирует одиниз легенд.<- если вы можете мне здесь помочь, тогда моя проблема решена. </p>

Я хотел бы получить то, что на картинке, но без необходимости нанесения двух наборов точек, что приводит к черной основной точке(чтобы автоматически создавалась легенда) и второй слой цветных точек (чтобы создавалась легенда цвета).

Я попытался сгенерировать базовые точки размера с белым цветом, что дает мне правильный визуальный видна графике с белым фоном, но затем делает круги разного размера в легенде белым, что не то, что я хочу.

Я также пробовал scale_size_manual и добавление точек, но я получаю сообщение об ошибке, потому чтоРазмер является непрерывной переменной, это не будет работать.

Спасибо!

структура dput (originalRfiltered3) (список (инфекция. Кластер = c ("B12_ES079_A", "B12_ES079_A", "B12_ES080_A", "B12_ES080_A", "B12_ES081_"), «B12_ES081_A», «B12_ES083_A», «B12_ES083_A», «B12_ES084_A», «B12_ES084_A», «B12_ES086_A», «B12_ES086_A», «B13_ES029_A», B13_13 »B0B13_ES039_A», "B13_ES039_A", "B13_ES076_A", "B13_ES076_A", "B13_ES076_A", "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_ES096_A", "B13_ES096_A", "B13_ES101_A", "B13_ES101_A", "B13_ES121_A", "B13_ES121_A", "B19_ES007_A", "B19_ES016_A", B19_ES19 "B19_" B196 "B6_6" B6_6 "B6_619" B6_619 "B6_619" B6_619 "B")B19_ES016_B "," B19_ES016_B "," B19_ES016_C "," B19_ES026_A "," B19_ES048_A "," B19_ES048_A "," B19_ES40_A "," B19_ES40_A "," B21_ES001_AES ", B21A" B1 ", B21_A00A" B1 ", B21A00A" B21_ES21_A ", B21_0000" B15_ES01_A ", B21_00A", B21_0000A "B21_ES001_A" B21_ES1000), "B21_ES003_A", "B21_ES004_A", "B21_ES004_A", "B21_ES005_A", "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_ES_1_121 "B1" B1_1011 "B1_1_1_1" B1_1_1_1_121) B1_1_2"," B21_ES012_A "," B21_ES012_A "," B21_ES012_A "," B21_ES012_A "," B21_ES013_A "," B21_ES013_A "," B21_ES014_A ", B21_ES014_А"B22_ES1075_A", "B22_ES1075_A", "B22_ES1075_A", "B22_ES1075_A", "B22_ES1075_A", "B22_ES1075_A", "B22_ES1130_A", "B22_ES1130_A", B22_ES1130_B ", B22_ES" B11_11 "B11_11" B11_11 "B11_11" B11_11 "B11_11" B11_11 "B11_1111"): B22_ES1075_A"," B22_ES1138_A "," B22_ES1138_A "," B22_ES1138_A "," B22_ES1138_A "," B22_ES1139_A "," B22_ES1139_A "," B22_ES1140_A "," B22_ES1140_A "," B22 "B11" B11 "B11" B11_11 ", B22" B11_11 ", B22_11_11_11_11_11_11_11_11_11_11_1_1_1, B22" B11 ", B22" B11 ", B11" B11 "),""B22_ES1141_A", "B22_ES1141_A", "B22_ES1141_A", "B22_ES1141_B", "B22_ES1141_B", "B22_ES1142_A", "B22_ES1142_A", "B22_ES1142_B", B22_ES1142_B ", B22_ES" B11_11 "B11_11" B11_11 "B11_11" B11_11 "B11_11_11" B11_11_11 "B11_11) B11_1111" B11_11 ", B11_11) B1111"," B22_ES1189_A», "B25_b001", "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", "B3_ES1006_A","B3_ES1006_A", "B3_ES1008_A", "B3_ES1008_A", "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_ES1012_A", «B3_ES1013_A"," B3_ES1013_A "," B3_ES1014_A "," B3_ES1014_A "," B3_ES1014_B "," B3_ES1015_A "," B3_ES1015_A "," B3_ES1016_A "," B3_ES1011 "B1_1011" B1_1011 "B1_1011" B1_1011 "B1_1011" B1_1011 "B1_1011" B1_1011 "B1_1011" B1_1011 ""B3_ES1019_A", "B3_ES1019_A", "B3_ES1020_A", "B3_ES1021_A", "B3_ES1021_A", "B3_ES1022_A", "B3_ES1022_A", "B3_ES1023_A", "B3_10", B3_10 ", B3_10_10""B3_ES1024_A", "B3_ES1024_A", "B3_ES1025_A", "B3_ES1026_A", "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_ES005_A", "B31_ES005_A", "B31_ES007_A", "B31_ES008_A", "B31_ES008_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», «RT1ES12_A», «RT1ES12_A», «RT1ES2_A», «RT1ES3_A», «RT1ES4_A», «RT1ES5_A», «RT1ES5_A», «RT1ES6_A», «RT1ES7_A», «RT1ES7_B», «RT1ES7_B», «RT1ES7_B», «RT1ES8_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", "RT2ES16_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, 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, 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», «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", "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", "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", "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 ("dorsal", "dorsal", "грудная", "грудная", "грудная", "грудная", "спинная", "спинной", "спинной", "спинной", "передний", "передний", "грудной", «грудные», «грудные», «грудные», «грудные», «грудные», "грудные", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "тазовый", "тазовый", "спинной", "спинной", "спинной", "грудная", "грудная", "спинная", "спинная", "грудная", "грудная", "грудные", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "генитальный", "спинной", "спинной", "спинной", «грудная», «грудная», «передняя», «передняя», «грудная», "грудные", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "тазовый", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", «спинной», «спинной», «грудной», «спинной», «грудной», «грудной», "грудная", "грудная", "грудная", "спинная", "спинная", "спинная", "спинной", "спинной", "спинной", "грудная", "грудная", "грудная","спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "передний", "передний", "спинной", "спинной", "спинной", "спинной", «передний», «передний», «передний», «передний», «передний», "спинной", "спинной", "спинной", "спинной", "спинной", "тазовый", "тазовая", "тазовая", "тазовая", "спинная", "спинная", "тазовая", "тазовый", "грудной", "грудной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "передний", "тазовый", "тазовый", "грудной", "грудной", "спинной", "спинной", "спинной", «спинной», «передний», «передний», «спинной», «грудной», «грудной», "спинной", "спинной", "грудная", "грудная", "грудная", "грудная", "грудная", "грудная", "спинная", "спинная", "спинная", "спинная", «спинной», «спинной», «грудной», «грудной», «передний», «грудной», «тазовый», «тазовый», «грудной», «спинной», «спинной», «передний», «передний», «грудной», «грудной», «грудной», «грудной», "спинной", "спинной", "грудная", "грудная", "грудная", "грудная", "спинной", "спинной", "грудная", "грудная", "спинная", "спинная", «другой», «другой», «спинной», «дорсальный», «грудной», «грудной», "спинной", "спинной", "грудная", "грудная", "спинная", "спинная", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "таз", "таз", "передний", "передний", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "грудной", "спинной", "спинной", "спинной", "спинной", "спинной", "грудная", "грудная", "спинная", "спинной", "тазовый", "тазовый", "спинной", "спинной", "грудная", "грудная", "грудная", "спинная", "спинная", "спинная", "спинная", "спинной", "грудная", "грудная", "тазовая", "тазовая", "спинная", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", "грудной", "грудной", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", «спинной», «грудной», «грудной», «грудной», «грудной», "грудная", "грудная", "грудная", "спинная", "спинная", "спинная", "спинной", "спинной", "спинной", "спинной", "спинной", "спинной", «спинной», «грудной», «спинной», «другой», «грудной», «грудной», «другой», «другой», «другой», «другой», «другой», «спинной», «спинной», "спинной", "грудной", "грудной", "спинной", "спинной", "спинной", "спинной", "спинной", "грудной", "спинной", "спинной", "спинной", "спинной", "спинной", "грудной", "спинной", "другой"), number.of.parasites.on.host = c (2, 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, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 1, 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, 3, 3, 3, 7, 7, 7, 7, 7, 7, 7, 3, 3, 3, 1, 3, 3, 3, 7, 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, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 6, 6, 6, 6, 6, 6, 2, 2, 3, 3, 3, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4, 1, 3, 3, 3, 4, 4, 4, 4, 1, 1, 1, 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, 4, 4, 6, 6, 6, 6, 6, 6, 4, 4, 4, 4, 4, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 2, 2, 2, 1, 2, 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, 2, 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, 3, 3, 3, 2, 2, 3, 3, 3, 2, 2, 2, 4, 4, 4, 3, 3, 2, 3, 2, 2, 2, 2, 2, 5, 2), tot.clusters = c (1, 1, 1, 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, 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, 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, 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, 1, 2, 2, 2, 2, 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, 3, 1, 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, 1, 2, 2,2, 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, 1, 2, 1, 2, 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, 2, 1), ofthorax = 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,016,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,356,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, 11,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 («да», «да», «да», «да», «да», «да», «да», «да "," да "," нет "," да "," да "," нет "," да "," нет "," да "," нет "," да "," да "," да ", «да», «нет», «нет», «нет», «нет», «да», «да», «нет», «да», «да», «да», «да», «да уes "," yes "," yes "," no "," yes "," yes "," no "," no "," no "," no "," no "," no "," yes ", «да», «да», «да», «да», «да», «да», «да», «да», «да», «нет», «да», «да», «нет "," нет "," да "," да "," да "," да "," нет "," нет "," да "," нет "," да "," нет "," нет ", «да», «да», «да», «да», «да», «нет», «да», «да», «нет», «нет», «нет», «нет», «нет "," нет "," нет "," нет "," нет "," нет "," нет "," нет "," нет "," нет "," нет "," да "," нет ", «да», «да», «да», «нет», «нет», «нет», «нет», «нет», «нет», «да», «нет», «да», «нет "," да "," да "," да "," нет "," нет "," нет "," да "," нет "," да "," нет ",«нет», «нет», «нет», «нет», «нет», «нет», «нет», «да», «да», «нет», «да», «да», «нет», «нет», «да», «да», «да», «нет», «да», «нет», «нет», «да», «да», «нет», «нет», «нет», «нет», «нет», «нет», «да», «да», «да», «да», «нет», «нет», «нет», «да», «да», «да», «нет», «нет», «нет», «да», «да», «нет», «да», «да», «нет», «нет», «да», «нет», «нет», «да», «нет», «нет», «нет», «да», «да», «да», «нет», «нет», «нет», «нет», «нет», «нет», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «нет», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «нет», «да», «да», «да», «да», «нет», «да», «да», «да», «да», «нет», «нет», «нет», «да», «да», «да», «да», «да», «да», «да», «нет», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «да», «нет», «да», «да», «да», «да», «да», «да», «да», «да», «да», «нет», «да», «нет», «нет», «да», «да», «да», «нет», «да», «нет», «да», «да», «нет», «да», «да», «да», «нет», «нет», «нет», «нет», «нет», «нет», «да», «да», «нет», «нет», «нет», «да», «да», «нет», «да», «да», «нет», «нет», «да», «нет», «да», «нет», «нет», «да», «да», «да», «нет»), 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, 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, 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, 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, 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, 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, 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.