Мы можем сделать это, используя 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 с вертикальным градиентом, как это выглядиткак это: Градиентная заливка с вертикальным градиентом.