geom_origin | R Documentation |
geom_origin()
renders a symbol, either a set of crosshairs or
a circle, at the origin. geom_unit_circle()
renders the unit circle,
centered at the origin with radius 1.
geom_origin(
mapping = NULL,
data = NULL,
marker = "crosshairs",
radius = unit(0.04, "snpc"),
...,
na.rm = FALSE,
show.legend = NA,
inherit.aes = FALSE
)
geom_unit_circle(
mapping = NULL,
data = NULL,
segments = 60,
scale.factor = 1,
...,
na.rm = FALSE,
show.legend = NA,
inherit.aes = FALSE
)
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
marker |
The symbol to be drawn at the origin; matched to |
radius |
A |
... |
Additional arguments passed to |
na.rm |
Passed to |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
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 |
A ggproto layer.
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.
geom_origin()
accepts no aesthetics.
geom_unit_circle()
understands the following aesthetics (none required):
alpha
colour
linetype
size
Other geom layers:
geom_axis()
,
geom_isoline()
,
geom_lineranges()
,
geom_text_radiate()
,
geom_vector()
# principal components analysis of glass composition measurements
glass[, c(5L, 7L, 8L, 10L, 11L)] %>%
princomp(cor = TRUE) %>%
as_tbl_ord() %>%
cbind_rows(site = glass$Site, form = glass$Form) %>%
augment_ord() %>%
print() -> glass_pca
# note that column standard coordinates are unit vectors
rowSums(get_cols(glass_pca) ^ 2)
# plot column standard coordinates with a unit circle underlaid
glass_pca %>%
ggbiplot(aes(label = name), sec.axes = "cols") +
theme_biplot() +
geom_rows_point(aes(color = site, shape = form), alpha = .5) +
geom_unit_circle(alpha = .5, scale.factor = 3) +
geom_cols_vector() +
geom_cols_text_radiate()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.