R/function_plot.R

In yanzhang7559/hw04pyanzhang7559resub: This is for homework 4 builing a package

#' function_plotuse is for making plot based on the result of myseq_n.
#'
#' @param df
#'
#' @return plot
#' @export plot based on the vector
#'
#' @examples my_data function_plot(my_data)
function_plot <- function(df) {

  stopifnot(ncol(df)==4,is.numeric(df[[1]]),is.numeric(df[[2]]),is.numeric(df[[3]]),all(df[[4]]%%1==0),all(df[[4]]>0))

  y<- vector(mode="numeric",length = nrow(df))
  x<-vector(mode="numeric",length = nrow(df))
  for(i in 1:nrow(df))
  {
    myseq_n(x=c(df[[1]][i],df[[2]][i],df[[3]][i]),df[[4]][i])->y_value
    y[[i]]<-y_value
    x[[i]]<-df[[4]][i]
  }
  df<-data.frame(x=x,y=y)
  print(df)
  ggplot(df,mapping=aes(x=x,y=y))+
    geom_line()->plot
  return(plot)
}