Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(gghalves)
library(dplyr)
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_point()
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_point(transformation_params = list(height = 0, width = 0.001, seed = 1))
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_point(transformation = PositionIdentity)
## -----------------------------------------------------------------------------
ggplot(iris, aes(y = Sepal.Width)) +
geom_half_boxplot() +
geom_half_point_panel(aes(x = 0.5, color = Species), range_scale = .5)
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_boxplot()
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_boxplot(side = "r", center = TRUE, errorbar.draw = FALSE)
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_violin()
## -----------------------------------------------------------------------------
ggplot() +
geom_half_violin(
data = ToothGrowth,
aes(x = as.factor(dose), y = len, split = supp, fill = supp),
position = "identity"
)
## -----------------------------------------------------------------------------
ggplot(iris, aes(x = Species, y = Sepal.Width)) +
geom_half_violin() +
geom_dotplot(binaxis = "y", method="histodot", stackdir="up")
## -----------------------------------------------------------------------------
df <- data.frame(score = rgamma(150, 4, 1),
gender = sample(c("M", "F"), 150, replace = TRUE),
genotype = factor(sample(1:3, 150, replace = TRUE)))
## -----------------------------------------------------------------------------
ggplot(df, aes(x = genotype, y = score, fill = gender)) +
geom_half_violin() +
geom_dotplot(binaxis = "y", method="histodot", stackdir="up", position = PositionDodge)
## -----------------------------------------------------------------------------
ggplot(df, aes(x = genotype, y = score, fill = gender)) +
geom_half_violin() +
geom_half_dotplot(method="histodot", stackdir="up")
## ---- eval=FALSE--------------------------------------------------------------
# ggplot(iris, aes(x = Species, y = Sepal.Width)) +
# geom_half_boxplot() +
# geom_beeswarm(beeswarmArgs = list(side = 1))
## ---- eval=FALSE--------------------------------------------------------------
# ggplot() +
#
# geom_half_boxplot(
# data = iris %>% filter(Species=="setosa"),
# aes(x = Species, y = Sepal.Length, fill = Species), outlier.color = NA) +
#
# ggbeeswarm::geom_beeswarm(
# data = iris %>% filter(Species=="setosa"),
# aes(x = Species, y = Sepal.Length, fill = Species, color = Species), beeswarmArgs=list(side=+1)
# ) +
#
# geom_half_violin(
# data = iris %>% filter(Species=="versicolor"),
# aes(x = Species, y = Sepal.Length, fill = Species), side="r") +
#
# geom_half_dotplot(
# data = iris %>% filter(Species=="versicolor"),
# aes(x = Species, y = Sepal.Length, fill = Species), method="histodot", stackdir="down") +
#
# geom_half_boxplot(
# data = iris %>% filter(Species=="virginica"),
# aes(x = Species, y = Sepal.Length, fill = Species), side = "r", errorbar.draw = TRUE,
# outlier.color = NA) +
#
# geom_half_point(
# data = iris %>% filter(Species=="virginica"),
# aes(x = Species, y = Sepal.Length, fill = Species, color = Species), side = "l") +
#
# scale_fill_manual(values = c("setosa" = "#cba1d2", "versicolor"="#7067CF","virginica"="#B7C0EE")) +
# scale_color_manual(values = c("setosa" = "#cba1d2", "versicolor"="#7067CF","virginica"="#B7C0EE")) +
# theme(legend.position = "none")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.