R/transform_data.R

In Rmomal/jolisPlots: Create nice easy plots

#' Transform
#'
#' @param data simple data to be plotted
#' @description transform data in long format with numeric values ready for ggplot
#' @return long_data
#' @export
#' @examples transform(attenu)
#' @import tidyverse
#'


transform<-function(data){
  long_data<-data %>%
    gather(key,value) %>%
    mutate(value, value=as.numeric(value)) %>%
    as_tibble()

  return(long_data)
}