geom_sketch_circle() draws roughened circles of radius r (data units);
geom_sketch_ellipse() draws ellipses with semi-axes a (x) and b (y).
Radii are in data units, so on a non-square panel a circle appears
elliptical - use ggplot2::coord_equal() for true circles. These are
annotation-style geoms (cf. ggforce::geom_circle()).
GeomSketchEllipseGeomSketchCircle
geom_sketch_circle(
mapping = NULL,
data = NULL,
stat = "identity",
position = "identity",
...,
roughness = NULL,
bowing = 1,
n_passes = 2L,
seed = NULL,
fill_style = "hachure",
hachure_angle = 45,
hachure_gap = 0.07,
fill_weight = 0.5,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE
)
geom_sketch_ellipse(
mapping = NULL,
data = NULL,
stat = "identity",
position = "identity",
...,
roughness = 1,
bowing = 1,
n_passes = 2L,
seed = NULL,
fill_style = "hachure",
hachure_angle = 45,
hachure_gap = 0.07,
fill_weight = 0.5,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE
)
A ggplot2 layer object.
Set of aesthetic mappings created by ggplot2::aes().
geom_sketch_circle() needs x, y, r; geom_sketch_ellipse() needs
x, y, a, b.
Data to display.
Statistical transformation. Default "identity".
Position adjustment. Default "identity".
Other arguments passed on to the layer.
Non-negative roughness (0 = clean). A mappable aesthetic
(default 1): pass a constant, or map it per shape with aes(roughness = )
(rescaled by scale_roughness_continuous()).
Non-negative bowing multiplier. Default 1.
Number of stroke passes. Default 2.
Integer seed. NULL uses getOption("ggsketch.seed", 1L).
Fill style when fill is mapped: "hachure",
"cross_hatch", "zigzag", "scribble", "dots", "dashed", "stipple", "pencil_shade". Default
"hachure".
Fill line angle in degrees. Default 45.
Fill line gap (npc fraction, scaled by radius). Default 0.07.
Stroke weight for fill lines. Default 0.5.
Remove missing values silently? Default FALSE.
Logical; include in legend?
Override default aesthetics?
Other sketch-geoms:
GeomSketchAbline,
GeomSketchArrow,
GeomSketchBoxplot,
GeomSketchBracket,
GeomSketchCallout,
GeomSketchChicklet,
GeomSketchCol,
GeomSketchContourFilled,
GeomSketchCurve,
GeomSketchDotplot,
GeomSketchDumbbell,
GeomSketchEdge,
GeomSketchEngrave,
GeomSketchGantt,
GeomSketchHex,
GeomSketchLine,
GeomSketchLinerange,
GeomSketchLollipop,
GeomSketchMarkCircle,
GeomSketchMarkHull,
GeomSketchPath,
GeomSketchPoint,
GeomSketchPolygon,
GeomSketchRect,
GeomSketchRibbon,
GeomSketchRug,
GeomSketchSegment,
GeomSketchSfPolygon,
GeomSketchSlope,
GeomSketchSmooth,
GeomSketchSpoke,
GeomSketchTextRepel,
GeomSketchViolin,
StatSketchBeeswarm,
StatSketchCalendar,
StatSketchDensityRidges,
StatSketchFunnel,
StatSketchPie,
StatSketchPyramid,
StatSketchRadar,
StatSketchStream,
StatSketchTreemap,
StatSketchWaffle,
StatSketchWaterfall,
annotate_sketch(),
annotate_sketch_arrow(),
annotate_sketch_callout(),
annotate_sketch_highlight(),
geom_sketch_alluvial(),
geom_sketch_arc_diagram(),
geom_sketch_bin2d(),
geom_sketch_bump(),
geom_sketch_chord(),
geom_sketch_contour(),
geom_sketch_count(),
geom_sketch_dendrogram(),
geom_sketch_density(),
geom_sketch_density2d(),
geom_sketch_ecdf(),
geom_sketch_function(),
geom_sketch_histogram(),
geom_sketch_jitter(),
geom_sketch_marimekko(),
geom_sketch_mosaic(),
geom_sketch_parallel(),
geom_sketch_qq(),
geom_sketch_quantile(),
geom_sketch_rose(),
geom_sketch_sunburst(),
geom_sketch_text(),
sketch_graph()
library(ggplot2)
df <- data.frame(x = c(1, 3), y = c(1, 2), r = c(0.5, 1))
ggplot(df, aes(x, y, r = r)) +
geom_sketch_circle(fill = "gold", seed = 1L) +
coord_equal() + theme_sketch()
Run the code above in your browser using DataLab