diff options
| -rw-r--r-- | R/corplot.R | 6 | ||||
| -rw-r--r-- | man/corplot.Rd | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/R/corplot.R b/R/corplot.R index fc130bc..5f8f97d 100644 --- a/R/corplot.R +++ b/R/corplot.R @@ -1,5 +1,5 @@ utils::globalVariables(c('i', 'j', 'value')) -#' Correlation PLot (Upper Triangle) +#' Correlation Plot (Upper Triangle) #' #' Minimal ggplot2 correlation plot showing the upper triangle #' in the top-right corner with no axis labels. @@ -64,8 +64,8 @@ corplot <- function(R, title = NULL){ limits = c(-1, 1), name = NULL ) + - ggplot2::scale_x_discrete(limits = rev(levels(df$i))) + - ggplot2::scale_y_discrete(limits = levels(df$j)) + + ggplot2::scale_x_discrete(limits = levels(df$i)) + + ggplot2::scale_y_discrete(limits = rev(levels(df$j))) + ggplot2::coord_fixed() + ggplot2::theme_void() diff --git a/man/corplot.Rd b/man/corplot.Rd index 72d4df0..a27d577 100644 --- a/man/corplot.Rd +++ b/man/corplot.Rd @@ -2,7 +2,7 @@ % Please edit documentation in R/corplot.R \name{corplot} \alias{corplot} -\title{Correlation PLot (Upper Triangle)} +\title{Correlation Plot (Upper Triangle)} \usage{ corplot(R, title = NULL) } |