用十字或轮廓颜色标记条件geom_points

Question

我想创建一个条件

geom_point

，其中数据中的

sids

被标记为例如点中的十字或替代轮廓颜色。请注意，我不想在图中添加额外的点。我的代码：

x

我（不成功）尝试添加：

ggplot(plotdata, aes(x = Value)) +
  geom_point(aes(y = ssp1, colour = region),alpha = 0.2,size=10) +
  geom_text(aes(y = ssp1, label = NA),size = 10)+
  ggnewscale::new_scale_color() +
  geom_point(aes(y = ssp3, colour = region),alpha=0.2,size=10) +
  geom_text(aes(y = ssp3, label = NA),size = 10)+
  geom_point(aes(y = ssp3),
             shape = 21,size = 12,colour = "black")

可重现的数据：

geom_point(aes(y = ssp3),
             shape = 21,size = 12,colour = ifelse(sids == "x", "black", "red"))) +

geom_point(data = plotdata[which(plotdata$sids == "x"),], 
  aes(shape = 50,size = 50,colour = "red"))

Answer 1

plotdata <- structure(list(Country = c("Afghanistan", "Albania", "Algeria", 
"Angola", "Antigua and Barbuda", "Argentina", "Armenia", "Australia", 
"Austria", "Azerbaijan", "Bahamas", "Bangladesh", "Barbados", 
"Belarus", "Belgium", "Belize", "Benin", "Bosnia and Herzegovina", 
"Botswana", "Brazil", "Bulgaria", "Burkina Faso", "Burundi", 
"Cambodia", "Cameroon", "Canada", "Chad", "Chile", "China", "Colombia", 
"Congo", "Costa Rica", "Croatia", "Cuba", "Cyprus", "Democratic Republic of the Congo", 
"Denmark", "Djibouti", "Dominica", "Dominican Republic", "Ecuador", 
"Egypt", "El Salvador", "Estonia", "Ethiopia", "Fiji", "Finland", 
"France", "Gabon", "Gambia", "Georgia", "Germany", "Ghana", "Greece", 
"Grenada", "Guatemala", "Guinea", "Guyana", "Haiti", "Honduras", 
"Hungary", "Iceland", "India", "Indonesia", "Iran (Islamic Republic of)", 
"Iraq", "Ireland", "Israel", "Italy", "Jamaica", "Japan", "Jordan", 
"Kazakhstan", "Kenya", "Kuwait", "Kyrgyzstan", "Lao People's Democratic Republic", 
"Latvia", "Lebanon", "Lesotho", "Liberia", "Lithuania", "Luxembourg", 
"Madagascar", "Malawi", "Malaysia", "Mali", "Malta", "Mauritania", 
"Mauritius", "Mexico", "Mongolia", "Montenegro", "Morocco", "Mozambique", 
"Namibia", "Nepal", "New Caledonia", "New Zealand", "Nicaragua", 
"Niger", "Nigeria", "Norway", "Oman", "Pakistan", "Panama", "Papua New Guinea", 
"Paraguay", "Peru", "Philippines", "Poland", "Portugal", "Republic of Moldova", 
"Romania", "Rwanda", "Saint Lucia", "Saint Vincent and the Grenadines", 
"Saudi Arabia", "Senegal", "Serbia", "Seychelles", "Sierra Leone", 
"Slovakia", "Slovenia", "South Africa", "Spain", "Sri Lanka", 
"Sudan", "Suriname", "Sweden", "Switzerland", "Syrian Arab Republic", 
"Tajikistan", "Thailand", "Togo", "Trinidad and Tobago", "Tunisia", 
"Turkmenistan", "Uganda", "Ukraine", "United Arab Emirates", 
"United Republic of Tanzania", "Uruguay", "Uzbekistan", "Vanuatu", 
"Viet Nam", "Yemen", "Zambia", "Zimbabwe"), Value = c(38.1, 38.5, 
73.8, 42.9, 97.5, -139, 73.5, -132.6, 17.8, 31.5, 99, 11.2, 100, 
9.4, 65.1, 21.4, 42.2, 25, 81.6, -28.3, -268.8, 6.4, 22.9, -7.1, 
31.4, -85.6, 3.8, 53.9, 4.3, 63.6, 96.2, 89.5, -44.8, 77.7, 98.4, 
19.8, -8.4, 98.8, 100, 65.8, 34.7, 47.4, 53.5, -138.4, 6.6, 89.2, 
-12.9, -104.4, 91.2, 71.7, 63.2, -0.3, 36.2, 32.4, 100, 52.9, 
25.5, 16.1, 82.5, 60.2, -90.5, 83.4, -6.4, 14, 36.3, 50, 54.2, 
95.9, 38.1, 99.6, 68.9, 100, -87.2, 41.1, 96.2, 18.5, -2.9, -252.5, 
92.7, 100, 60.7, -194.2, 7.3, 19.6, 4.4, 73.7, 4.3, 95.9, 58.6, 
95.3, 39.1, 28.2, 87.7, 65.7, 45.9, 69.2, 14.2, 84.9, 44.8, 40.6, 
13.7, 17.6, 44.6, 82.2, -20.2, 64.5, 100, -74.6, 54.2, 28.5, 
-18.1, 74.8, -57.1, -51.4, 34, 100, 89.6, 93.7, 43.3, -52.6, 
95.5, 38.8, -49.8, 21.6, 7.8, 36.4, 20.9, 33.5, -27, -18.6, 52.7, 
29.2, 50.4, -36.5, 21.2, 100, 65.4, 15.1, 8.9, -334.7, 100, 2.6, 
-113.1, 29.1, 100, 10.3, 92.8, -0.1, 60.3), ssp1 = c(6.87719604039575, 
-1.06100837333492, 2.59543525196996, 7.74909469087916, 1.377, 
10.3318111947289, -0.180534273291218, 10.6863086552024, -2.8434429513538, 
0.8295835298604, 14.0714872007582, 9.11373284351027, 13.834847330905, 
-0.422973062226785, -1.12106200160775, 13.5603205241274, 3.32653289854384, 
-2.39840998223208, 39.0828127635901, 5.40019194625597, -2.37642348260683, 
-1.80087476513633, 26.0569890396984, 1.8740956699509, 1.9199373912491, 
13.6775030956447, 0.91531195468484, 8.29296606482521, 14.19398140075, 
12.1672597709284, 1.06201287428673, 13.8436295615977, -1.28049911332916, 
6.36680281629815, -2.16911180718123, 2.47990039474395, 5.18645876036465, 
2.78562206607004, 4.67093204472536, 14.2178250264376, 13.9734947853149, 
3.80608747886628, 13.7526633970167, 3.37025317716788, 5.96575877565631, 
-2.60698394985916, 9.26426320499438, 6.66024582653063, -3.16241148606594, 
0.0628149886250168, 0.681560296085797, 4.32037502371113, 12.4500313543188, 
-1.07955855645901, 13.9589139439942, 13.7433812989495, -0.21431253200414, 
15.2482565847712, 12.2110460196517, 13.6752546528255, -2.08811059482957, 
3.67079209287298, 3.41664545080416, 6.92130090642129, 9.53371114259265, 
5.96513477862029, 3.98671832745579, 3.66142880690897, 1.3452892823872, 
14.1782670530732, 13.5509485401262, 2.77458006214854, 0.616970969614392, 
9.84752995853506, 1.70128642891372, 2.82563702390358, 11.772267636272, 
3.76180722567503, 0.681139075065755, 6.54103467691194, 12.7692014216183, 
2.67182954510156, -3.42062320698536, 5.27036168510605, 17.6160396053099, 
8.374852741348, -2.69282959883473, -2.56778355024776, -0.89032205839622, 
-0.585695539225483, 13.7366364475876, 0.0820039838000084, -1.90552842715223, 
5.14157480957494, 7.39861862785589, 15.2664817313064, 12.6892781227389, 
-2.78344323119485, -1.40287983117524, 12.4312519721005, 4.3698505825319, 
9.699439764416, 9.889258044527, 4.15757865847257, 11.6162007892663, 
13.1305077081529, -2.53753025307064, 10.8289058140878, 11.3367901580171, 
8.90323006110098, -1.26348619917293, 4.78331223456758, -0.506894723966887, 
-1.88455225318295, 13.0922363764111, 7.36209923785002, 13.9568271020089, 
8.42952239060954, 0.0257094692375058, -2.15177413293949, 11.6315929263403, 
6.13336692575858, -3.09064087895074, -2.85169783459753, 5.11971334941515, 
4.99811902863518, 12.7930552399297, 2.27453897486697, 5.55036600011847, 
3.56163167904334, -1.2761086913776, -0.0316805700694275, 4.25863478283838, 
10.1688044768348, 5.68472004148339, 13.9225435723809, 3.29714347391458, 
0.0787167671816411, 5.58156633046249, -0.982484142765789, 6.87196138412805, 
5.05135778134877, 8.09871120916213, 4.26725972653938, 5.661, 
8.19713984029529, 1.91549371207647, 32.1329403465877, 50.4218900613334
), ssp3 = c(20.095265606683, 10.4927314729628, 12.4376500629579, 
18.5882557266773, 1.664, 14.6353441343252, 12.0273301926656, 
16.6141977202554, 7.87973958734101, 13.3981252946914, 18.5286885419408, 
20.9150480971352, 16.7784853659327, 8.48151021407169, 8.82670438173037, 
17.0029196476309, 16.0210691894781, 8.4980873926903, 86.8001620836472, 
13.3218857281687, 7.82222823501068, 9.02507622866414, 56.9209570739615, 
15.3959976183153, 12.2348154715234, 16.9909569760022, 3.41565737951074, 
15.259126181742, 21.7075122809396, 17.9151893044619, 11.2519582951635, 
17.9032194794042, 9.63083745607234, 15.0220862355254, 7.81125224129036, 
14.5872675246356, 17.250239256418, 13.2479984997126, 6.13669645504627, 
20.1598499252078, 21.4825228142268, 12.7695343935556, 17.2424026235644, 
14.3812672415291, 14.3772246120346, 12.9911015663651, 19.8888837045986, 
15.4602995530912, 7.10400058276914, 9.09401702831024, 12.5366397029655, 
12.8376451103572, 21.6172749875706, 8.50439517946764, 17.0405117386743, 
17.4090297307004, 11.4876936836549, 20.2724386262285, 17.8509723421539, 
16.8860151519022, 7.40791011301382, 14.6978086441983, 17.5112511883045, 
17.2313021634546, 19.6967434629905, 16.0784535351506, 13.2634312821103, 
11.529923820201, 10.9782534266604, 17.7241012521462, 18.7272480044671, 
11.8629080612917, 12.3152868465769, 26.7282056624674, 15.3961288164741, 
15.6860322900639, 22.8816317431949, 16.0032167193318, 9.93834937463715, 
14.6589507197544, 17.0771884152097, 12.2403191542961, 6.48830765315486, 
17.8200553865727, 42.6177029820878, 19.4085722788309, 7.72525381293569, 
7.36474146264451, 9.09907478245312, 10.2939894844613, 17.3462228962, 
11.2179958539545, 8.89972180889966, 14.3555073601475, 20.4875910880693, 
33.4255309012712, 32.5556166859486, 9.90643453958774, 12.7450587566419, 
18.4983348192052, 20.6056299965601, 16.693991530089, 20.7770635320112, 
16.8815240811413, 19.4769132563399, 16.9724042644811, 13.1366363441094, 
20.8488626331758, 17.9274754623928, 17.3590915211959, 8.73779487641076, 
13.6790971600394, 7.7823127266393, 8.68937695011447, 32.5136500502681, 
11.1629856739021, 17.0360874770546, 17.3979143494193, 10.2854499669361, 
8.39386157432628, 31.1652263084885, 14.7356990749187, 7.67331475087449, 
8.37962523464408, 16.8181541350166, 14.0256666199924, 23.2354030548315, 
14.0958225767172, 12.0708871110594, 15.0654880792265, 8.49120231184184, 
8.98518609030765, 16.1794455230258, 18.7951484033536, 15.6383660380437, 
17.0745606749833, 11.7321928120145, 9.38762811334998, 19.7797954224522, 
8.42087168278456, 18.8103435788398, 18.6500425388502, 12.8674194023239, 
16.8676526369899, 13.229, 19.583497195285, 13.2467595038187, 
74.7040022702355, 112.823771429281), region = c("Southern Asia", 
"Southern Europe", "Northern Africa", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Latin America and the Caribbean", "Western Asia", "Australia and New Zealand", 
"Western Europe", "Western Asia", "Latin America and the Caribbean", 
"Southern Asia", "Latin America and the Caribbean", "Eastern Europe", 
"Western Europe", "Latin America and the Caribbean", "Sub-Saharan Africa", 
"Southern Europe", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Eastern Europe", "Sub-Saharan Africa", "Sub-Saharan Africa", 
"South-eastern Asia", "Sub-Saharan Africa", "Northern America", 
"Sub-Saharan Africa", "Latin America and the Caribbean", "Eastern Asia", 
"Latin America and the Caribbean", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Southern Europe", "Latin America and the Caribbean", "Western Asia", 
"Sub-Saharan Africa", "Northern Europe", "Sub-Saharan Africa", 
"Latin America and the Caribbean", "Latin America and the Caribbean", 
"Latin America and the Caribbean", "Northern Africa", "Latin America and the Caribbean", 
"Northern Europe", "Sub-Saharan Africa", "Melanesia", "Northern Europe", 
"Western Europe", "Sub-Saharan Africa", "Sub-Saharan Africa", 
"Western Asia", "Western Europe", "Sub-Saharan Africa", "Southern Europe", 
"Latin America and the Caribbean", "Latin America and the Caribbean", 
"Sub-Saharan Africa", "Latin America and the Caribbean", "Latin America and the Caribbean", 
"Latin America and the Caribbean", "Eastern Europe", "Northern Europe", 
"Southern Asia", "South-eastern Asia", "Southern Asia", "Western Asia", 
"Northern Europe", "Western Asia", "Southern Europe", "Latin America and the Caribbean", 
"Eastern Asia", "Western Asia", "Central Asia", "Sub-Saharan Africa", 
"Western Asia", "Central Asia", "South-eastern Asia", "Northern Europe", 
"Western Asia", "Sub-Saharan Africa", "Sub-Saharan Africa", "Northern Europe", 
"Western Europe", "Sub-Saharan Africa", "Sub-Saharan Africa", 
"South-eastern Asia", "Sub-Saharan Africa", "Southern Europe", 
"Sub-Saharan Africa", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Eastern Asia", "Southern Europe", "Northern Africa", "Sub-Saharan Africa", 
"Sub-Saharan Africa", "Southern Asia", "Melanesia", "Australia and New Zealand", 
"Latin America and the Caribbean", "Sub-Saharan Africa", "Sub-Saharan Africa", 
"Northern Europe", "Western Asia", "Southern Asia", "Latin America and the Caribbean", 
"Melanesia", "Latin America and the Caribbean", "Latin America and the Caribbean", 
"South-eastern Asia", "Eastern Europe", "Southern Europe", "Eastern Europe", 
"Eastern Europe", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Latin America and the Caribbean", "Western Asia", "Sub-Saharan Africa", 
"Southern Europe", "Sub-Saharan Africa", "Sub-Saharan Africa", 
"Eastern Europe", "Southern Europe", "Sub-Saharan Africa", "Southern Europe", 
"Southern Asia", "Northern Africa", "Latin America and the Caribbean", 
"Northern Europe", "Western Europe", "Western Asia", "Central Asia", 
"South-eastern Asia", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Northern Africa", "Central Asia", "Sub-Saharan Africa", "Eastern Europe", 
"Western Asia", "Sub-Saharan Africa", "Latin America and the Caribbean", 
"Central Asia", "Melanesia", "South-eastern Asia", "Western Asia", 
"Sub-Saharan Africa", "Sub-Saharan Africa"), sids = c("", "", 
"", "", "x", "", "", "", "", "", "x", "", "x", "", "", "x", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"x", "", "", "", "", "x", "x", "", "", "", "", "", "x", "", "", 
"", "", "", "", "", "", "x", "", "", "x", "x", "", "", "", "", 
"", "", "", "", "", "", "x", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "x", "", "", "", 
"", "", "", "", "x", "", "", "", "", "", "", "", "", "x", "", 
"", "", "", "", "", "", "", "x", "x", "", "", "", "x", "", "", 
"", "", "", "", "", "x", "", "", "", "", "", "", "x", "", "", 
"", "", "", "", "", "", "x", "", "", "", "")), row.names = c(NA, 
-149L), class = "data.frame")

