小提琴图大家都不陌生，本博客也有很多介绍小提琴图绘制的方法和介绍。一个偶然的机会看到一个小提琴图的展示方式比较好，和大家分享。

library("vioplot")

# 演示数据
data <- trees

tall <- trees[trees$Height >= 76,]
small <- trees[trees$Height < 76,]

# 绘制左半边
vioplot(tall,
        side = "left",
        plotCentre = "line",
        col = 2)
# 绘制右半边
vioplot(
    small,
    side = "right",
    plotCentre = "line",
    col = 3,
    add = TRUE
 #添加到已有图层
)

# 添加图例
legend(
    "topleft",
    legend = c("Tall", "Small"),
    text.col = c(2, 3),
    box.lty = 0,
    bg = rgb(0, 0, 0, 0),
    fill = c(2, 3),
    cex = 1,
    ncol = 2
)

图形展示的方式有很多，关于个性化的小提琴展示分享就到此结束。后面和大家分享更多有意思的可视化小教程。如果大家有更好的方案也欢迎大家留言。

参考资料：

1.https://r-coder.com/violin-plot-r/

阅读: 457