如何向 ggridges 中的脊线图添加垂直颜色渐变？

Question

ggridges 包让您可以使用任一纯色绘制脊线图：

ggplot(iris, aes(x=Sepal.Width, y=Species))+
geom_density_ridges(alpha=0.33, scale=2, fill="#0570b0", colour=alpha(0.1))+
theme_classic()

或水平颜色渐变：

ggplot(iris, aes(x=Sepal.Width, y=Species, fill=..x..))+
geom_density_ridges_gradient(scale=2,colour=alpha(0.1))+
theme_classic()+
scale_fill_gradient(low="#0570b0", high="White")

但我想知道是否可以生成类似的具有垂直颜色渐变的图表，例如此示例（使用 D3.js 绘制）。有没有办法在 R 中实现类似的东西？

图片来源ONS: Middle-aged generation most likely to die by suicide and drug poisoning

Answer 1

我们可以使用 devoutsvg 和相关的 svgpatternsimple 包来做到这一点：

# install packages    
# devtools::install_github("coolbutuseless/lofi")      
# devtools::install_github("coolbutuseless/minisvg")   
# devtools::install_github("coolbutuseless/devout")    
# devtools::install_github("coolbutuseless/devoutsvg") 
# devtools::install_github("coolbutuseless/poissoned") 

library(lofi)
library(minisvg)
library(devout)
library(devoutsvg)
library(svgpatternsimple)
library(poissoned)

#create gradient
grad <- create_gradient_pattern(id="p1", angle=90, colour1="White", 
colour2="#0570b0")

#visualise it
grad$show()

#encode it
gradRGB <- encode_pattern_params_as_hex_colour(pattern_name="gradient",angle=90, 
colour1="White", colour2="#0570b0")   

#draw graph
svgout(filename = "test.svg", pattern_pkg="svgpatternsimple")
ggplot(iris, aes(x=Sepal.Width, y=Species))+
  geom_density_ridges(alpha=0.33, scale=2, 
fill=gradRGB, colour=alpha(0.1))+
  theme_classic()
invisible(dev.off())

这会为您提供一个带有垂直渐变的 .svg 文件，如下所示：Vertical gradient fill ridgeplot。

更新： 功能现已开启 GitHub: VictimOfMaths/DeathsOfDespair。

如何向 ggridges 中的脊线图添加垂直颜色渐变？

How can I add a vertical colour gradient to a ridgeplot in ggridges?

r

ggplot2

ggridges

ridgeline-plot