R/graph_simple.R

In Rmomal/jolisPlots: Create nice easy plots

#' graph_bar
#'
#' @param long_data data to be plotted via bars, in a long format
#'
#' @return a graph
#' @export
#' @examples long<-transform(diamonds[,c("x","y","z")])
#' graph_simple(long)

graph_bar<-function(long_data){
  ggplot(long_data,aes(value))+
    geom_bar(aes(fill=key))+
    theme_bw()
}



#' graph_point
#' @param data data tro be plotted via points, in spread format
#' @return a graph
#' @export
#'
#' @examples graph_point(diamonds,carat,price,cut)
graph_point<-function(data,var1,var2,group){
  ggplot(data, aes_string(var1, var2, colour = group)) +
  geom_point(size=0.5)+
  theme_bw()
}