<em>Mac</em>Book项目 2009年学校开始实施<em>Mac</em>Book项目,所有师生配备一本<em>Mac</em>Book,并同步更新了校园无线网络。学校每周进行电脑技术更新,每月发送技术支持资料,极大改变了教学及学习方式。因此2011
2021-06-01 09:32:01
我們知道,R語言學習,80%的時間都是在清洗資料,而選擇合適的資料進行分析和處理也至關重要,如何選擇合適的列進行分析,你知道幾種方法?
如何優雅高效的選擇合適的列,讓我們一起來看一下吧。
資料來源是我編寫的R包learnasreml
中的fm
資料集。
r$> library(learnasreml) r$> data(fm) r$> head(fm)
我們的目的:
提取fm的TreeID,Rep,dj,dm,h3,並重新命名為:ID, F1, y1 , y2, y3
這一種,當然是簡單粗暴的方法,想要哪一列,就把相關的列號提取出來,形成一個向量,進行操作即可。比如
r$> d1 = fm[,c(1,3,6,7,11)] r$> head(d1) TreeID Rep dj dm h3 1 80001 1 0.334 0.405 239 2 80002 1 0.348 0.393 242 3 80004 1 0.354 0.429 180 4 80005 1 0.335 0.408 301 5 80008 1 0.322 0.372 271 6 80026 1 0.359 0.450 258 r$> names(d1) = c("ID","F1","y1","y2","y3") r$> head(d1)
結果:
缺點:
這種方法,需要找到性狀所在的列號,然後還要重新命名,比較麻煩。
而且,後面如果想要根據列的特徵進行提取時(比如以h開頭的列,比如屬性為數位或者因子的列等等),就不能實現了。
這就要用到tidyverse的函數了,select
,rename
,都是一等一的良將。
程式碼:
a2 = fm %>% rename(ID=TreeID, F1 = Rep, y1 = dj, y2 = dm, y3 = h3)
這裡,rename
只是單獨的修改名稱,並沒有提取出來。
還要使用select
進一步的提取:
如果使用select
函數,一行程式碼就可以搞定:
a1 = fm %>% select(ID=TreeID, F1 = Rep, y1 = dj, y2 = dm, y3 = h3)
常見的坑:
注意,MASS包中也有select函數,而且優先順序更高,如果你載入了MASS包,select就不能使用了。
哪怕你再次載入tidyverse包,也不行:
載入dplyr包,也不行:
MASS就是這麼豪橫。
像這種情況,解決辦法有兩種:
即使用select時,要用dplyr::select
a3 = a2 %>% dplyr::select(ID,F1,y1,y2,y3)
這樣也比較麻煩。
推薦的方法:
r$> select = dplyr::select r$> a3 = a2 %>% select(ID,F1,y1,y2,y3)
推薦在載入包時,將下面程式碼放在開頭,就可以肆無忌憚的應用select了,畢竟,環境變數的優先順序是第一位的。
library(tidyverse) select = dplyr::select
這裡,用starts_with
,會匹配開頭為h的列。
其它還有contains,匹配包含的字元,還有end_with,匹配結尾的字元。
應有盡有,無所不有。
re1 = fm %>% select(starts_with("h"))
匹配數位的列:
re2 = fm %>% select_if(is.numeric)
匹配為因子的列:
re3 = fm %>% select_if(is.factor)
到此這篇關於R語言列篩選的方法select的文章就介紹到這了,更多相關R語言列篩選select內容請搜尋it145.com以前的文章或繼續瀏覽下面的相關文章希望大家以後多多支援it145.com!
相關文章
<em>Mac</em>Book项目 2009年学校开始实施<em>Mac</em>Book项目,所有师生配备一本<em>Mac</em>Book,并同步更新了校园无线网络。学校每周进行电脑技术更新,每月发送技术支持资料,极大改变了教学及学习方式。因此2011
2021-06-01 09:32:01
综合看Anker超能充系列的性价比很高,并且与不仅和iPhone12/苹果<em>Mac</em>Book很配,而且适合多设备充电需求的日常使用或差旅场景,不管是安卓还是Switch同样也能用得上它,希望这次分享能给准备购入充电器的小伙伴们有所
2021-06-01 09:31:42
除了L4WUDU与吴亦凡已经多次共事,成为了明面上的厂牌成员,吴亦凡还曾带领20XXCLUB全队参加2020年的一场音乐节,这也是20XXCLUB首次全员合照,王嗣尧Turbo、陈彦希Regi、<em>Mac</em> Ova Seas、林渝植等人全部出场。然而让
2021-06-01 09:31:34
目前应用IPFS的机构:1 谷歌<em>浏览器</em>支持IPFS分布式协议 2 万维网 (历史档案博物馆)数据库 3 火狐<em>浏览器</em>支持 IPFS分布式协议 4 EOS 等数字货币数据存储 5 美国国会图书馆,历史资料永久保存在 IPFS 6 加
2021-06-01 09:31:24
开拓者的车机是兼容苹果和<em>安卓</em>,虽然我不怎么用,但确实兼顾了我家人的很多需求:副驾的门板还配有解锁开关,有的时候老婆开车,下车的时候偶尔会忘记解锁,我在副驾驶可以自己开门:第二排设计很好,不仅配置了一个很大的
2021-06-01 09:30:48
不仅是<em>安卓</em>手机,苹果手机的降价力度也是前所未有了,iPhone12也“跳水价”了,发布价是6799元,如今已经跌至5308元,降价幅度超过1400元,最新定价确认了。iPhone12是苹果首款5G手机,同时也是全球首款5nm芯片的智能机,它
2021-06-01 09:30:45