# ggplo2 绘制各种杀虫剂下昆虫数目的带状图
library(ggplot2)
data(InsectSprays)
p = ggplot(InsectSprays, aes(spray, count, color = spray)) +
geom_boxplot(outlier.shape = NA) +
geom_jitter(shape = 0) +
labs(x = "杀虫剂", y = "频数") +
theme(legend.position = "") +
coord_flip()
print(p)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.