#'@export
#'@import "ggplot2"
view.glyphkey <- function(obj) {
if (class(obj)[1] != "glyphkey")
stop("Object is not of class 'glyphkey'.")
if (isTRUE(obj$transparent)) {
p <- ggplot() +
geom_polygon(
data = obj$main3,
aes_string(x = 'V1', y = 'V2', group = 'id'),
fill = "black",
alpha = .7
) +
geom_polygon(
data = obj$extra5,
aes_string(x = 'V1', y = 'V2', group = 'id'),
fill = "black",
alpha = .2
) +
coord_equal() +
geom_segment(aes(
x = -5,
xend = 10,
y = -0,
yend = 0
),
colour = "black",
alpha = .5) +
geom_segment(aes(
x = 0,
xend = 0,
y = 10.5,
yend = -10.5
),
colour = "black",
alpha = .5) +
geom_label(aes(
x = 0,
y = 12,
label = obj$key_label
), size = obj$fontSize) +
geom_label(aes(
x = -4,
y = 7,
label = obj$main3_labels[1]
), size = obj$fontSize) +
geom_label(aes(
x = 11.1,
y = 1.4,
label = obj$main3_labels[2]
), size = obj$fontSize) +
geom_label(aes(
x = -5.5,
y = -7,
label = obj$main3_labels[3]
), size = obj$fontSize) +
xlim(c(-9, 13)) +
ylim(c(-11, 12)) +
theme(
axis.line = element_blank(),
axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.background = element_rect(fill = "transparent", colour = NA),
plot.background = element_rect(fill = "transparent", colour = NA),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank()
)
} else {
p <- ggplot() +
geom_polygon(
data = obj$main3,
aes_string(x = 'V1', y = 'V2', group = 'id'),
fill = "black",
alpha = .7
) +
geom_polygon(
data = obj$extra5,
aes_string(x = 'V1', y = 'V2', group = 'id'),
fill = "black",
alpha = .2
) +
coord_equal() +
geom_segment(aes(
x = -5,
xend = 10,
y = -0,
yend = 0
),
colour = "black",
alpha = .5) +
geom_segment(aes(
x = 0,
xend = 0,
y = 10.5,
yend = -10.5
),
colour = "black",
alpha = .5) +
geom_text(aes(
x = 0,
y = 12,
label = obj$key_label
), size = obj$fontSize) +
geom_text(aes(
x = -4,
y = 7,
label = obj$main3_labels[1]
), size = obj$fontSize) +
geom_text(aes(
x = 11.1,
y = 1.4,
label = obj$main3_labels[2]
), size = obj$fontSize) +
geom_text(aes(
x = -5.5,
y = -7,
label = obj$main3_labels[3]
), size = obj$fontSize) +
xlim(c(-9, 13)) +
ylim(c(-11, 12)) +
theme(
axis.line = element_blank(),
axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.background = element_blank()
)
}
p
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.