我正在嘗試為每條趨勢線添加標簽。我的代碼和資料集如下。
具體來說，我想標記每一行，這樣我就不必放圖例了。出于某種原因，它不斷生成錯誤訊息mapping must be created by aes()。似乎在情節上標記的代碼有一些我不確定的錯誤。我指的是在行尾繪制標簽，但仍然感到困惑。
df_hhi4 = df3 %>% group_by(year, v5) %>%
mutate(share = (v97/sum(v97))*100) %>%
summarize(hhi = sum(share^2)) %>%
mutate(group = factor(v5))
ggplot(df_hhi4, aes(x = year, y = hhi, colour = group))
geom_line() geom_text(df_hhi4, aes(label = group, colour = group, x = Inf, y = hhi), hjust = -.1) scale_x_continuous(breaks=c(1992, 1997, 2000,2003), lim = c(1992, 2003)) theme_bw() annotate("rect", xmin = 2000, xmax = Inf, ymin =-Inf, ymax =Inf, alpha = .15)
structure(list(year = structure(c(1992, 1992, 1992, 1992, 1992,
1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992,
1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1993, 1993, 1993,
1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993,
1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1994,
1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994,
1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994,
1994, 1994, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995,
1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995,
1995, 1995, 1995, 1995, 1996, 1996, 1996, 1996, 1996, 1996, 1996,
1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996,
1996, 1996, 1996, 1996, 1996, 1996, 1997, 1997, 1997, 1997, 1997,
1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997,
1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1998, 1998, 1998,
1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998,
1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1999,
1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999,
1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999,
1999, 1999, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000,
2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000,
2000, 2000, 2000, 2000, 2000, 2001, 2001, 2001, 2001, 2001, 2001,
2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001,
2001, 2001, 2001, 2001, 2001, 2001, 2001, 2002, 2002, 2002, 2002,
2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002,
2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2003, 2003,
2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003,
2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003
), format.stata = "%9.0g"), v5 = structure(c(10, 14, 15, 17,
18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33,
34, 35, 36, 37, 10, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25,
26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 10, 13, 14, 15,
17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 36, 37, 10, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24,
25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 10, 14, 15,
17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 36, 37, 10, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24,
25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 10, 14, 15,
17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 36, 37, 10, 11, 12, 15, 17, 18, 19, 20, 21, 22, 23,
24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 10, 11,
12, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
31, 32, 33, 34, 35, 36, 37, 10, 12, 15, 17, 18, 19, 20, 21, 22,
23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 10,
12, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
31, 32, 33, 34, 35, 36, 37, 10, 12, 15, 17, 18, 19, 20, 21, 22,
23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37), label = "industry classification", format.stata = "s.0g", labels = c(`P(agricultural)` = 1,
`P(forestry)` = 2, `P(fishery)` = 5,
`P(mining)` = 10, `P(oil, natural gas)` = 11,
`P(mining 2)` = 12, `P(mining 3)` = 13, `P(mining 4)` = 14,
`M(food)` = 15, `M(tobacco)` = 16, `M(textile)` = 17,
`M(clothing, fur)` = 18, `M(leather, bags, shoes)` = 19,
`M(wood)` = 20, `M(pulp)` = 21,
`Printing` = 22, `M(petroleum, coke, nuclear)` = 23,
`M(chemical)` = 24, `M(gum, plastic)` = 25,
`M(non-metal)` = 26, `M(metal)` = 27,
`M(metal-assembly)` = 28, `M(unclassifiable machinery)` = 29,
`M(computer)` = 30, `M(unclassifiable electrical machines)` = 31,
`M(telecommunication)` = 32, `M(medical, optical, precision machinery)` = 33,
`M(automobile)` = 34, `M(unclassifiable automobile)` = 35,
`M(furniture)` = 36, `Construction` = 45), class = c("haven_labelled", "vctrs_vctr", "double")), hhi = c(394.383913182351,
38.0801656067744, 30.0326294736874, 24.7521236733799, 18.3126043708068,
43.6744934675323, 61.7361225699876, 164.425040214877, 95.5701278229919,
3297.08822317966, 42.7146359884886, 64.2273420846951, 27.005573802979,
571.36651093846, 75.2732785978811, 30.322882749353, 352.596091131053,
85.1823231673531, 200.835325304756, 111.952988219587, 314.198431236067,
1638.05835100482, 57.3256385420334, 675.51309091688, 457.785430479347,
45.0697074416156, 24.7660341348632, 9.97537631608406, 29.3459789802799,
35.5977902528109, 45.3490572230649, 71.4600830619731, 83.8334297443378,
3878.00818396799, 41.8675682645623, 53.7559701774767, 31.0791668510115,
529.261268839702, 108.559155202092, 22.9485078879889, 770.643175341473,
36.7735565125138, 353.837816002246, 151.259249623411, 539.27095373908,
681.637363471426, 26.5057069589742, 660.962197813434, 498.634833383036,
4277.28340307325, 44.4286422165634, 31.4608977480354, 9.71835869038991,
22.5403059759785, 66.1111750748186, 65.7228316062444, 91.99678656251,
106.93338328768, 4565.01388338255, 61.0498579258827, 64.8785567264267,
40.3343676510339, 798.718915809646, 8.43127228446104, 25.8518443230045,
778.333766827968, 52.9322886043841, 455.428678877652, 59.0947877944083,
737.292396754178, 2214.44086714103, 36.3355872349196, 440.061630194797,
522.800606929144, 53.1831583011444, 31.2464335846594, 10.8256939818128,
28.8435195589226, 40.153608559636, 116.378819886471, 91.9495426230522,
81.9492010537763, 1321.00803318933, 65.5217662997803, 182.687776765954,
47.3676554204626, 1168.47743418268, 9.35930770773066, 21.7154052930075,
178.074815813373, 39.1773279726341, 847.87310022576, 58.5387802045211,
762.286776750171, 579.617655398054, 33.513989294682, 575.164667242332,
1861.86780112905, 166.888173418913, 74.4842017510786, 42.8539506234503,
80.2939183082638, 187.094624005146, 238.709086305178, 197.552652750054,
359.808943365664, 1171.97648452499, 150.966165264893, 64.9984020971181,
175.299094875009, 203.224997987829, 15.7532394509596, 79.7993822300948,
563.901475769996, 105.495584001492, 547.258828622135, 170.684171332889,
1144.70468796318, 4050.43953096033, 113.264037861955, 726.502339882713,
1914.5748135629, 225.478544168188, 88.8055683512757, 53.7606501348449,
66.8605094932516, 193.931806365187, 673.216973521294, 216.394430030425,
319.1145059085, 1584.83164045303, 127.643650730535, 95.7178678235456,
168.603159045731, 273.812959210006, 18.5528339617831, 127.968204648469,
658.556355252612, 150.361703232099, 924.288656175701, 112.687040268529,
1342.95944521461, 210.314858946725, 116.660285766606, 541.823739031936,
732.79032529478, 168.146633724925, 21.6886141930239, 14.9263463623755,
21.0688987295627, 25.7075269680137, 107.506754487588, 132.548353928483,
80.3008299378163, 3084.45742164655, 47.4841449512966, 62.091353288931,
45.7980373214646, 420.819681103412, 123.276480160528, 36.0568120446956,
1565.71466451906, 51.6558900246442, 348.366432198157, 94.9815687382927,
399.007792357465, 848.362427322852, 29.0758885738095, 162.383952143783,
723.073094625819, 2855.20630826536, 100.398245285199, 31.4177224432867,
17.1574328960279, 13.3841564192827, 29.2161362941304, 89.7904799825801,
91.9183505211285, 78.945629242499, 3746.28808378634, 37.2893474610639,
91.7132991700561, 48.5661726726528, 390.534555618734, 27.983420175632,
43.6289136089101, 1326.01005269323, 39.815412595509, 390.366557082487,
93.4287095330928, 697.584214405171, 1168.85763347377, 23.1899609256412,
125.461600224985, 919.457003502553, 3969.17629044255, 88.9775205952186,
24.6512084082924, 12.6658289025524, 11.2083549836225, 24.6691699944811,
74.4567733423912, 91.7614195334266, 84.6277471028106, 3476.42745006007,
37.2259369724338, 37.1331767262695, 57.2966311629608, 377.75403488605,
21.8152249959252, 24.9779364721636, 1719.76988421793, 36.6584853734165,
353.671754646249, 42.0317213157869, 685.157280952937, 1217.65217855664,
24.1564219738513, 91.7936996817451, 1086.64565527087, 110.101906969311,
22.4090729781254, 8.85818308368766, 20.73908826467, 77.0404177282726,
46.9494257009488, 85.0341969843073, 58.2454768933692, 3489.03544027429,
31.2046992777881, 40.3643279889142, 55.0998354128002, 352.689378895368,
25.7646709114131, 30.8900441176465, 1428.53106628259, 29.2003796483345,
309.067709332579, 27.556355444592, 876.479624266762, 982.444209844482,
27.3650829437821, 77.6141328806056, 1313.34923233111, 96.1328975042862,
22.1340303588489, 7.39802269980194, 14.3389259373549, 49.5669343049412,
53.2005387269099, 78.6445588480826, 66.7394362025268, 2930.5957255729,
32.8414904527762, 35.3554264705458, 44.8397718939749, 352.09401300637,
20.3001628780857, 26.3154395375311, 1747.31280465066, 24.3149911036694,
373.117066992827, 35.8211863272719, 222.80627678374, 989.390987386264,
24.9166780272894, 77.545543680839, 1241.05689771729, 93.2554427854188,
21.5009489783546, 6.40979349557045, 30.1517289906289, 44.6539396082126,
26.0497397953054, 73.2468558884983, 61.0431593171497, 2838.78482737057,
34.8860370304562, 28.3469853627934, 44.7477762662968, 424.344125913353,
12.3745036846161, 28.2001123486263, 1150.00235921001, 22.0736660859962,
352.334738983458, 29.6319812115434, 200.583107344393, 842.377715439857,
18.5822859951623, 77.6409838753705), group = structure(c(1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L,
16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 1L, 2L, 3L, 4L,
5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L,
19L, 20L, 21L, 22L, 23L, 24L, 1L, 25L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L,
21L, 22L, 23L, 24L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,
11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L,
24L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L,
14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 1L, 2L,
3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L,
17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 1L, 2L, 3L, 4L, 5L, 6L,
7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L,
20L, 21L, 22L, 23L, 24L, 1L, 26L, 27L, 3L, 4L, 5L, 6L, 7L, 8L,
9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L,
22L, 23L, 24L, 1L, 26L, 27L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,
11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L,
24L, 1L, 27L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L,
14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 1L, 27L,
3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L,
17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 1L, 27L, 3L, 4L, 5L,
6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L,
19L, 20L, 21L, 22L, 23L, 24L), .Label = c("10", "14", "15", "17",
"18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28",
"29", "30", "31", "32", "33", "34", "35", "36", "37", "13", "11",
"12"), class = "factor")), class = c("grouped_df", "tbl_df",
"tbl", "data.frame"), row.names = c(NA, -291L), groups = structure(list(
year = structure(c(1992, 1993, 1994, 1995, 1996, 1997, 1998,
1999, 2000, 2001, 2002, 2003), format.stata = "%9.0g"), .rows = structure(list(
1:24, 25:48, 49:73, 74:97, 98:121, 122:145, 146:169,
170:194, 195:219, 220:243, 244:267, 268:291), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -12L), .drop = TRUE))
uj5u.com熱心網友回復：
由于您可能只需要一個標簽，因此您可以過濾資料集中geom_text去年傳遞給的資料集并映射year到x：
library(ggplot2)
ggplot(df_hhi4, aes(x = year, y = hhi, colour = group))
geom_line()
geom_text(data = subset(df_hhi4, year == max(year)), aes(label = group, colour = group, x = year, y = hhi), hjust = -.1)
scale_x_continuous(breaks = c(1992, 1997, 2000, 2003), lim = c(1992, 2003))
theme_bw()
annotate("rect", xmin = 2000, xmax = Inf, ymin = -Inf, ymax = Inf, alpha = .15)
編輯為了使用你的組的標簽，我遵循了一種稍微不同的方法：
- 使用 將“數字”替換為標簽
haven::as_factor。除此之外，我僅對標簽使用輔助資料框。 - 取下導板。
- 最后，在您鏈接的帖子中，我將標簽放在了情節之外。為此設定
clip="off"，在內部設定限制coord_cartesian而不是通過scale_x...，通過調整 為標簽留出一些空間plot.margin。
library(ggplot2)
library(dplyr)
df_hhi4_label <- df_hhi4 %>%
group_by(group) %>%
filter(year == last(year)) %>%
mutate(v5 = haven::as_factor(v5),
# Use only the text inside parantheses
v5 = gsub(".\\((.*)\\)", "\\1", v5))
ggplot(df_hhi4, aes(x = year, y = hhi, colour = group))
geom_line()
geom_text(data = df_hhi4_label, aes(label = v5, x = 2003.75, y = hhi), hjust = 0)
scale_x_continuous(breaks = c(1992, 1997, 2000, 2003))
theme_bw()
annotate("rect", xmin = 2000, xmax = Inf, ymin = -Inf, ymax = Inf, alpha = .15)
coord_cartesian(clip = "off", xlim = c(1992, 2003))
guides(color = "none")
theme(plot.margin = margin(t = 5.5, r = 200, 5.5, 5.5, "pt"))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/369342.html
上一篇：洗掉指定條件的行