99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話:13121318867

登錄
首頁精彩閱讀用數(shù)據(jù)說話,R語言有哪七種可視化應用
用數(shù)據(jù)說話,R語言有哪七種可視化應用
2017-02-20
收藏

用數(shù)據(jù)說話,R語言有哪七種可視化應用

今天,隨著數(shù)據(jù)量的不斷增加,數(shù)據(jù)可視化成為將數(shù)字變成可用的信息的一個重要方式。R語言提供了一系列的已有函數(shù)和可調(diào)用的庫,通過建立可視化的方式進行數(shù)據(jù)的呈現(xiàn)。他用API編寫了第一版Price Discovery,雷鋒網(wǎng)對他所寫的這篇文章做了編譯,未經(jīng)許可不得轉(zhuǎn)載。

如何選擇正確的圖表類型

四種可選擇的基本類型:

1、  比較類圖表

2、  組成類圖表

3、  分布類圖表

4、  關(guān)系類圖表

為了選擇最適合分析手中數(shù)據(jù)的圖表類型,首先考慮以下幾個問題:

單個圖表里,需要幾個變量?

單個變量,需要用多少數(shù)據(jù)點來描述?

數(shù)據(jù)是隨時間的變量,還是離散的,以單體或組的形式?

針對如何選擇最適宜的圖表,Dr.Andrew Abela 提供了一個很好的方法示意圖:

在使用圖表分析的時候,常用的有7種圖表:

散點圖

2.  直方圖

3.  柱狀圖條形圖

4.  箱線圖

5.  面積圖

6.  熱點圖

7.  相關(guān)圖

我們使用“Big Mart data”作為案例來理解 R 可視化的實現(xiàn)方法, 你可以點擊此處下載完整的數(shù)據(jù)(google doc) 。

雷鋒網(wǎng)將在以下篇幅介紹如何利用 R 實現(xiàn)可視化:

1、  散點圖

使用場景:散點圖通常用于分析兩個連續(xù)變量之間的關(guān)系。

在上面介紹的超市數(shù)據(jù)中,如果我們想根據(jù)他們的成本數(shù)據(jù)來可視化商品的知名度,我們可以用散點圖,兩個連續(xù)的變量這里我們命名為Item_Visibility和Item_MRP。

這里使用R中的ggplot()和geom_point()函數(shù)。

library(ggplot2)          // ggplot2 是R中的一個函數(shù)庫

ggplot(train, aes(Item_Visibility, Item_MRP)) + geom_point() + scale_x_continuous("Item

Visibility", breaks = seq(0,0.35,0.05))+ scale_y_continuous("Item MRP", breaks = seq(0,270,by =

30))+ theme_bw()

下圖中增加了一個新的變量,對產(chǎn)品進行分類的變量,命名為Item_Type,圖中以不同的顏色作為顯示。

R代碼中增加了分組:

ggplot(train, aes(Item_Visibility, Item_MRP)) + geom_point(aes(color = Item_Type)) +

scale_x_continuous("Item Visibility", breaks = seq(0,0.35,0.05))+

scale_y_continuous("Item MRP", breaks = seq(0,270,by = 30))+

theme_bw() + labs(title="Scatterplot")

可以進一步可視化,將散點圖以不同的小圖表的形式呈現(xiàn),下圖中,每一個小圖表都代表一種不同的產(chǎn)品:

代碼如下:

ggplot(train, aes(Item_Visibility, Item_MRP)) + geom_point(aes(color = Item_Type)) +

scale_x_continuous("Item Visibility", breaks = seq(0,0.35,0.05))+

scale_y_continuous("Item MRP", breaks = seq(0,270,by = 30))+

theme_bw() + labs(title="Scatterplot") + facet_wrap( ~ Item_Type)

代碼中,facet_warp將圖像顯示在長方形圖表中。

2、  直方圖

