Nothing
HPK_plot_main <- function(df, tagpt_color, tagpt_order, tagpt_shape){
df$parameter_value <- df$parameter_value*0.028316847 # cfs to m3/s
df$dgtag <- as.factor(df$dgtag)
ggplot()+geom_line(data = df, aes(x=.data$datetime, y=.data$parameter_value, group=1), size=0.7, show.legend = FALSE) +
geom_point(data = df, aes(x=.data$datetime, y=.data$parameter_value,
shape=factor(.data$dgtag, levels = tagpt_order),
fill=factor(.data$dgtag, levels = tagpt_order),
color=factor(.data$dgtag, levels = tagpt_order)), na.rm = TRUE,
size=4, show.legend = FALSE) +
geom_point(data = df, aes(x=.data$datetime, y=.data$parameter_value,
shape=factor(.data$dgtag, levels = tagpt_order),
fill=factor(.data$dgtag, levels = tagpt_order),
color=factor(.data$dgtag, levels = tagpt_order)), na.rm = TRUE,
size=4, show.legend = FALSE) +
scale_shape_manual(values = tagpt_shape)+
scale_color_manual(values = tagpt_color)+
scale_fill_manual(values = tagpt_color)+
scale_x_datetime(date_breaks = "3 days")+ # this allows user to plot date x axis
labs(x = "Time", color = "Type")+
ylab(expression(Discharge~(m^3/s))) +
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_rect(colour = "black", fill=NA),
axis.title.x = element_text(size = 28),
axis.title.y = element_text(size = 26),
axis.text.x = element_text(angle = 0, size = 24),
axis.text.y = element_text(size = 24))
}
#' @export
HPK_plot <- function(df){
# missing point 1
if(length(unique(df$dgtag)) == 4){
tagpt_color <- c(grDevices::rgb(0,0,0, max=255, alpha = 0), grDevices::rgb(255,0,0, max=255), "black", grDevices::rgb(46,117,182, max=255))
tagpt_order <- c(0,2,3,4)
tagpt_shape <- c(20, 16, 16, 23)
HPK_plot_main(df, tagpt_color, tagpt_order, tagpt_shape)
}
else {
tagpt_color <- c(grDevices::rgb(0,0,0, max=255, alpha = 0), grDevices::rgb(112,173,71, max=255), grDevices::rgb(255,0,0, max=255), "black", grDevices::rgb(46,117,182, max=255))
tagpt_order <- c(0,1,2,3,4)
tagpt_shape <- c(20, 24, 16, 16, 23)
HPK_plot_main(df, tagpt_color, tagpt_order, tagpt_shape)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.