R/phenofit_plot.R

Defines functions phenofit_plot

Documented in phenofit_plot

#' phenofit_plot
#'
#' @param obj `fFIT`
#' @param type one of c("season", "fitting", "pheno", "all")
#' @inheritParams curvefits
#' @inheritParams plot_phenofit
#' @param IsPlot boolean. If false, a ggplot object will be returned.
#' @param show.legend If now show legend, ggplot object will be returned, else
#' grid object will be returned.
#' @param newpage boolean, whether draw figure in a new page?
#' @export
phenofit_plot <- function(obj, type = "all", 
    methods,
    title = NULL, title.ylab = "Vegetation Index",
    IsPlot = TRUE, show.legend = TRUE, newpage = TRUE)
{
    if (missing(methods) || is.null(methods)) {
        methods <- names(obj$fit[[1]]$fFIT)
    }

    g <- NULL
    plot_fitting <- function(){
        df_fit <- get_fitting(obj$fit)
        df_fit <- df_fit[meth %in% methods]

        g <- plot_phenofit(df_fit, obj$seasons, title, title.ylab, show.legend = show.legend)

        if (IsPlot) {
            if (newpage) grid::grid.newpage()
            grid::grid.draw(g)
        }
        return(g)
    }

    if (type == "fitting") {
        g <- plot_fitting()
    } else if (type == "season") {
        plot_season(obj$INPUT, obj$seasons)
    } else if (type == "pheno") {
        l_pheno <- get_pheno(obj$fit, methods, IsPlot = T)
    } else if (type == "all") {
        # fitting
        g <- plot_fitting()
        # season
        plot_season(obj$INPUT, obj$seasons)
        # pheno
        l_pheno <- get_pheno(obj$fit, methods, IsPlot = T)
    } else {
        stop(sprintf("[e] wrong type: %sn", type))
    }
    return(g)
}

Try the phenofit package in your browser

Any scripts or data that you put into this service are public.

phenofit documentation built on April 2, 2020, 5:07 p.m.