geom_unit_circle {ordr} | R Documentation |
Unit circle
Description
geom_unit_circle()
renders the unit circle, centered at the
origin with radius 1.
Usage
geom_unit_circle(
mapping = NULL,
data = NULL,
stat = "identity",
position = "identity",
segments = 60,
scale.factor = 1,
...,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE
)
Arguments
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
stat |
The statistical transformation to use on the data for this
layer, either as a |
position |
Position adjustment, either as a string naming the adjustment
(e.g. |
segments |
The number of segments to be used in drawing the circle. |
scale.factor |
The circle radius; should remain at its default value 1
or passed the same value as |
... |
Additional arguments passed to |
na.rm |
Passed to |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
Value
A ggproto layer.
Biplot layers
ggbiplot()
uses ggplot2::fortify()
internally to produce a single data
frame with a .matrix
column distinguishing the subjects ("rows"
) and
variables ("cols"
). The stat layers stat_rows()
and stat_cols()
simply
filter the data frame to one of these two.
The geom layers geom_rows_*()
and geom_cols_*()
call the corresponding
stat in order to render plot elements for the corresponding factor matrix.
geom_dims_*()
selects a default matrix based on common practice, e.g.
points for rows and arrows for columns.
Aesthetics
geom_unit_circle()
understands the following aesthetics (none required):
-
alpha
-
colour
-
linetype
-
size
See Also
Other geom layers:
geom_axis()
,
geom_isoline()
,
geom_lineranges()
,
geom_origin()
,
geom_text_radiate()
,
geom_vector()
Examples
# principal components analysis of overt & chemical diabetes test values
heplots::Diabetes[, seq(5L)] %>%
princomp(cor = TRUE) %>%
as_tbl_ord() %>%
cbind_rows(group = heplots::Diabetes$group) %>%
augment_ord() %>%
print() -> diabetes_pca
# note that column standard coordinates are unit vectors
rowSums(get_cols(diabetes_pca)^2)
# plot column standard coordinates with a unit circle underlaid
diabetes_pca %>%
ggbiplot(aes(label = name), sec.axes = "cols", scale.factor = 3) +
geom_rows_point(aes(color = group), alpha = .25) +
geom_unit_circle(alpha = .5, scale.factor = 3) +
geom_cols_vector() +
geom_cols_text_radiate()