Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
library(ggplot2)
x <- c("بقرة", "دجاج", "حصان")
df <- data.frame(x = x, y = 1:3)
labels_rtl <- function(x) paste0("\u202B", x)
ggplot(df, aes(x, y)) +
geom_point() +
scale_x_discrete(labels = labels_rtl) +
theme_grey(20) +
labs(x = NULL, y = NULL)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment