我目前有這個情節
有了這個資料
# A tibble: 2 × 7
`Country Name` `Country Code` Year `CrecimientoPBI (%)` `Inflación (%)` `Desempleo (%)` Code
<chr> <chr> <chr> <dbl> <dbl> <dbl> <chr>
1 Estados Unidos USA 1961 2.3 1.07 6.7 us
2 Estados Unidos USA 2020 -3.49 1.23 8.05 us
我想以漸變形式為連接兩點的線著色，從 1961 年的金色到 2020 年的深綠色。有沒有辦法做到這一點？提前致謝！
uj5u.com熱心網友回復：
實作這一目標的一種選擇是通過ggforce::geom_link2：
library(ggforce)
#> Loading required package: ggplot2
d <- tibble::tibble(
`Country Name` = c('Estados Unidos', 'Estados Unidos'),
`Country Code` = c('USA', 'USA'),
Year = c(1961, 2020),
`CrecimientoPBI (%)` = c(2.3, -3.49),
`Inflación (%)` = c(1.07, 1.23),
`Desempleo (%)` = c(6.7, 8.05)
)
ggplot(d, aes(x = `Inflación (%)`, y = `Desempleo (%)`, color = factor(Year)))
geom_point(aes(size = `CrecimientoPBI (%)`))
geom_link2(aes(group = 1))
scale_color_manual(values = c(`1961` = "gold", `2020` = "darkgreen"))
theme_minimal()
guides(size = "none")
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/366447.html