# NOT RUN {
# Retrieve public hourly sunshine data for the last 7 days at Reefton Ews
# station
# Subtract 7 days from today's date to get the start date
last_week = paste(as.character(Sys.Date() - 7), 0)
reefton_sun = cf_query(cf_user(), cf_datatype(5, 1, 2), cf_station(),
start_date = last_week)
class(reefton_sun) # cfSunshine object
# Plot the temperature data using the defaults
plot(reefton_sun)
# Enlarge the text and add the observations as points
library(ggplot2) # for element_text() and geom_point()
plot(reefton_sun, ggtheme = "bw", text = element_text(size = 16)) +
geom_point(size = 3, shape = 1)
# Save the plot as a png to the current working directory
library(ggplot2) # for ggsave()
ggsave("my_sunshine_plot.png")
# }
Run the code above in your browser using DataLab