Shape scales that approximate those used in GraphPad Prism. No unicode characters are used, only the default symbols available in R.
scale_shape_prism(palette = "default", ...)
string
. Palette name, one of: default
,
filled
, or complete
.
Arguments passed on to ggplot2::discrete_scale
name
The name of the scale. Used as the axis or legend title. If
waiver()
, the default, the name of the scale is taken from the first
mapping used for that aesthetic. If NULL
, the legend title will be
omitted.
breaks
One of:
labels
One of:
NULL
for no labels
waiver()
for the default labels computed by the
transformation object
A character vector giving labels (must be same length as breaks
)
An expression vector (must be the same length as breaks). See ?plotmath for details.
A function that takes the breaks as input and returns labels as output. Also accepts rlang lambda function notation.
limits
One of:
NULL
to use the default scale values
A character vector that defines possible values of the scale and their order
A function that accepts the existing (automatic) values and returns new ones. Also accepts rlang lambda function notation.
expand
For position scales, a vector of range expansion constants used to add some
padding around the data to ensure that they are placed some distance
away from the axes. Use the convenience function expansion()
to generate the values for the expand
argument. The defaults are to
expand the scale by 5% on each side for continuous variables, and by
0.6 units on each side for discrete variables.
na.translate
Unlike continuous scales, discrete scales can easily show
missing values, and do so by default. If you want to remove missing values
from a discrete scale, specify na.translate = FALSE
.
na.value
If na.translate = TRUE
, what aesthetic value should the
missing values be displayed as? Does not apply to position scales
where NA
is always placed at the far right.
drop
Should unused factor levels be omitted from the scale?
The default, TRUE
, uses the levels that appear in the data;
FALSE
uses all the levels in the factor.
guide
A function used to create a guide or its name. See
guides()
for more information.
position
For position scales, The position of the axis.
left
or right
for y axes, top
or bottom
for x axes.
call
The call
used to construct the scale for reporting messages.
super
The super class to use for the constructed scale
Returns a ggproto object of class ScaleDiscrete which works with shape aesthetics.
The default
palette supports up to 9 values. It does not use
any symbols with a fill.
The filled
palette supports up to 10 values. The first 5 symbols
have a fill.
The complete
palette supports up to 14 values. Symbols 5 to 9
have a fill.
library(ggplot2)
## list all available shape palettes
ggprism_data$shape_palettes
#> $complete
#> # A tibble: 14 × 2
#> name pch
#> <chr> <dbl>
#> 1 circle small 16
#> 2 square 15
#> 3 triangle 17
#> 4 diamond 18
#> 5 circle filled 21
#> 6 square filled 22
#> 7 triangle filled 24
#> 8 triangle down filled 25
#> 9 diamond filled 23
#> 10 asterisk 8
#> 11 plus 3
#> 12 cross 4
#> 13 circle plus 10
#> 14 square cross 7
#>
#> $default
#> # A tibble: 9 × 2
#> name pch
#> <chr> <dbl>
#> 1 circle small 16
#> 2 square 15
#> 3 triangle 17
#> 4 diamond 18
#> 5 asterisk 8
#> 6 plus 3
#> 7 cross 4
#> 8 circle plus 10
#> 9 square cross 7
#>
#> $filled
#> # A tibble: 10 × 2
#> name pch
#> <chr> <dbl>
#> 1 circle filled 21
#> 2 square filled 22
#> 3 triangle filled 24
#> 4 triangle down filled 25
#> 5 diamond filled 23
#> 6 asterisk 8
#> 7 plus 3
#> 8 cross 4
#> 9 circle plus 10
#> 10 square cross 7
#>
## define a base plot
base <- ggplot(mtcars, aes(x = wt, y = mpg,
shape = factor(cyl))) +
geom_point(size = 3)
## works pretty much the same as ggplot2 scale_shape_manual
base +
scale_shape_prism(palette = "complete")
## change shape scale title in legend
base +
scale_shape_prism(
palette = "default",
name = "Cylinders"
)
## change shape labels in legend
base +
scale_shape_prism(
palette = "default",
name = "Cylinders",
label = c("4 cyl", "6 cyl", "8 cyl")
)
## change shape labels in legend with a function
base +
scale_shape_prism(
palette = "default",
name = "Cylinders",
label = function(x) paste(x, "cyl")
)
## change order of shapes in legend
base +
scale_shape_prism(
palette = "default",
name = "Cylinders",
label = function(x) paste(x, "cyl"),
breaks = c(8, 4, 6)
)
## to change which shape is assigned to which cyl
## you need to change the factor levels in the underlying data
base <- ggplot(mtcars, aes(x = wt, y = mpg,
shape = factor(cyl, levels = c(6, 4, 8)))) +
geom_point(size = 3)
base +
scale_shape_prism(
palette = "default",
name = "Cylinders"
)
## see all the shapes in a specific palette
# define a function for convenience
show_shapes <- function(palette) {
df_shapes <- ggprism_data$shape_palettes[[palette]][, -1]
df_shapes$pch_f <- factor(df_shapes$pch, levels = df_shapes$pch)
ggplot(df_shapes, aes(x = 0, y = 0, shape = pch)) +
geom_point(aes(shape = pch), size = 5, fill = 'red') +
scale_shape_identity() +
facet_wrap(~ pch_f) +
theme_void()
}
# show the shapes in the palette "complete"
show_shapes("complete")