對于導(dǎo)出帶有透明度的高清圖，小仙又發(fā)現(xiàn)了更懶的辦法，特來更新

再Rstudio里調(diào)整好透明度之后，直接導(dǎo)出pdf，然后用Adobe illustrator打開pdf文件，直接導(dǎo)出png或jpeg就可以啦

更新前原文

今天小仙同學(xué)給大家分享下Radar chart的作圖方法，其實(shí)雷達(dá)圖我們在生活中能經(jīng)常可以見到，比如大家很喜歡玩的王者榮耀里就有。通過簡單的圖形對比，人物特點(diǎn)一目了然。

也經(jīng)常用來評估學(xué)生的成績和產(chǎn)品的性能。

在生信領(lǐng)域，我們也可以用來比較評估樣品的基因表達(dá)情況啦。

作圖數(shù)據(jù)如下：

畫出來的效果圖如下：

作圖方法：

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

首先還是要把你想要繪圖的數(shù)據(jù)調(diào)整成R語言可以識別的格式excel中保存成csv格式。數(shù)據(jù)的格式就在上面啦。

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

data<-read.csv(“your file path”, header = T)

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

install.packages("fmsb")
library(fmsb)

Step4.繪圖數(shù)據(jù)格式調(diào)整

radarfig<-rbind(rep(15,10),rep(0,10),data)

#在原有的數(shù)據(jù)上增加了兩行，
#第一、二行分別是每個(gè)縱軸的最大值、最小值，也可手動(dòng)添加

Step5.繪圖

radarchart(radarfig, axistype=1,
            pcol=rgb(69/255,137/255,137/255) , pfcol=rgb(69/255,137/255,137/255,0.6),    
            plwd=4 ,seg=5,
            cglcol="grey", cglty=1, cglwd=2，axislabcol="black" ,caxislabels=seq(0,15,3),
            vlcex=0.7,calcex=0.7）

如果從RStudio直接導(dǎo)出png或者jpeg格式的圖片，還是會有之前小仙同學(xué)提過的**“鋸齒狀”線條**。之前的解決方案是導(dǎo)出eps格式，在Adobe Illustrator里打開再導(dǎo)出成需要的格式。但本小仙發(fā)現(xiàn)一個(gè)“巨坑”，就是RStudio導(dǎo)出的eps圖形沒有透明度，需要在AI里手動(dòng)調(diào)整透明圖。
（其實(shí)R代碼的這一部分本小仙很快就寫好了 ，調(diào)整填充透明度費(fèi)了老大勁，實(shí)名diss此bug）

填充透明度調(diào)整方法如下：

1.取消編組

2.選中線條，對象—實(shí)時(shí)上色—建立

3.選中線條，對象—拓展

4.更改填充顏色，輸入相應(yīng)顏色RGB數(shù)值

5.刪掉圖形白色背景

6.外觀—填色—不透明度—調(diào)整數(shù)值

(⊙o⊙)，小仙同學(xué)也覺得這種方法有點(diǎn)麻煩，不過目前沒有找到更好的方法啦
（據(jù)說excel也可以畫雷達(dá)圖，嫌麻煩的同學(xué)可以移步excel啦，能又快又好畫出圖就是好方法）
今天的分享就到這里啦，更多關(guān)于R語言繪制Radar chart的資料請關(guān)注腳本之家其它相關(guān)文章！

最新評論