geom_axis | R Documentation |
geom_axis()
renders lines through the origin and the position
of each case or variable.
geom_axis(
mapping = NULL,
data = NULL,
stat = "identity",
position = "identity",
axis_labels = TRUE,
axis_ticks = TRUE,
axis_text = TRUE,
by = NULL,
num = NULL,
tick_length = 0.025,
text_dodge = 0.03,
label_dodge = 0.03,
...,
parse = FALSE,
check_overlap = FALSE,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE
)
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. |
axis_labels, axis_ticks, axis_text |
Logical; whether to include labels, tick marks, and text value marks along the axes. |
by, num |
Intervals between elements or number of elements; specify only one. |
tick_length |
Numeric; the length of the tick marks, as a proportion of the minimum of the plot width and height. |
text_dodge |
Numeric; the orthogonal distance of the text from the axis, as a proportion of the minimum of the plot width and height. |
label_dodge |
Numeric; the orthogonal distance of the text from the axis or isoline, as a proportion of the minimum of the plot width and height. |
... |
Additional arguments passed to |
parse |
If |
check_overlap |
If |
na.rm |
Passed to |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
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_axis()
understands the following aesthetics (required aesthetics are
in bold):
x
y
colour
alpha
linewidth
linetype
label
center
, scale
label_colour
, label_alpha
, label_size
, label_angle
,
label_hjust
, label_vjust
, label_family
, label_fontface
tick_colour
, tick_alpha
, tick_linewidth
, tick_linetype
text_colour
, text_alpha
, text_size
, text_angle
,
text_hjust
, text_vjust
, text_family
, text_fontface
group
The prefixed aesthetics label_*
, tick_*
, and text_*
are used by the
text elements and will inherit any values passed to their un-prefixed
counterparts, if recognized.
Other geom layers:
geom_isoline()
,
geom_lineranges()
,
geom_origin()
,
geom_text_radiate()
,
geom_vector()
# Freestone primary glass measurements
print(glass)
# default (standardized) linear discriminant analysis of sites on measurements
glass_lda <- MASS::lda(Site ~ SiO2 + Al2O3 + FeO + MgO + CaO, glass)
# bestow 'tbl_ord' class & augment observation, centroid, and variable fields
as_tbl_ord(glass_lda) %>%
augment_ord() %>%
mutate_rows(discriminant =
ifelse(.element == "active", "centroid", "case")) %>%
print() -> glass_lda
# row-standard biplot
glass_lda %>%
confer_inertia(1) %>%
ggbiplot() +
theme_bw() + theme_biplot() +
geom_rows_point(aes(shape = grouping, size = discriminant), alpha = .5) +
geom_cols_axis(aes(label = name), color = "#888888", num = 8L,
text_size = 2.5, label_dodge = .02) +
scale_shape_manual(values = c(2L, 3L, 0L, 5L)) +
ggtitle(
"LDA of Freestone glass measurements",
"Row-standard biplot of standardized LDA"
)
# contribution LDA of sites on measurements
glass_lda <-
lda_ord(Site ~ SiO2 + Al2O3 + FeO + MgO + CaO, glass,
axes.scale = "contribution")
# bestow 'tbl_ord' class & augment observation, centroid, and variable fields
as_tbl_ord(glass_lda) %>%
augment_ord() %>%
mutate_rows(discriminant =
ifelse(.element == "active", "centroid", "case")) %>%
print() -> glass_lda
# symmetric biplot
glass_lda %>%
confer_inertia(.5) %>%
ggbiplot() +
theme_bw() + theme_biplot() +
geom_rows_point(aes(shape = grouping, alpha = discriminant)) +
geom_cols_axis(color = "#888888", num = 8L,
text_size = 2.5, text_dodge = .025) +
scale_shape_manual(values = c(16L, 17L, 15L, 18L)) +
ggtitle(
"LDA of Freestone glass measurements",
"Symmetric biplot of contribution LDA"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.