Plots global "warming stripes" graph in the style popularized by Ed Hawkins, based on temperature anomaly retrieved using get_temp(). Function can output stripes chart with legend or a minimal chart. The output ggplot2 object may be further modified.

  dataset = get_temp(),
  stripe_only = FALSE,
  col_strip = RColorBrewer::brewer.pal(11, "RdBu"),
  print = TRUE



Name of the tibble generated by get_temp


Display legend and axes, defaults to TRUE


Color palette to use. Defaults to Red-Blue RColorBrewer palette.


(boolean) Display warming stripe ggplot2 chart, defaults to TRUE. Use FALSE to not display chart.


Invisibly returns a ggplot2 object with warming stripes


warming_stripes invisibly returns a ggplot2 object with warming stripes chart using data from get_temp. By default the chart is also displayed. User may modify color palette or remove axes and legend. Users may further modify the output ggplot2 chart.


  • Climate Lab. 2018.

  • GISS Surface Temperature Analysis (GISTEMP v4):

  • GISTEMP Team, 2020: GISS Surface Temperature Analysis (GISTEMP), version 4. NASA Goddard Institute for Space Studies.

  • Dr. Dominic Roye blog post "How to Create Warming Stripes in R":


Hernando Cortina,


# \donttest{ # Draw with axes and legend stripes <- warming_stripes()
#> Warning: InternetOpenUrl failed: 'The server name or address could not be resolved'
#> Error in download.file(file_url, dl): cannot open URL ''
# Draw stripes only stripes <- warming_stripes(stripe_only = TRUE)
# Don't display, store for further modifications stripes <- warming_stripes(print = FALSE) # Change color palette stripes <- warming_stripes(stripe_only = TRUE, col_strip = viridisLite::viridis(11)) # }