渐变色ggplot2 R中的一条线

Posted 2023-02-16

【中文标题】渐变色ggplot2 R中的一条线

【英文标题】：Gradient-color a line in ggplot2 R

【发布时间】：2022-01-04 01:20:51

【问题描述】：

我目前有这个情节

有了这些数据

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

【参考方案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")

【讨论】：

工作得很好！非常感谢

@stefan：太棒了斯特凡。非常好用的好功能！