R/paircorrelation.R

In poorbaby/r_package_sha: Sleep and Health Data Analysis

#' Correlation Matrix Visualization
#' @description To calculate and visualize all the correlation between two continues variable in a given dataset.
#'
#' @param data a dataframe
#' @param digits the correlation value round to the given digits, by default the digits equal to 2
#' @return a plot
#' @export
#' @importFrom stats cor
#' @import corrplot
#' @examples
#' cor_plot(sleepdata)
cor_plot <- function(data, digits = 2) {
  con_var <- character()
  for (i in colnames(data)) {
    if(class(data[[i]]) %in% c("numeric","integer")) {
      con_var <- c(con_var,i)
    }
  }
  r <- round(cor(data[,con_var]), digits = digits)
  return (corrplot::corrplot(r, method = "number",tl.srt = 45))
}