R/fi_plot.R

In tony2015116/pptos: Pig Performance Test Operation System

#' fi_plot
#'
#' @param data the import csv data
#'
#' @return histgram plot of all feed intake
#' @export
#'
#' @examples
#' #fi_plot(data = test)
fi_plot <- function(data) {
  feed_intake <- NULL
  if(names(data)[8] == "Consumed"){
    names(data)[8] <- "feed_intake"
    data <- data %>%
      dplyr::mutate(feed_intake = 1000 * feed_intake)
  }
  ggplot2::ggplot(data, ggplot2::aes(feed_intake)) +
    ggplot2::geom_histogram(binwidth = 8) +
    ggplot2::theme_bw()
}