亚洲区国产区激情区无码区,国产成人mv视频在线观看,国产A毛片AAAAAA,亚洲精品国产首次亮相在线

R 繪圖 條形圖

條形圖，也稱為柱狀圖條形圖，是一種以長方形的長度為變量的統(tǒng)計(jì)圖表。

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

R 語言使用 barplot() 函數(shù)來創(chuàng)建條形圖，格式如下：

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

參數(shù)說明：

  • H 向量或矩陣，包含圖表用的數(shù)字值，每個(gè)數(shù)值表示矩形條的高度。

  • xlab x 軸標(biāo)簽。

  • ylab y 軸標(biāo)簽。

  • main 圖表標(biāo)題。

  • names.arg 每個(gè)矩形條的名稱。

  • col 每個(gè)矩形條的顏色。

接下來我們創(chuàng)建一個(gè)簡單的條形圖：

# 準(zhǔn)備一個(gè)向量
cvd19 = c(83534,2640626,585493)

# 顯示條形圖
barplot(cvd19)

執(zhí)行繪圖程序，會(huì)在當(dāng)前目錄下生存一個(gè) PDF 文件(Rplots.pdf),打開文件可以看到圖形效果如下：

圖片.png

為了更好地表達(dá)信息，我們可以在圖表上添加標(biāo)題、顏色及每個(gè)矩形條的名稱。

以下我們創(chuàng)建 2020 年 7 月 1 日中國、美國和印度的新冠疫情確診人數(shù)統(tǒng)計(jì)圖。

中文字體需要設(shè)置字體參數(shù) family='GB1'：

cvd19 = c(83534,2640626,585493)

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

圖片.png

barplot 中的數(shù)據(jù)既可以是向量，也可以是矩陣，現(xiàn)在我們生成一張新冠疫情 6 月和 7 月對(duì)比圖。

首先準(zhǔn)備數(shù)據(jù)：

 中國美國印度
6 月830171794546190535
7 月835342640626585493

轉(zhuǎn)換成矩陣，生成條形圖，按并排格式顯示，而且要顯示顏色樣本。

這里我們?cè)O(shè)置了自己的字體庫，詳細(xì)內(nèi)容可以參考 R 繪圖 - 中文支持

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

# 設(shè)置文件名，輸出為 png
png(file = "nhooo-bar-1.png")

#加載字體
showtext_begin();

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

# 去掉字體
showtext_end();

以下代碼會(huì)在當(dāng)前程序目錄下生存一個(gè) nhooo-bar-1.png 文件，如下所示：

圖片.png

我們?cè)O(shè)置的顏色樣本將是每各組的顏色樣本：

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

# 設(shè)置文件名，輸出為 png
png(file = "nhooo-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();

以下代碼會(huì)在當(dāng)前程序目錄下生存一個(gè) nhooo-bar-2.png 文件，如下所示：

圖片.png

beside 參數(shù)

beside 設(shè)置矩形條堆疊的方式，默認(rèn)為 FALSE：

  • beside=FALSE 時(shí)，條形圖的高度是矩陣的數(shù)值，矩形條是水平堆疊的。

  • beside=TRUE 時(shí)，條形圖的高度是矩陣的數(shù)值，矩形條是并列的。

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

# 設(shè)置文件名，輸出為 png
png(file = "nhooo-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();

以下代碼會(huì)在當(dāng)前程序目錄下生存一個(gè) nhooo-bar-3.png 文件，如下所示：

圖片.png