R語言最強大的一點就是畫圖，那個無比強大的畫圖系統，再加上各種各樣的神級R包，讓我寫R語言中最喜歡的一點就是寫繪圖程式碼。

簡單來說，R語言原生的繪圖系統已經非常強大了，根本不需要其他東西的輔助，就可以繪製非常炫目的圖片，需要的僅僅是耐心。另外R語言還有一系列的繪圖輔助R包，比如著名的ggplot2，我經常用的plotly都是很好的工具。

再近幾年，R語言推出了Shiny框架，可以用R語言快速寫成一個網頁，這簡直不能更方便。

講真我已經在期待R語言釋出建站框架的那一天了。R已經能做分散式大資料了RSpark，建站還會遠嗎？

R語言繪圖基礎

再大的工程也是又一塊磚一塊磚壘起來了。在複雜的R圖也是又忒簡單的元素組成的，下面的這些東西，可謂是R繪圖最基本的元素，能把它們掌握，就可以繪製出相對OK的圖。

顏色

> plot(1:10,col="red")

之前提到過，繪圖函式（比如bixplot或者plot）中的col引數就是控制顏色的，而顏色的選擇可以用問題，也可以用其他的一些標號，比如網站有一個很好很強大的R顏色列表

面對上面這種浩如煙海的顏色，你可以直接把那個標號：”#XXXX”用到程式裡。

另外不得不推薦一個極好的R包，叫做RColorBrewer，這個包的功能主要就是提供一些自己已經配好色的R顏色，另外提供一系列顏色的分配，比如你想要從正黃色到正藍色直接過度10個顏色，就可以用這個包。

> colorRampPalette(brewer.pal(9
 
,"Blues"))(100) -> color
> plot(1:100,col=color,pch=20,cex=2)

這樣就從白色到正藍色劃分成100個過渡色。

又如：

> barplot(1:5,col=RColorBrewer::brewer.pal(n = 5,name = "Set2"))

RColorBrewer::brewer.pal函式的功能是直接呼叫這個包已經配好的顏色，其中有一系列名字，我最喜歡用的就是”Set2”，因為看上去比較素雅。

文字

有時候做了一個圖，想要在圖中加一些問題，這個問題可以用text函式來解決，就著剛才的圖，我再繼續往上邊加一個”Hello World!”

> barplot(1:5,col=RColorBrewer::brewer.pal(n = 5,name = "Set2"))
> text(x=4,y=4,labels = "Hello World!",cex=2)

讓我們來細看一下text函式的引數，x代表了橫座標，我這裡寫的是4，就是說希望寫再以第四個bar為中心的位置。y代表了高度，我寫的也是4，labels就是想要寫的話，可以把任何的字串嵌進來，最後一個引數是cex，這個是控制字型大小，1是預設值，如果你希望字型放大一倍，就設定為2.

根據我的經驗，想要一次性畫對圖還是有難度的，最好還是多嘗試幾次。調調位置，換換x和y。慢慢就可以把圖做出來。

點、線

點和線是很基礎的元素，點的函式是points，線的函式是lines，要說明的是，每一次plot都會展開一副新的圖。也就是說，如果你已經用過plot畫了一部分圖了，還想要繼續往圖上新增東西，就需要用points或者lines函式，不能重新用plot。

> barplot(1:5,col=RColorBrewer::brewer.pal(n = 5,name = "Set2"))
> points(rep(3,5),pch=20,cex=3,col="orange")

上面的程式碼，我plot的時候，再1到5個橫座標上，都再縱座標為3的地方plot了一個橘色的點，做法其實和plot很像。

在plot或者point的時候，理論上你應該輸入x,y兩個引數，兩者應該是完全對應的，一一對應，前者是橫座標，後者是縱座標。但是如果你只輸入了一批資料，程式就會預設橫座標為1，2，3，4……縱座標是你輸入的數值。這就是為什麼，在這個函式裡，我只輸入了rep(3,5)而沒有輸入橫座標。

> barplot(1:5,col=RColorBrewer::brewer.pal(n = 5,name = "Set2"))
> points(rep(3,5),pch=20,cex=3,col="orange")
> lines(sample(1:5),col="gray",lwd=2,lty=2)

如果說是劃線的話，也很簡單，使用lines函式，用法和之前是一樣的，如果你輸入了對應的x,y座標，就可以直接繪製，如果只輸入一個vector，程式就預設橫座標是1,2,3……

後面的引數裡，lwd控制線的粗細，lty控制線的型別，lty=2意思是虛線。

標題

標題其實是很容易的，只需要再plot或者其他繪圖程式裡，新增main引數就行：

plot(1:10,main="This is a Title",cex.main=1.5)

這個真沒什麼好說的，cex.main=1.5的意思是，標題的尺寸是標準值的1.5倍。此外值得說的是，如果你不喜歡這個Title，也可以用text手繪，那就稍微複雜一些。

圖例

圖例的目的就是望你看懂你在畫什麼，通過legend函式我們可以新增圖例。

x <- seq(-pi, pi, len = 65)
plot(x, sin(x), type = "l", ylim = c(-1.2, 1.8), col = 3, lty = 2)
points(x, cos(x), pch = 3, col = 4)
lines(x, tan(x), type = "b", lty = 1, pch = 4, col = 6)
title("legend(..., lty = c(2, -1, 1), 
       pch = c(NA, 3, 4), merge = TRUE)",
       cex.main = 1.1)
legend(-1, 1.9, 
       c("sin", "cos", "tan"), 
       col = c(3, 4, 6),
       text.col = "green4", 
       lty = c(2, -1, 1), 
       pch = c(NA, 3, 4),
       merge = TRUE, 
       bg = "gray90")

上述就是legend函式的一堆引數，其中col，lty等等都和plot一模一樣。

座標軸

座標軸是很容易處理的東西。直接設定引數就行了。

> plot(1:10,xlab="X lab",ylab="y lab")

有一個很有意思的情況是，如果想要更換座標軸上的1，2，3，4，5該怎麼辦？

plot(1:10, xaxt = "n", xlab='Some Letters')
axis(1, at=1:10, labels=letters[1:10])

甚至於，如果想要將座標軸旋轉一些角度，應該怎麼辦？這個問題我經常遇到，原因就是有時候label的名字太長了。。。其實程式碼真的超簡單：

> par(las=2)
> plot(1:10, xaxt = "n", xlab='Some Letters')
> axis(1, at=1:10, labels=letters[1:10])

構圖函式

根據我幾年的R語言經驗，構圖函式真的是一個很多教材都沒有認真寫的東西，但實戰中經常經常經常涉及這方面問題啊，在這裡我記錄了一下：

首先就是，如果你想在一張圖上繪製多個圖形怎麼辦？

> par(mfrow=c(2,3))
> plot(1:10)
> plot(1:10)
> plot(1:10)
> plot(1:10)
> plot(1:10)
> plot(1:10)

使用par(mfrow=c(2,3))命令可以完成比較規則的構圖，其中引數中，前一個代表行，後一個代表列，我這裡的意思就是，把圖片分成兩行三列。

還有另外一種更為厲害的分屏：

# One figure in row 1 and two figures in row 2
attach(mtcars)
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE))
hist(wt)
hist(mpg)
hist(disp)

這是我曾經最喜歡的一個多圖函式，其中的設定都是再layout裡邊的matrix，裡邊你可以無限多地設定函式，每一張圖可以通過數字連起來，這樣就可以做出各種形狀的組合圖形。