## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----setup-------------------------------------------------------------------- library(ggsky) library(ggplot2) theme_set(theme_light()) ## ----------------------------------------------------------------------------- ggplot(artss15, aes(l, b, color = log10(flux))) + geom_point(alpha = 0.5) + scale_color_viridis_b() + labs( title = "ARTSS1–5 X-ray sources in galactic coordinates", caption = "Catalog: CDS/VizieR J/A+A/687/A183 | bibcode: 2024A&A...687A.183S", color = "log Fx\nerg/s/cm^2" ) + coord_galactic()