使用場景:直方圖用于連續(xù)變量的可視化分析。將數(shù)據(jù)劃分,并用概率的形式呈現(xiàn)數(shù)據(jù)的規(guī)律。我們可以將分類根據(jù)需求進行組合和拆分,從而通過這種方式看到數(shù)據(jù)的變化。

繼續(xù)使用上面我們引入的超市數(shù)據(jù)的例子,如果我們需要知道不同成本段的商品的數(shù)量,我們可以將所有數(shù)據(jù)畫出一個直方圖,Item_MRP作為橫坐標。如下圖所示:

下面是一個簡單的畫直方圖的例子,使用的是R中的ggplot()和geom_histogram()函數(shù)。

ggplot(train, aes(Item_MRP)) + geom_histogram(binwidth = 2)+

scale_x_continuous("Item MRP", breaks = seq(0,270,by = 30))+

scale_y_continuous("Count", breaks = seq(0,200,by = 20))+

labs(title = "Histogram")

3、  柱狀圖條形圖

使用場景:柱狀圖一般用于表現(xiàn)分類的變量或者是連續(xù)的分類變量的組合。

在超市數(shù)據(jù)的例子中,如果我們需要知道在每一年新開的超市的門店數(shù)量,那么柱狀圖就是一個很好的圖形分析的方式。用“年”的信息作為坐標,如下圖所示:

下面是一個簡單的畫柱狀圖的例子,使用的是R中的ggplot()函數(shù)。

ggplot(train, aes(Outlet_Establishment_Year)) + geom_bar(fill = "red")+theme_bw()+

scale_x_continuous("Establishment Year", breaks = seq(1985,2010)) +

scale_y_continuous("Count", breaks = seq(0,1500,150)) +

coord_flip()+ labs(title = "Bar Chart") + theme_gray()

水平柱狀圖

去除代碼中的coord_flIP()變量,可以將直方圖以水平直方圖的方法呈現(xiàn)。

為了得到商品重量(連續(xù)變量)和折扣店(分類變量)的關(guān)系,可使用下面的代碼:

ggplot(train, aes(Item_Type, Item_Weight)) + geom_bar(stat = "identity", fill = "darkblue") +

scale_x_discrete("Outlet Type")+ scale_y_continuous("Item Weight", breaks = seq(0,15000, by =

500))+ theme(axis.text.x = element_text(angle = 90, vjust = 0.5)) + labs(title = "Bar Chart")

堆疊條形圖

堆疊條形圖柱狀圖的一個高級版本,可以將分類變量組合進行分析。

超市數(shù)據(jù)的例子中,如果我們想要知道不同分類商品的折扣店數(shù)量,包含折扣店種類和折扣店區(qū)域,堆疊條形圖就是做這種分析最為有效的圖表分析方法。

下面是一個簡單的畫堆疊條形圖的例子,使用的是R中的ggplot()函數(shù)。

ggplot(train, aes(Outlet_Location_Type, fill = Outlet_Type)) + geom_bar()+

labs(title = "Stacked Bar Chart", x = "Outlet Location Type", y = "Count of Outlets")

4、  箱線圖

使用場景:箱線圖一般用于相對復雜的場景,通常是組合分類的連續(xù)變量。這種圖表應用于對數(shù)據(jù)延伸的可視化分析和檢測離值群。主要包含數(shù)據(jù)的5個重要節(jié)點,最小值,25%,50%,75%和最大值。

在我們的案例中,如果我們想要找出每個折扣店每個商品銷售的價格的情況,包括最低價,最高價和中間價,箱線圖就大有用處。除此之外,箱線圖還可以提供非正常價格商品銷售的情況,如下圖所示。

圖中,黑色的點為離值群。離值群的檢測和剔除是數(shù)據(jù)挖掘中很重要的環(huán)節(jié)。

下面是一個簡單的畫箱線圖的例子,使用的是R中的ggplot()和geom_boxplot函數(shù)。

