gradienttext

gradienttext is an R package that works with the ggtext package to create gradient text labels on ggplot graphs.

You can install the development version of gradienttext from GitHub with:

# install.packages("devtools")
devtools::install_github("samiaab1990/gradienttext")

Note: ggtext and ggplot2 must be already installed for the make_gradient() function in the package to work.

Examples

Applying gradient colors to titles, subtitles and captions

library(gradienttext)
library(ggplot2)
library(ggtext)


ggplot(data = iris, aes(x = Sepal.Length, y= Sepal.Width, color=Sepal.Width))+
geom_point()+
scale_color_gradient(low="green",high="blue")+
labs(title = make_gradient(label = "Iris Data Example", colors=c("green","blue")),
     subtitle = make_gradient(label="With a Subtitle", colors=c("green","blue")),
     caption = make_gradient(label="And Caption", colors=c("green","blue")))+
theme(
plot.title = element_markdown(size=30, hjust=.5),
plot.subtitle = element_markdown(size=20, hjust=.5),
plot.caption = element_markdown(size=10,hjust=.5)
)

Applying gradient colors to axis labels

library(gradienttext)
library(ggplot2)
library(ggtext)


ggplot(data = iris, aes(x = Sepal.Length, y= Sepal.Width, color=Sepal.Width))+
geom_point()+
scale_color_gradient(low="green",high="blue")+
labs(title = "Iris Data Example")+
xlab(make_gradient(label="Sepal Length", colors=c("green","blue")))+
ylab(make_gradient(label="Sepal Width", colors=c("green","blue")))+
theme(
plot.title = element_text(size=30, hjust=.5),
axis.title.x = element_markdown(size=10),
axis.title.y = element_markdown(size=10)
)

Applying gradient colors to labels with aesthetic mapping

library(gradienttext)
library(ggplot2)
library(ggtext)

colors = c("#C6FFDD","#FBD786","#f7797d")
ggplot(data = iris, aes(x = Sepal.Length, y= Sepal.Width))+
geom_point()+
geom_richtext(aes(label = make_gradient(label=Species, colors=colors)), fill="#000000")

Applying gradient colors to general text labels

library(gradienttext)
library(ggplot2)
library(ggtext)
library(tibble)

random_dat = tibble(x = 5, y=5)
ggplot(data = random_dat, aes(x=x,y=y))+
geom_point()+
geom_richtext(label=make_gradient(label ="this is a label", colors=c("#FBDA61","#BD5AFF")), fill="#000000", size=5)