sids == "x"

正如 @LuccaNielsen 在评论中指出的那样，您可以将 

library(tidyverse)

映射到

sids

美学。shape

或者，您可以为所有点指定相同的形状（我选择了实心圆）并改变

plotdata %>%
  pivot_longer(c(ssp1, ssp3), names_to = 'ssp', values_to = 'ssp_value') %>%
  ggplot(aes(x = Value, y = ssp_value, colour = region, shape = sids)) +
  geom_point(alpha = 0.7, size = 10) +
  scale_shape_manual(values = c(21, 4))

。这给出了“盘旋”这些点的效果。

stroke

Answer 2

plotdata %>%
  pivot_longer(c(ssp1, ssp3), names_to = 'ssp', values_to = 'ssp_value') %>%
  ggplot(aes(x = Value, y = ssp_value, fill = region, stroke = sids)) +
  geom_point(alpha = 0.6, size = 10, shape = 21, color = 'black') +
  scale_discrete_manual(
    aesthetics = 'stroke', values = c(0,3)
  )

然后

plotdata[,"color"] <- "red" 
plotdata[plotdata$sids == "x","color"] <- "black" 

哪里

ggplot(plotdata, aes(x = Value)) +
  geom_point(aes(y = ssp1, colour = region),alpha = 0.2,size=10) +
  geom_text(aes(y = ssp1, label = NA),size = 10)+
  geom_point(aes(y = ssp3, colour = region),alpha=0.2,size=10) +
  geom_text(aes(y = ssp3, label = NA),size = 10)+
  geom_point(aes(y = ssp3), shape = 21,size = 12, colour = plotdata$color +
  ggnewscale::new_scale_color()  

。

如果

colour = plotdata$color

发生变化，您可以使用通用变量进行概括。

如果那么，你绝对想要几何内部有一个条件，你可以写：

"x"

最好

尼克