ggplot(train, aes(Outlet_Identifier, Item_Outlet_Sales)) + geom_boxplot(fill = "red")+

scale_y_continuous("Item Outlet Sales", breaks= seq(0,15000, by=500))+

labs(title = "Box Plot", x = "Outlet Identifier")

5、  面積圖

使用場景:面積圖通常用于顯示變量和數(shù)據(jù)的連續(xù)性。和線性圖很相近,是常用的時序分析方法。另外,它也被用來繪制連續(xù)變量和分析的基本趨勢。

超市案例中,當我們需要知道隨著時間的眼神,折扣店商品的品種走勢,我們可以畫出如下的面積圖,圖中呈現(xiàn)了折扣店商品的成交量的變化。

下面是一個簡單的畫面積圖的例子,用于分析折扣店商品成交數(shù)量的走勢,使用的是R中的ggplot()和geom_area函數(shù)。

ggplot(train, aes(Item_Outlet_Sales)) + geom_area(stat = "bin", bins = 30, fill = "steelblue") +

scale_x_continuous(breaks = seq(0,11000,1000))+

labs(title = "Area Chart", x = "Item Outlet Sales", y = "Count")

6 、  熱點圖

使用場景:熱點圖用顏色的強度(密度)來顯示二維圖像中的兩個或多個變量之間的關(guān)系??蓪D表中三個部分的進行信息挖掘,兩個坐標和圖像顏色深度。

超市案例中,如果我們需要知道每個商品在每個折扣店的成本,如下圖中所示,我們可以用三個變量Item_MRP,Outlet_Identifier和Item_type進行分析。

暗的數(shù)據(jù)表示Item_MRP低于50,亮的數(shù)據(jù)表示Item_MRP接近250。

下面是R代碼,使用了ggplot()函數(shù)做簡單的熱點圖。

ggplot(train, aes(Outlet_Identifier, Item_Type))+

geom_raster(aes(fill = Item_MRP))+

labs(title ="Heat Map", x = "Outlet Identifier", y = "Item Type")+

scale_fill_continuous(name = "Item MRP")

7、  關(guān)系圖

使用場景:關(guān)系圖用作表示連續(xù)變量之間的關(guān)聯(lián)性。每個單元可以標注成陰影或顏色來表明關(guān)聯(lián)的程度。顏色越深,代表關(guān)聯(lián)程度越高。正相關(guān)用藍色表示,負相關(guān)用紅色表示。顏色的深度隨著關(guān)聯(lián)程度的遞增而遞增。

超市案例中,用下圖可以展現(xiàn)成本,重量,知名度與折扣店開業(yè)的年份和銷售價格之間的關(guān)系。可以發(fā)現(xiàn),成本和售價成正相關(guān),而商品的重量和知名度成負相關(guān)。

下面是用作簡單關(guān)系圖的R代碼,使用的是corrgram()函數(shù)。

install.packages("corrgram")

library(corrgram)

corrgram(train, order=NULL, panel=panel.shade, text.panel=panel.txt,

main="Correlogram")

通過以上的分類介紹和R程序的簡單介紹,相信你可以使用R中的ggplot庫進行自己的數(shù)據(jù)可視化分析了。 。

數(shù)據(jù)分析咨詢請掃描二維碼

若不方便掃碼,搜微信號:CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進行初始化 // 參數(shù)1:配置參數(shù) // 參數(shù)2:回調(diào),回調(diào)的第一個參數(shù)驗證碼對象,之后可以使用它調(diào)用相應的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗服務器是否宕機 new_captcha: data.new_captcha, // 用于宕機時表示是新驗證碼的宕機 product: "float", // 產(chǎn)品形式,包括:float,popup width: "280px", https: true // 更多配置參數(shù)說明請參見:http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計時完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請輸入'+oInput.attr('placeholder')+'!'; var errTxt = '請輸入正確的'+oInput.attr('placeholder')+'!'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }