library(ggplot2)
ggplot(nasa) +
# borders("state") +
geom_subplot(aes(long, lat, group = id, subplot =
geom_star(
aes(x = 0, y = 0, r = surftemp, angle = date, fill = mean(surftemp)),
r.zero = FALSE
))
) +
coord_quickmap()
Run the code above in your browser using DataLab