小提琴圖之前已經(jīng)畫過了，不過最近小仙又看到一種貌美的畫法，決定復(fù)刻一下。
文獻(xiàn)中看到的圖如下：

Step1. 繪圖數(shù)據(jù)的準(zhǔn)備

首先要把你想要繪圖的數(shù)據(jù)調(diào)整成R語(yǔ)言可以識(shí)別的格式，建議大家在excel中保存成csv格式。
作圖數(shù)據(jù)如下：

Step2. 繪圖數(shù)據(jù)的讀取

data<-read.csv(“your file path”, header = T)
#注釋：header=T表示數(shù)據(jù)中的第一行是列名，如果沒有列名就用header=F

Step3. 繪圖所需package的安裝、調(diào)用

library(ggplot2)  
library(reshape2)              
# 注釋：package使用之前需要調(diào)用

Step4. 繪圖

data_melt <- melt(data)
ggplot(data_melt, aes(x = variable , y = value , fill = variable)) +
  geom_violin(alpha = 0.5,aes(linetype=NA)) + 
  geom_jitter(shape=21,aes(fill=variable),position = position_jitter(width = 0.2))+
  xlab("Gene")+ylab("Score")+
  theme_bw()+theme(legend.position = "none")

關(guān)于geom_violin()里的linetype
如果不指定linetype，默認(rèn)會(huì)有黑色邊框

關(guān)于geom_jitter()
若指定jitter里的width=0，效果圖如下：

jitter的shape可以有很多種類型

如果指定shape=24，效果圖如下：

最近小仙的話癆病可能又犯了，忍不住想啰嗦幾句。
最近小仙真的很沒空，同時(shí)小仙又是一個(gè)對(duì)自己很寬容的人，本打算這幾個(gè)月就不更新了。正巧最近看到村上春樹的一本書，《當(dāng)我談跑步時(shí) 我談些什么》，頗有感慨。本來我對(duì)這位作家的了解，僅限于“挪威的森林”這幾個(gè)字，然而通過“跑步”這本書，意外得知村上從三十多歲高齡開始跑步，如無意外每天長(zhǎng)跑，堅(jiān)持了二十多年，著實(shí)有些驚訝。書中的言語(yǔ)小仙早已忘干凈，只剩下一個(gè)感覺：我再忙，應(yīng)該也比不上村上春樹吧，他可以天天跑，我一個(gè)月寫一篇總可以吧。
一開始寫“R語(yǔ)言作圖”，是網(wǎng)上覺得沒有簡(jiǎn)單易懂的教程，就自己嘗試創(chuàng)造一個(gè)；后來寫是想多寫幾篇文章，獲得更多的關(guān)注和粉絲；到現(xiàn)在是就像是對(duì)自己的考驗(yàn)，看自己能不能堅(jiān)持。時(shí)間更迭，得到了一些幫助，也幫助了一些人，獲得了贊同，也收獲了舉報(bào)。也許寫文章也是一種長(zhǎng)跑，風(fēng)云變幻、形形色色就是旅程之風(fēng)景。

以上就是R語(yǔ)言繪制數(shù)據(jù)可視化小提琴圖畫法示例的詳細(xì)內(nèi)容，更多關(guān)于R語(yǔ)言繪制數(shù)據(jù)可視化小提琴圖的資料請(qǐng)關(guān)注腳本之家其它相關(guān)文章！

最新評(píng)論