diff options
| author | Chris Sobczak <chris@sobczak.family> | 2026-06-17 00:23:03 -0700 |
|---|---|---|
| committer | Chris Sobczak <chris@sobczak.family> | 2026-06-17 00:23:03 -0700 |
| commit | c9febb74dddab29b7e60488c91564796387f2785 (patch) | |
| tree | 389dc3744bec3568dd2621eb9ed75ede3efb4bee /R | |
| parent | c9155f21e709ff2d2b84f132f2e8bdf62f0078b8 (diff) | |
Rename corplot to heatmap
Diffstat (limited to 'R')
| -rw-r--r-- | R/heatmap.R (renamed from R/corplot.R) | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/corplot.R b/R/heatmap.R index e849a92..569f0ec 100644 --- a/R/corplot.R +++ b/R/heatmap.R @@ -1,6 +1,6 @@ -#' Correlation Plot (Upper Triangle) +#' Heatmap Plot (Upper Triangle) #' -#' Minimal ggplot2 correlation plot showing the upper triangle +#' Minimal ggplot2 relationship structure plot showing the upper triangle #' in the top-right corner with no axis labels. #' @param R A square numeric correlation matrix #' @param title Optional plot title @@ -10,12 +10,12 @@ #' @examples #' X <- matrix(data = rnorm(100), nrow = 10) #' R <- cor(X) -#' corplot(R, title = 'Example Correlation Plot') +#' heatmap(R, title = 'Example Correlation Plot') #' #' @importFrom reshape2 melt #' @import ggplot2 #' @export -corplot <- function(R, title = NULL){ +heatmap <- function(R, title = NULL){ R_list <- tryCatch({ if(is.matrix(R)){ cnames <- colnames(R) |