渐变色 ggplot2 R 中的一行

Question

我目前有这个 plot

有了这个数据

# 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 年的深绿色。有没有办法做到这一点？ 提前致谢！

Answer 1

实现这一目标的一种选择是通过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")