條形圖，也稱為柱狀圖條形圖，是一種以長方形的長度為變數的統計圖表。

條形圖可以是水平或垂直的，每個長方形可以有不同的顏色。

R 語言使用 barplot() 函式來建立條形圖，格式如下：

barplot(H,xlab,ylab,main, names.arg,col,beside)

引數說明：

• H向量或矩陣，包含圖表用的數字值，每個數值表示矩形條的高度。
• xlabx 軸標籤。
• ylaby 軸標籤。
• main圖表標題。
• names.arg每個矩形條的名稱。
• col每個矩形條的顏色。

接下來我們建立一個簡單的條形圖：

例項

# 準備一個向量
cvd19=c(83534,2640626,585493)

# 顯示條形圖
barplot(cvd19)

執行繪圖程式，會在當前目錄下生存一個 PDF 檔案（Rplots.pdf）,開啟檔案可以看到圖形效果如下：

為了更好地表達資訊，我們可以在圖表上新增標題、顏色及每個矩形條的名稱。

以下我們建立 2020 年 7 月 1 日中國、美國和印度的新冠疫情確診人數統計圖。

中文字型需要設定字型引數family='GB1'：

例項

cvd19=c(83534,2640626,585493)

barplot(cvd19,
main="新冠疫情條形圖",
col=c("#ED1C24","#22B14C","#FFC90E"),
names.arg=c("中國","美國","印度"),
family='GB1'
)

barplot 中的資料既可以是向量，也可以是矩陣，現在我們生成一張新冠疫情 6 月和 7 月對比圖。

首先準備資料：

	中國	美國	印度
6 月	83017	1794546	190535
7 月	83534	2640626	585493

轉換成矩陣，生成條形圖，按並排格式顯示，而且要顯示顏色樣本。

這裡我們設定了自己的字型庫，詳細內容可以參考R 繪圖 - 中文支援

例項

library(showtext);
font_add("SyHei","SourceHanSansSC-Bold.otf");
cvd19=matrix(
c(83017,83534,1794546,2640626,190535,585493),
2,3
)

# 設定檔名，輸出為 png
png(file="runoob-bar-1.png")

#載入字型
showtext_begin();

colnames(cvd19)=c("中國","美國","印度")
rownames(cvd19)=c("6月","7月")
barplot(cvd19, main="新冠疫情條形圖", beside=TRUE,legend=TRUE, family='SyHei')

# 去掉字型
showtext_end();

以下程式碼會在當前程式目錄下生存一個 runoob-bar-1.png 檔案，如下所示：

我們設定的顏色樣本將是每各組的顏色樣本：

例項

library(plotrix)
library(showtext);
font_add("SyHei","SourceHanSansSC-Bold.otf");
cvd19=matrix(
c(83017,83534,1794546,2640626,190535,585493),
2,3
)

# 設定檔名，輸出為 png
png(file="runoob-bar-2.png")
#載入字型
showtext_begin();
colnames(cvd19)=c("中國","美國","印度")
rownames(cvd19)=c("6月","7月")

barplot(cvd19, main="新冠疫情條形圖", beside=TRUE,legend=TRUE,col=c("blue","green"), family='SyHei')
# 去掉字型
showtext_end();

以下程式碼會在當前程式目錄下生存一個 runoob-bar-2.png 檔案，如下所示：

beside 引數

beside 設定矩形條堆疊的方式，預設為 FALSE：

• beside=FALSE時，條形圖的高度是矩陣的數值，矩形條是水平堆疊的。
• beside=TRUE時，條形圖的高度是矩陣的數值，矩形條是並列的。

例項

library(showtext);
font_add("SyHei","SourceHanSansSC-Bold.otf");
cvd19=matrix(
c(83017,83534,1794546,2640626,190535,585493),
2,3
)

# 設定檔名，輸出為 png
png(file="runoob-bar-3.png")
#載入字型
showtext_begin();
colnames(cvd19)=c("中國","美國","印度")
rownames(cvd19)=c("6月","7月")

barplot(cvd19, main="新冠疫情條形圖", beside=FALSE,legend=TRUE,col=c("blue","green"), family='SyHei')
# 去掉字型
showtext_end();

以下程式碼會在當前程式目錄下生存一個 runoob-bar-3.png 檔案，如下所示：