data(volcano)
volcan <- data.frame(
x = rep(1:ncol(volcano), each = nrow(volcano)),
y = rep(1:nrow(volcano), times = ncol(volcano)),
z = as.numeric(volcano)
)
ggplot2::ggplot(volcan, ggplot2::aes(x, y, fill = z)) +
ggplot2::geom_raster() +
scale_fill_oleron(midpoint = 125)
Run the code above in your browser using DataLab