View source: R/geom-image-glyph.R
geom_image_glyph | R Documentation |
Each point glyph can be an image (png, jpeg, etc) object.
geom_image_glyph(
mapping = NULL,
data = NULL,
stat = "identity",
position = "identity",
...,
images,
imagewidth = 1.2,
imageheight = 0.9,
interpolate = TRUE,
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. |
... |
Other arguments passed on to |
images |
a list of images (a raster object, bitmap image). If not provided, a point visual ( |
imagewidth |
Numerical; width of image |
imageheight |
Numerical; height of image |
interpolate |
A logical value indicating whether to linearly interpolate the image (the alternative is to use nearest-neighbour interpolation,
which gives a more blocky result). See |
na.rm |
If |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
a geom
layer
geom_..._glyph() understands the following aesthetics (required aesthetics are in bold):
x
y
alpha
colour
fill
group
size
linetype
shape
stroke
The size unit is cm
Note that the shape and stroke do not have real meanings unless the essential
argument images
is missing. If so, a point visual will be displayed with
corresponding shape and stroke.
geom_serialaxes_glyph
, geom_polygon_glyph
# image glyph
if(require("png")) {
img_path <- list.files(file.path(find.package(package = 'ggmulti'),
"images"),
full.names = TRUE)
Raptors <- png::readPNG(img_path[2L])
Warriors <- png::readPNG(img_path[3L])
pg <- ggplot(data = data.frame(x = 1:2, y = rep(1, 2)),
mapping = aes(x = x, y = y)) +
geom_image_glyph(images = list(Raptors,
Warriors),
imagewidth = rep(1.2, 2),
imageheight = c(0.9, 1.2)) +
coord_cartesian(xlim = extendrange(c(1,2)))
pg
# query the images (a numerical array)
build <- ggplot2::ggplot_build(pg)
# `imageRaptors` and `imageWarriors` are three dimensional
# arrays (third dimension specifying the plane)
imageRaptors <- build$data[[1]]$images[[1]]
imageWarriors <- build$data[[1]]$images[[2]]
if(require("grid")) {
grid.newpage()
grid.raster(imageRaptors)
grid.newpage()
grid.raster(imageWarriors)
}
# THIS IS SLOW
mercLogo <- png::readPNG(img_path[1L])
p <- ggplot(mapping = aes(x = hp, y = mpg)) +
geom_point(
data = mtcars[!grepl("Merc", rownames(mtcars)), ],
color = "skyblue") +
geom_image_glyph(
data = mtcars[grepl("Merc", rownames(mtcars)), ],
images = mercLogo,
imagewidth = 1.5
)
p
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.