R語言畫圖教程之盒形圖

我們之前有分享過一系列的R語言畫圖代碼（PCA圖、Pathway圖、火山圖、RDA圖、熱圖），今天再來補充一個盒形圖（箱形圖）的代碼。

以下代碼只是示例，不能直接搬來用哦，注意看注釋。

--------------代碼開始了-------------

setwd("E:/") #改變工作目錄

data=read.table("data.txt",header=T) #讀取數據，“header=T”第一行為表頭

mycolors=c("#A50F15","#DE2D26","#FB6A4A","#FCAE91","#FEE5D9","white","#EFF3FF","#BDD7E7","#6BAED6","#3182BD","#08519C","#74c476",rgb(107,174,213,max=255))

matrix_data= as.matrix(data)

boxplot(matrix_data,

boxwex=0.8, #盒型寬度

main = "ABC", #圖表命名

ylim = c(10, 35), #y軸坐標范圍，可以不寫，可以替換成x

xlab = "X_LAB", #x軸名稱，可以替換成y

staplewex=0.6, #邊緣線（訂書釘）寬度

range=1.5, #邊緣線擴展范圍，默認1.5

border=8, #盒形圖顏色，1~8,整數

col= mycolors,

#col = "bisque", #盒子填充顏色

outline=T, #是否繪制異常值，默認為TRUE

#horizontal=TRUE, #水平，橫縱坐標對換

#notch=FALSE/TRUE, #蜂腰

) 

#添加標題

title("ABC")

#加圖例

legend(0.5,33, #前一個是距離左側距離，后一個是距離底端距離,現在的位置是左上角

c("a","b","c"), #圖例名稱

fill = c("yellow","orange","brown") #圖例填充顏色

)

#添加平均數點

points(c(1:12), #“(1:12)”要添加到1~12個盒子

c(read.table("mean.txt")), #讀取平均值數據，我不會寫直接運算的代碼，用了最笨的辦法，需要其他同事完善。

pch=15, #點的樣式，0~25，圖例可以在R中輸入“？points”查看

cex=0.5) #點的大小

------------運行結果展示------------

當然要用起來會對代碼有細微的調整，根據注釋去修改一下對應的代碼就可以了。PS：以上的代碼缺少一些參數（例如：中位數線的粗細，顏色等）。數據分析師培訓