ggbiplot gains a clip argument

Author: friendly

DESCRIPTION

@@ -33,5 +33,5 @@ Encoding: UTF-8
 Language: en-US
 URL: https://github.com/friendly/ggbiplot, https://friendly.github.io/ggbiplot/
 BugReports: https://github.com/friendly/ggbiplot/issues
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 LazyData: true

NEWS.md

@@ -1,6 +1,7 @@
 ## Version 0.6.3
 
 - Fix axis label spacing
+- `ggbiplot` gains a `clip` argument to control if points, labels, etc. are clipped to the axis limits.
 
 ## Version 0.6.2
 

R/ggbiplot.r

@@ -116,6 +116,7 @@
 #' @param varname.adjust  Adjustment factor the placement of the variable names, >= 1 means farther from the arrow
 #' @param varname.abbrev  logical; whether or not to abbreviate the variable names, using \code{\link{abbreviate}}.
 #' @param axis.title      character; the prefix used as the axis labels. Default: \code{"PC"}.
+#' @param clip            should geoms be clipped at the axis limits? Default: "on"
 #' @param ...             other arguments passed down
 #'
 #' @import     ggplot2
@@ -197,11 +198,12 @@ ggbiplot <- function(pcobj,
                      varname.color = "black",
                      varname.abbrev = FALSE,
                      axis.title = "PC",
+                     clip = "on",
                      ...)
 {
 
   if(length(choices) > 2) {
-    warning("choices = ", choices, " is not of length 2. Only the first 2 will be used")
+    warning("choices = ", choices, " of length", length(choices), " not of length 2. Only the first 2 will be used")
     choices <- choices[1:2]
   }
 
@@ -309,7 +311,7 @@ ggbiplot <- function(pcobj,
   g <- ggplot(data = df.u, aes(x = xvar, y = yvar)) + 
           xlab(u.axis.labs[1]) + 
           ylab(u.axis.labs[2]) + 
-          coord_equal()
+          coord_equal(clip = clip)
 
   # Draw either labels or points
   if(!is.null(df.u$labels)) {

examples/wine-robpca.R

@@ -0,0 +1,33 @@
+library(rospca)
+library(ggbiplot)
+data(wine, package = "ggbiplot")
+
+wine.pca <- prcomp(wine, scale=TRUE)
+
+ggbiplot(wine.pca, 
+         obs.scale = 1, var.scale = 1,
+         groups = wine.class, 
+         varname.size = 4,
+         ellipse = TRUE, 
+         circle = TRUE) +
+  labs(fill = "Cultivar", color = "Cultivar") +
+  theme(legend.direction = 'horizontal', legend.position = 'top')
+
+wine.rpca <- robpca(wine, k = 2, scale=TRUE)
+names(wine.rpca)
+
+# [1] "loadings"    "eigenvalues" "scores"      "center"      "k"           "H0"          "H1"          "alpha"       "h"          
+# [10] "sd"          "od"          "cutoff.sd"   "cutoff.od"   "flag.sd"     "flag.od"     "flag.all" 
+
+class(wine.rpca)
+# list
+
+diagPlot(wine.rpca)
+
+wine.rpca$loadings
+
+
+#ggbiplot(wine.rpca)
+
+
+