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

熱線電話：13121318867

登錄
首頁精彩閱讀學(xué)會R語言華麗變身“白骨精”！
學(xué)會R語言華麗變身“白骨精”！
2016-08-01
收藏
關(guān)于R語言，ABC我就不多說了，因?yàn)槲乙膊艑W(xué)了一周時間，講也比較膚淺，“空談?wù)`國，不如實(shí)干興邦”。還是無私的把琢磨出來的實(shí)戰(zhàn)經(jīng)驗(yàn)奉獻(xiàn)給大家。做為辦公室的小白領(lǐng)，做圖表是必備技能，怎么在領(lǐng)導(dǎo)日益刁鉆的審美下，做出吊炸天的驚世之作，升職加薪，當(dāng)上總經(jīng)理，出任CEO，迎娶白富美，走上人生巔峰。那就從這里開始吧，會持續(xù)更新，請大家關(guān)注。

丨第一回：業(yè)務(wù)指標(biāo)地圖展現(xiàn)秀

作為任何有多地區(qū)業(yè)務(wù)的公司，如果能在地圖上展示業(yè)績，是一件多么酷的事情，下面上圖片。


這張圖展現(xiàn)的是江蘇某行的存款規(guī)模，越紅說明越高，蘇州是第一梯隊(duì)，南京，無錫市第二梯隊(duì)，徐州、南通、常州是第三梯隊(duì)，其他慘白的都是蘇北地區(qū)，是第四梯隊(duì)。當(dāng)然數(shù)據(jù)方面我進(jìn)行了加工，與真實(shí)數(shù)據(jù)還是有出入的，只是做個范例。

R語言制作圖表的步驟很簡單，一般無非是以下流程，很多人想不明白為什么必須要用R語言來畫圖，有兩個優(yōu)點(diǎn)：1、可以畫一些excel無法畫的圖，如地圖等，2、可以自動作圖，每次把數(shù)據(jù)更新一下，無論是文本，還是表格的格式，運(yùn)行程序就可以一鍵生成。

第一步：導(dǎo)入必用包，不管什么包，我一般全部默認(rèn)，否則有時就會出些莫名其妙的報錯，原則是“不管白包黑包，只要能畫圖就是好包”，“少一包不如多一包”。CA=windowsFont("微軟雅黑")定義自己喜歡的字體。


第二步：讀入地圖數(shù)據(jù)信息，這邊導(dǎo)入的是到地市的中國地圖SHP文件，我們想展現(xiàn)的是江蘇部分，需要篩出來，這樣我們用江蘇的地區(qū)代碼32，為什么是32呢，想想江蘇同學(xué)的身份證開頭吧，所以要篩到那個層級就看身份證開頭，到南京的話就篩選3201。前面在某文章看到復(fù)雜的篩選方法，還要反查代碼，還是覺得我這個取巧辦法好。


第三步：讀取業(yè)務(wù)信息：zhibiao.csv是各市對應(yīng)指標(biāo)，city.csv是每塊地市圖的中心坐標(biāo)及地市名稱。
  

第四步：畫出精美圖形，先畫地圖的底圖，再加上地市名稱，再根據(jù)指標(biāo)情況涂上深淺顏色。


PS：上面代碼足以，地圖讀取地圖的數(shù)據(jù)，然后用ggplot函數(shù)畫出來的，畫哪個地區(qū)都有參數(shù)來設(shè)定。

丨第二回：極具商務(wù)氣質(zhì)的條形圖。

其實(shí)我越來越發(fā)現(xiàn)，我是在教大家美工，因?yàn)?a href='/map/r/' style='color:#000;font-size:inherit;'>R語言畫圖部分實(shí)在是比較簡單，基本上就是英文意思懂就可以寫了，下面講一講怎么做條形圖吧，先上圖。


PS：跟EXCEL比強(qiáng)在數(shù)據(jù)處理，跟其他數(shù)據(jù)庫比強(qiáng)在圖形展示。僅做圖表方面，可能殺雞用牛刀，但所有東西都是自動化的不是很好，一張報表好做，難得是做數(shù)以百計(jì)的報表，幾十年如一日的做報表，這時候R語言可以將這些機(jī)械的動作都程序化，一天節(jié)省一小時做表，那么日積月累時間就很可觀了。

丨第三回：極簡代碼畫出股票走勢圖。

這個例子讓我認(rèn)識到r語言package的強(qiáng)大，quantmod包可以快速獲得股票的行情數(shù)據(jù)，包括全球各大股市的，代碼簡單的讓人發(fā)指了。




下面是部分綜合指數(shù)的代碼，供參考。



 文 | 蔡紅兵

來源 | 經(jīng)管之家

如果你對R語言數(shù)據(jù)分析和數(shù)據(jù)挖掘有興趣，歡迎移步至微信小店直接報名課程：

 

   （CDA微店二維碼）               （CDA數(shù)據(jù)分析師服務(wù)號）


數(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(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1：配置參數(shù) // 參數(shù)2：回調(diào)，回調(diào)的第一個參數(shù)驗(yàn)證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時表示是新驗(yàn)證碼的宕機(jī) 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){ //倒計(jì)時完成 $(".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); }