inst/extdata/examples/R/plot-heatmap-low-high.R

In data-science-made-easy/nicerplot: Create NiceR Plots and Save as PNG/PDF/JPEG/SVG

if (file.exists('heatmap-low-high.xlsx')) { # plot figures from Excel file:
  nicerplot::nplot('heatmap-low-high.xlsx')
} else if (file.exists('heatmap-low-high.RData')) { # or plot figures directly in R:
  d <- dget('heatmap-low-high.RData')
  nicerplot::nplot(d, type = c('heatmap'), title = c('Heatmap stressing low and high values'), x_title = c('first variable (unit)'), y_title = c('second variable (unit)'), footnote = c('mexican hat pointing down (left) and up (right)'), palette = c('palette_heatmap_low_high'), style = c('default'), lock = c('no'), open = FALSE)
} else print(paste('Please download', xlsx_data_file, 'or', rdata_file, 'to create the nice R plot.'))