heat map with pseudo_log scale

heatmap_pseudo_log.R

# Library
library(ggplot2)
library(viridis)

# Dummy data
set.seed(42)
x <- LETTERS[1:20]
y <- paste0("var", seq(1,20))
data <- expand.grid(X=x, Y=y)
data$Z <- runif(400, 0, 10000)


# plot
ggplot(data, aes(X, Y, fill= Z)) + 
  geom_tile() +
  scale_fill_viridis_c(
    name = "Number of jobs",
    option = "viridis",
    breaks = c(0, 10, 100, 1e3, 1e4),
    labels = scales::number_format(),
    trans = "pseudo_log", 
    na.value = "#F8F7F7",
    aesthetics = c("fill", "color")
    ) + 
  theme_minimal()