R語言可視化中直方圖的介紹及其美化技巧

這篇文章主要介紹“R語言可視化中直方圖的介紹及其美化技巧”，在日常操作中，相信很多人在R語言可視化中直方圖的介紹及其美化技巧問題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對(duì)大家解答”R語言可視化中直方圖的介紹及其美化技巧”的疑惑有所幫助！接下來，請(qǐng)跟著小編一起來學(xué)習(xí)吧！

為瓜州等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及瓜州網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、瓜州網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

今天介紹關(guān)于直方圖的美化技巧！

數(shù)據(jù)集仍然使用上一節(jié)使用到的有關(guān)鉆石的數(shù)據(jù)信息。

data(diamonds)

set.seed(42)

small <- diamonds[sample(nrow(diamonds), 1000), ]

head(small)

以上通過設(shè)定隨機(jī)種子，從diamonds中隨機(jī)抽取了1000個(gè)數(shù)據(jù)作為我們制作直方圖的樣本數(shù)據(jù)（源數(shù)據(jù)集有點(diǎn)大）。

直方圖的做法與我們之前做柱形圖（條型圖）所使用函數(shù)主題語法大致相同，不同僅僅在于添加的圖層對(duì)象為geom_histogram()

由于直方圖呈現(xiàn)數(shù)據(jù)分布趨勢(shì)，所以僅需一個(gè)數(shù)值型變量進(jìn)入即可。

ggplot(small)+geom_histogram(aes(x=price))

ggplot(small,aes(price))+geom_histogram()

以上兩句直方圖語法是等價(jià)的，也就是說，無論參數(shù)price在ggplot函數(shù)中，還是在圖層對(duì)象geom_histogram括號(hào)內(nèi)，只要是被aes()美學(xué)映射包括著，都將作用于全局。

當(dāng)然如果在直方圖參數(shù)中添加顏色映射，那么就可以做出堆積直方圖。

ggplot(small,aes(price,fill=cut))+geom_histogram()

當(dāng)顏色變量（因子變量）進(jìn)入aes內(nèi)的時(shí)候，默認(rèn)直方圖輸出為堆積直方圖。（大家是否想起了之前學(xué)過的柱形圖，可以通過設(shè)置position參數(shù)對(duì)多序列柱形進(jìn)行堆積、簇狀轉(zhuǎn)換）。

我們嘗試著將position=stack參數(shù)加入geom_histogram(position="stack")參數(shù)中，看下以上說法是否可靠。

ggplot(small,aes(price,fill=cut))+geom_histogram(position="stack")

果然不出所料，加入分類變量時(shí)的直方圖，其位置調(diào)整與柱形圖如出一轍，那么我們可以將position的幾個(gè)參數(shù)挨個(gè)嘗試：

ggplot(small,aes(price,fill=cut,alpha = 1/10))+geom_histogram(position="identity")  #position=identity,即不對(duì)直方圖位置作任何變換。

ggplot(small,aes(price,fill=cut,alpha = 1/10))+geom_histogram(position="dodge")  #position=dodge,將各系列位置錯(cuò)開成簇狀直方圖。

ggplot(small,aes(price,fill=cut,alpha = 1/10))+geom_histogram(position="fill")  #position=fill,將各系列位置錯(cuò)開成堆積百分比直方圖。

以上就是關(guān)于直方圖幾種常用形式，接下來講關(guān)于直方圖圖表元素調(diào)整。

直方圖的binwidth參數(shù)控制直方圖組距大小。

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.01)

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.2)

當(dāng)然也可以在直方圖中直接添加fill填充為喜歡的顏色。

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.1,fill="steelblue")

使用外部主題命令：

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.1)+theme_stata()+scale_fill_stata()   #以上使用了stata的主題及配色模板

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.1)+theme_solarized()+scale_fill_solarized()   #以上使用了solarized主題及配色模板

手動(dòng)自定義顏色：

ggplot(diamonds, aes(carat,fill="steelblue"))+geom_histogram(binwidth = 0.1)+theme_few()+scale_fill_manual(values="#FB882C")+ theme(strip.background=element_blank(),legend.position="none") 

ggplot(small,aes(price,fill=cut))+geom_histogram(position="fill") +theme_wsj()+scale_fill_wsj()+theme(strip.background=element_blank(),legend.position="none") 

ggplot(small,aes(price,fill=cut))+geom_histogram(position="fill") +theme_economist(base_size=14)+scale_fill_economist()+theme(strip.background=element_blank(),legend.position="none") 

關(guān)于直方圖的分面技巧：

ggplot(small,aes(price,fill=cut))+geom_histogram()+facet_wrap(~cut)

ggplot(small,aes(price,fill=cut))+geom_histogram()+facet_wrap(~cut)+theme_wsj()+scale_fill_wsj()+guides(fill=guide_legend(title=NULL))     #關(guān)于直方圖的封面技巧

ggplot(small,aes(price,fill=cut))+geom_histogram()+facet_wrap(~cut)+theme_economist(base_size=14)+scale_fill_economist()+guides(fill=guide_legend(title=NULL))  

到此，關(guān)于“R語言可視化中直方圖的介紹及其美化技巧”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí)，請(qǐng)繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)砀鄬?shí)用的文章！

分享標(biāo)題：R語言可視化中直方圖的介紹及其美化技巧
標(biāo)題URL：http://www.jbt999.com/article34/iiepse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、外貿(mào)建站、網(wǎng)站改版、定制網(wǎng)站、用戶體驗(yàn)、全網(wǎng)營銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)