我有以下情节:
有两个重叠的标签，我不知道如何在不将其中一个标签放在另一个标签之上的情况下显示这两个标签。我的代码是:
ggplot(data = tic,
aes(x = tic,
y = Promedio,
fill = rural)) +
geom_point(aes(shape = tipo),
size = 2,
alpha = 0.7) +
scale_shape_manual(values = c("Departamental" = 22,
"Distrital" = 21,
"Municipal" = 23),
name = "Tipo de SE") +
theme_minimal() +
theme(
legend.position = c(0.19,0.83),
legend.background = element_rect(fill=rgb(1,1,1),
size=0.5,
linetype="solid"),
legend.box = "horizontal",
legend.title = element_text(size=13 )
) + geom_hline(yintercept = 250,
linetype = "dashed") +
geom_vline(xintercept = 91,
linetype = "dashed") +
ylab("Promedio del puntaje global del Examen Saber 11° 2016-2019") +
xlab("Porcentaje de establecimientos educativos con TIC") +
scale_fill_gradient(name = "Ruralidad",
low = "green",
high = "red") +
geom_label(data = tic[tic$etc=="CALDAS",],
aes(y = Promedio,
label = "Caldas",
fontface = "bold"),
size = 3) +
geom_label(data = tic[tic$etc=="RISARALDA",],
aes(y = Promedio,
label = "Risaralda",
fontface = "bold"),
size = 3) +
geom_label(data = tic[tic$etc=="PEREIRA",],
aes(y = Promedio,
label = "Pereira"),
size = 3,
fontface = "bold") +
geom_label(data = tic[tic$etc=="ARMENIA",],
aes(y = Promedio,
label = "Armenia"),
size = 3,
fontface = "bold") +
geom_label(data = tic[tic$etc=="QUINDÍO",],
aes(y = Promedio,
label = "Quindío"),
size = 3,
fontface = "bold") +
labs(caption = "Nota: Las líneas punteadas corresponden a las medianas de las correspondientes variables")
我尝试使用geom_label()中的angle参数给它们一些角度，但它不起作用。有谁知道我该如何解决这个问题？
我的数据可以通过以下方式重现:
structure(list(etc = c("AMAZONAS", "ANTIOQUIA", "APARTADÓ", "ARAUCA",
"ARMENIA", "ATLÁNTICO", "BARRANCABERMEJA", "BARRANQUILLA", "BELLO",
"BOGOTÁ, D.C.", "BOLÍVAR", "BOYACÁ", "BUCARAMANGA", "BUENAVENTURA",
"BUGA", "CALDAS", "CALI", "CAQUETÁ", "CARTAGENA", "CARTAGO",
"CASANARE", "CAUCA", "CESAR", "CHÍA", "CHOCÓ", "CIÉNAGA", "CÓRDOBA",
"CÚCUTA", "CUNDINAMARCA", "DOSQUEBRADAS", "DUITAMA", "ENVIGADO",
"FACATATIVÁ", "FLORENCIA", "FLORIDABLANCA", "FUSAGASUGÁ", "GIRARDOT",
"GIRÓN", "GUAINÍA", "GUAVIARE", "HUILA", "IBAGUÉ", "IPIALES",
"ITAGÜÍ", "JAMUNDÍ", "LA GUAJIRA", "LORICA", "MAGANGUÉ", "MAGDALENA",
"MAICAO", "MALAMBO", "MANIZALES", "MEDELLÍN", "META", "MONTERÍA",
"MOSQUERA", "NARIÑO", "NEIVA", "NORTE DE SANTANDER", "PALMIRA",
"PASTO", "PEREIRA", "PIEDECUESTA", "PITALITO", "POPAYÁN", "PUTUMAYO",
"QUIBDÓ", "QUINDÍO", "RIOHACHA", "RIONEGRO", "RISARALDA", "SABANETA",
"SAHAGÚN", "SAN ANDRÉS", "SANTA MARTA", "SANTANDER", "SINCELEJO",
"SOACHA", "SOGAMOSO", "SOLEDAD", "SUCRE", "TOLIMA", "TULUÁ",
"TUMACO", "TUNJA", "TURBO", "URIBIA", "VALLE DEL CAUCA", "VALLEDUPAR",
"VAUPÉS", "VICHADA", "VILLAVICENCIO", "YOPAL", "YUMBO", "ZIPAQUIRÁ"
), tic = c(77.5, 77.4579783559751, 63.013698630137, 81.335952848723,
96.3302752293578, 96.113074204947, 91.0994764397906, 95.0909090909091,
89.5161290322581, 96.3756177924217, 81.0593900481541, 92.1052631578947,
97.2602739726027, 82.1727019498607, 91.2280701754386, 90.8333333333333,
92.0477137176938, 78.7625418060201, 94.2184154175589, 95.7142857142857,
92.3076923076923, 83.2853025936599, 77.3056057866184, 92.9292929292929,
33.5483870967742, 72.4550898203593, 79.8767967145791, 96.037296037296,
92.0209059233449, 88.8111888111888, 85.1851851851852, 90.6976744186046,
94.5054945054945, 77.5510204081633, 97.5609756097561, 94.1747572815534,
93.9024390243902, 93.75, 77.3584905660377, 76.056338028169, 95.1333333333333,
94.7780678851175, 90.8256880733945, 94.1860465116279, 90.3508771929825,
35.0553505535055, 91.6129032258064, 89.5238095238095, 74.7357293868922,
48.8584474885845, 92.7536231884058, 95.7345971563981, 95.4486345903771,
76.2303664921466, 81.8452380952381, 98.2142857142857, 77.3294908741595,
92.5675675675676, 85.6265984654732, 94.2222222222222, 95.1807228915663,
93.4169278996865, 89.5161290322581, 98.9417989417989, 93.5622317596567,
69.1897654584222, 57.5, 98.2517482517483, 66.6666666666667, 96.6101694915254,
85.546218487395, 96.6666666666667, 96.4912280701754, 91.1764705882353,
91.1357340720222, 92.2948771345273, 95.2380952380952, 97.4137931034483,
97.2222222222222, 93.8848920863309, 86.0730593607306, 92.0260782347041,
98.0769230769231, 62.1794871794872, 93.2926829268293, 70, 5.58766859344894,
95.1026856240126, 88.821752265861, 22.9357798165138, 68.4466019417476,
91.2181303116147, 80, 95.7746478873239, 95.8333333333333), tipo = c("Departamental",
"Departamental", "Municipal", "Departamental", "Municipal", "Departamental",
"Municipal", "Distrital", "Municipal", "Distrital", "Departamental",
"Departamental", "Municipal", "Municipal", "Municipal", "Departamental",
"Municipal", "Departamental", "Distrital", "Municipal", "Departamental",
"Departamental", "Departamental", "Municipal", "Departamental",
"Municipal", "Departamental", "Municipal", "Departamental", "Municipal",
"Municipal", "Municipal", "Municipal", "Municipal", "Municipal",
"Municipal", "Municipal", "Municipal", "Departamental", "Departamental",
"Departamental", "Municipal", "Municipal", "Municipal", "Municipal",
"Departamental", "Municipal", "Municipal", "Departamental", "Municipal",
"Municipal", "Municipal", "Municipal", "Departamental", "Municipal",
"Municipal", "Departamental", "Municipal", "Departamental", "Municipal",
"Municipal", "Municipal", "Municipal", "Municipal", "Municipal",
"Departamental", "Municipal", "Departamental", "Municipal", "Municipal",
"Departamental", "Municipal", "Municipal", "Departamental", "Distrital",
"Departamental", "Municipal", "Municipal", "Municipal", "Municipal",
"Departamental", "Departamental", "Municipal", "Municipal", "Municipal",
"Municipal", "Municipal", "Departamental", "Municipal", "Departamental",
"Departamental", "Municipal", "Municipal", "Municipal", "Municipal"
), rural = c(87.9432624113475, 87.1920135938828, 61.25, 81.8032786885246,
19.6428571428571, 27.0096463022508, 30.3030303030303, 0.489396411092985,
6.66666666666667, 2.24803297115024, 77.2442588726514, 84.0325342465753,
6.66666666666667, 20.4907975460123, 31.0077519379845, 82.9002514668902,
6.15128844555278, 94.7916666666667, 8.81801125703565, 14.6666666666667,
86.5912762520194, 89.4032134659526, 79.1833466773419, 50, 92.1666666666667,
55.7471264367816, 82.4182603331277, 15.8013544018059, 78.5690950669716,
19.4630872483221, 19.047619047619, 15.7303370786517, 16.3265306122449,
59.2105263157895, 12.568306010929, 36.7924528301887, 6.59340659340659,
36.2745098039216, 93.4065934065934, 89.7435897435898, 86.8037135278515,
26.5402843601896, 57.6642335766423, 6.59340659340659, 54.0983606557377,
81.2091503267974, 80.3680981595092, 40, 69.5017182130584, 73.7556561085973,
8.69565217391304, 28.5714285714286, 7.63723150357995, 86.4527629233512,
55.2325581395349, 6.45161290322581, 90.2942468159859, 26.4900662251656,
85.9764705882353, 25.7462686567164, 37.5478927203065, 39.4886363636364,
60.3053435114504, 72.4867724867725, 24.609375, 90.1760889712697,
50.3311258278146, 74.6575342465753, 67.9054054054054, 52.4590163934426,
84.7039473684211, 35.4838709677419, 78.6324786324786, 47.2222222222222,
22.0379146919431, 88.7592376507196, 20, 3.62903225806452, 34.8623853211009,
0.33112582781457, 74.5689655172414, 80.1830663615561, 44.7674418604651,
84.1954022988506, 7.01754385964912, 86.4864864864865, 98.1515711645102,
73.8644304682041, 32.5333333333333, 92.4242424242424, 91.8103448275862,
18.1102362204724, 53.0864197530864, 40.5405405405405, 21), Promedio = c(225,
248.75, 245.75, 260.25, 271.25, 234.75, 271.25, 261.75, 266.25,
277, 225.75, 258.75, 290, 229.5, 265.5, 249.5, 256.25, 240, 250.25,
260.25, 256.25, 229.25, 239.5, 288.75, 204.5, 224.5, 236.5, 271.5,
264.75, 272.25, 292.5, 289, 276.5, 263.75, 291.75, 269.25, 252,
269.25, 241.5, 240.25, 256.75, 271, 276.25, 271.25, 256.25, 229.5,
232.75, 247.25, 221.5, 238.25, 243, 274.5, 269.5, 252.75, 266.75,
284.5, 252.75, 278.25, 259.75, 277, 281.5, 270.5, 280.5, 281.75,
266.25, 251.5, 226.75, 255, 248.25, 281, 248.75, 286.25, 259,
246, 246.5, 264.75, 265.5, 261.5, 285.25, 253, 236.25, 240.25,
263, 217.75, 289.75, 219.25, 207.5, 248.5, 259.75, 221, 235.5,
271.75, 274, 248.25, 280.75)), row.names = c(NA, -95L), class = "data.frame")
最佳答案
您可以使用ggrepel::geom_label_repel。请注意，标签位置是半随机的，因此您可能需要多次绘制绘图，或者使用 geom_label_repel 参数来获得您喜欢的东西。
更改您的 geom_label 调用，如下所示
geom_label(data = tic[tic$etc=="ARMENIA",],
aes(y = Promedio,
label = "Armenia"),
size = 3,
fontface = "bold")
到 geom_label_repel 调用
geom_label_repel(data = tic[tic$etc=="ARMENIA",],
aes(y = Promedio,
label = "Armenia"),
size = 3,
fontface = "bold")
关于r - ggplot2 中的重叠标签，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/62350689/