我正在嘗試為圖中的每個國家(A、B、C)繪制單獨的線段。
我使用變數 country 作為 group 引數(正如檔案所建議的那樣),但這不起作用。這條線仍然是連接所有文本標簽的連續線,但我需要繪制 3 條單獨的線,每個國家/地區一條,連接多年來的 3 個文本標簽。
library(dplyr)
library(ggplot2)
df_p <- data.frame(
year = rep(2019:2021, each = 3),
country = rep(LETTERS[1:3], 3),
var_a = c(1,6,10,2,5,7,3,7,9),
var_b = c(2,8,14,4,9,15,2,9,19)
)
df_p %>% arrange(country, year) %>%
ggplot(aes(x = var_a, y = var_b, color = country))
geom_text(aes(label = year))
geom_segment(
aes(
xend = c(tail(var_a, n = -1), NA),
yend = c(tail(var_b, n = -1), NA),
group = country
),
arrow = arrow(type = "open", length = unit(0.15, "inches"))
)
uj5u.com熱心網友回復:
我認為你只需要geom_path而不是geom_segment.
嘗試這個:
df_p %>% arrange(country, year) %>%
ggplot(aes(x = var_a, y = var_b, color = country))
geom_text(aes(label = year))
geom_path(
aes(
group = country
),
arrow = arrow(type = "open", length = unit(0.15, "inches"))
)
轉載請註明出處,本文鏈接:https://www.uj5u.com/ruanti/437571.html
上一篇:計算匹配的字母一次
