Nothing
.multiple_x<-function(x, y, xlab = "", ylab=NULL, xlim = NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x)
df = data.frame("X" = as.vector(x),
"Y" = y,
"Cohort" = gl(length(colnames(x)), nrow(x), labels=labels))
g<-ggplot(df, aes(x=.data$X, y=.data$Y))+
geom_path(aes(col=.data$Cohort, linetype = .data$Cohort))+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(xlim)) g <- g+xlim(xlim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_y<-function(x, y, xlab = "", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(y)
df = data.frame("Y" = as.vector(y), "X" = x,
"Cohort" = gl(length(colnames(y)), nrow(y), labels=labels))
g<-ggplot(df, aes(x=.data$X, y=.data$Y))+
geom_path(aes(col=.data$Cohort, linetype = .data$Cohort))+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_dynamics<-function(x, xlab = "", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x)
df = data.frame("Y" = as.vector(x),
"Date" = as.Date(rownames(x)),
"Cohort" = gl(length(colnames(x)), nrow(x), labels=labels))
g<-ggplot(df, aes(x=.data$Date, y=.data$Y))
if(length(labels)<=10) {
g<- g + geom_line(aes(col=.data$Cohort, linetype = .data$Cohort))+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")
} else {
g<- g + geom_line(aes(group=.data$Cohort))
}
g<-g+theme_bw()+xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_dynamics_range<-function(x1,x2, xlab = "", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x1)
df = data.frame("Y1" = as.vector(x1),
"Y2" = as.vector(x2),
"Date" = as.Date(rownames(x1)),
"Cohort" = gl(length(colnames(x1)), nrow(x1), labels=labels))
g<-ggplot(df, aes(x=.data$Date))+
geom_ribbon(aes(ymin = .data$Y2, ymax=.data$Y1,fill=.data$Cohort), alpha = 0.5)+
scale_fill_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_dynamics_subdaily<-function(x, xlab = "", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x)[-1]
df = data.frame("Y" = as.vector(as.matrix(x[,-1])),
"DateTime" = as.POSIXct(x$datetime),
"Cohort" = gl(length(names(x)[-1]), nrow(x), labels=labels))
g<-ggplot(df, aes(x=.data$DateTime, y=.data$Y))+
geom_line(aes(col=.data$Cohort, linetype = .data$Cohort))+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_dynamics_subdaily_sunlit_shade<-function(x_sl, x_sh, xlab = "", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x_sl)[-1]
df_sl = data.frame("Y" = as.vector(as.matrix(x_sl[,-1])),
"DateTime" = as.POSIXct(x_sl$datetime),
"Cohort" = gl(length(colnames(x_sl)[-1]), nrow(x_sl), labels=labels),
"LeafType" = "Sunlit", stringsAsFactors = F)
df_sh = data.frame("Y" = as.vector(as.matrix(x_sh[,-1])),
"DateTime" = as.POSIXct(x_sh$datetime),
"Cohort" = gl(length(colnames(x_sh)[-1]), nrow(x_sh), labels=labels),
"LeafType" = "Shade", stringsAsFactors = F)
df = as.data.frame(rbind(df_sl, df_sh), stringsAsFactors = F)
df$LeafType = factor(df$LeafType, levels =c("Sunlit","Shade"))
g<-ggplot(df, aes(x=.data$DateTime, y=.data$Y))+
geom_line(aes(col=.data$Cohort, linetype = .data$Cohort))+
facet_wrap(~LeafType, ncol=1)+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.single_dynamics<-function(x, xlab="", ylab=NULL, ylim = NULL) {
df = data.frame("Y" = x,
"Date" = as.Date(names(x)))
g<-ggplot(df, aes(x = .data$Date, y= .data$Y))+
geom_line()+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.single_subday_dynamics <-function(x, xlab="Time step", ylab=NULL, ylim = NULL) {
df = data.frame("Y" = x,
"TimeStep" = 1:length(x))
g<-ggplot(df, aes(x = .data$TimeStep, y= .data$Y))+
geom_line()+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_subday_dynamics<-function(x, xlab = "Time step", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x)
df = data.frame("Y" = as.vector(x),
"TimeStep" = as.numeric(rownames(x)),
"Cohort" = gl(length(colnames(x)), nrow(x), labels=labels))
g<-ggplot(df, aes(x=.data$TimeStep, y=.data$Y))+
geom_line(aes(col=.data$Cohort, linetype = .data$Cohort))+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
.multiple_subday_dynamics_sunlit_shade<-function(x_sl, x_sh, xlab = "Time step", ylab=NULL, ylim = NULL, labels = NULL) {
if(is.null(labels)) labels = colnames(x_sl)
df_sl = data.frame("Y" = as.vector(x_sl),
"TimeStep" = as.numeric(rownames(x_sl)),
"Cohort" = gl(length(colnames(x_sl)), nrow(x_sl), labels=labels),
"LeafType" = "Sunlit", stringsAsFactors = F)
df_sh = data.frame("Y" = as.vector(x_sh),
"TimeStep" = as.numeric(rownames(x_sh)),
"Cohort" = gl(length(colnames(x_sh)), nrow(x_sh), labels=labels),
"LeafType" = "Shade", stringsAsFactors = F)
df = as.data.frame(rbind(df_sl, df_sh), stringsAsFactors = F)
df$LeafType = factor(df$LeafType, levels =c("Sunlit","Shade"))
g<-ggplot(df, aes(x=.data$TimeStep, y=.data$Y))+
geom_line(aes(col=.data$Cohort, linetype = .data$Cohort))+
facet_wrap(~LeafType, ncol=2)+
scale_color_discrete(name="")+
scale_linetype_discrete(name="")+
theme_bw()+
xlab(xlab)
if(!is.null(ylim)) g <- g+ylim(ylim)
if(!is.null(ylab)) g <- g+ylab(ylab)
return(g)
}
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.