Class

library(dslabs) library(ggplot2) library(scales) data(stars) stars$lum <- 10^((4.83 - stars$magnitude) / (100^0.2)) base <- ggplot(stars, aes(x = temp, y = lum, color = temp, size = lum)) + scale_x_log10(trans = "reverse") + scale_y_log10(labels = trans_format("log10", math_format(10^.x))) grafico <- base + geom_point() + scale_color_gradientn( colors = c("#FF0000", "#FF7F00", "#FFFF00", "#FFFFFF", "#0000FF"), values = rescale(c(2500, 4000, 6000, 10000, 33600)) ) + labs(x = "Temperatura (K)", y = "Luminosidad (solar)") + theme_dark() grafico