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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言做數(shù)據(jù)分析(6)—數(shù)據(jù)分析師?
R語言做數(shù)據(jù)分析(6)—數(shù)據(jù)分析師?
2014-11-13
收藏


R語言做數(shù)據(jù)分析(6)—數(shù)據(jù)分析師 



通過list函數(shù)來創(chuàng)建列表,例如，創(chuàng)建一個包含三個列的列表，請注意與R語言中的列表顯示有什么不一樣：
1、創(chuàng)建列表demo_1
2、創(chuàng)建數(shù)據(jù)框demo_1_1


·列表對每個列顯示都會單獨以一行的形式存在；


·數(shù)據(jù)框則是以表（或者是矩陣）的形式顯示；所以根據(jù)數(shù)據(jù)輸出的格式可以判斷是列表還是數(shù)據(jù)框； 創(chuàng)建一個示例列 Demo_2<-list(name=c('lucy','alice','lei'),
                   heigh=c(178,156,188),
                   sex=c('F','F','M'),
                   score=c(200,210,198))
#包括一個缺少值的列表
Demo_3<-list.frame(name=c('lucy','alice','lei'),
                   heigh=c(178,156,188),
                   sex=c('F','F',NA),
                   score=c(200,210,198)) 列表特點 


    
	
  1. 
		列表包含所有列表的特點。列表與列表的最大區(qū)別在于，列表的各列的長度是可以不一致的。 
	
    2. 


      例如：Demo_3<-list(name=c('lucy','alice','lei'),                    

                                      heigh=c(178,156),                   

                                      sex= 'F')

列表基本操作      

1.查看列表信息

   #查看類型

    class(Demo_1)

   #查看某列的類型

    class(Demo_1$sex)

   #查看列表長度 即就是列的個數(shù)；

    length(Demo_1)

   #列表各項名稱

   names(Demo_1)      

2.取列表中的某列或者某列元素

   #取列表的第二列

    Demo_2[2]

    Demo_2$heigh

#取列表的某二列的元素  




	  Demo_2[[2]]




	  Demo_2[[2]]與Demo_2[2]二者輸出的區(qū)別在于，前者是輸出向量，后者輸出是列表；




	





	  我們詳細來看下面的內(nèi)容： 




	http://www.3lll3.cn/        




	  3.取向量中的某個元素 


     Demo_2[[N]][M] ?。篘列中的第M個元素；        

    

  4.判斷列表各行是否完整    

   complete.cases(Demo_2)

   #選擇非缺失值的數(shù)據(jù)

   Demo_3[complete.cases(Demo_3)          


	  5.增加列 


      #給Demo_1增加一列

      Demo_1$score2<-c(12,13,23)

      Demo_1<-cbind(Demo_1,score2=c(12,13,23)    


	    6.其它操作 


     #刪除一個值      

    Demo_1$score2<-NULL    

     #把列表轉(zhuǎn)為向量：  

     unlist()    

    #移除列表中的元素：  

     list[[N]] <- NULL  


	



                  
              

                            
                                          

                  
                  
數(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)用相應(yīng)的接口
                initGeetest({
                    // 以下 4 個配置參數(shù)為必須，不能缺少
                    gt: data.gt,
                    challenge: data.challenge,
                    offline: !data.success, // 表示用戶后臺檢測極驗服務(wù)器是否宕機
                    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);
    }