library(dplyr)
options(width=105)
chicago<-readRDS("chicago,rds")
dim(chicago)
str(chicago)
names(chicago)
head(select(chicago), city:dptp)） ?#把city到dptp之間的變量都選出來(lái)
head(select(chicago), -(city:dptp))）? #把除city到dptp之間的變量外的都選出來(lái)
＃如果不用dplyr俊柔，代碼是
# i<-match("city", names(chicago))
# j<-match("dptp", names(chicago))
# head(chicago[, -(i:j)])
# FILTER
chic.f <-filter(chicago, pm25tmean2>30)
chic.f <-filter(chicago, pm25tmean2>30 & tmpd>80)
head(chic.f)
# Arrange
chicago <- arrange(chicago, date) ? # 從小到大排列
chicago <- arrange(chicago, desc(date))? ? # 從大到小排列
head(chicago); tail(chicago)
# Rename
chicago <- rename(chicago, pm25=pm25mean2, dewpoint=dptp)
# MUTATE
chicago<-mutate(chicago, pm25detrend=pm25-mean(pm25, na.rm=TRUE))
# 創(chuàng)造新變量
＃goup_by
＃此組代碼目的在于求出在天氣冷熱的不同條件下液南，空氣污染的均值洼专、最高值會(huì)否有差異
chicago<-mutate(chicago, tempat=factor(1*(tmpd>80),labels=c("cold","hot")))
hotcold<-group_by(chicago, tempcat)
summarize(hotcold, pm25=mean(pm25),o3=max(o3tmean2),no2=median(no2tmean2))
summarize(hotcold, pm25=mean(pm25, na.rm=TRUE),o3=max(o3tmean2),no2=median(no2tmean2))
# 忽略pm25中的missing value
# Summarize?
＃此組代碼目的在于求出不同年份的數(shù)據(jù)有無(wú)差異
chicago<-mutate(chicago, year=as.POSIXlt(date)$year + 1900)
# 此方法可以簡(jiǎn)單地得到年份數(shù)據(jù)
years<-group_by(chicago, year)
summarize(years, pm25=mean(pm25, na.rm=TRUE),o3=max(o3tmean2),no2=median(no2tmean2))
# Pipeline Operation
chicago %>% mutate(month=as.POSIXlt(date)$mon + 1) %>% group_by(month) %>% summarize(pm25=mean(pm25, na.rm=TRUE),o3=max(o3tmean2),no2=median(no2tmean2))
數(shù)據(jù)預(yù)處理：dplyr package sample
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門暑认，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)督暂，“玉大人，你說(shuō)我怎么就攤上這事穷吮÷呶蹋” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵捡鱼，是天一觀的道長(zhǎng)八回。 經(jīng)常有香客問(wèn)我，道長(zhǎng)，這世上最難降的妖魔是什么缠诅？ 我笑而不...
- 正文 為了忘掉前任溶浴，我火速辦了婚禮，結(jié)果婚禮上管引，老公的妹妹穿的比我還像新娘士败。我一直安慰自己，他們只是感情好褥伴，可當(dāng)我...
- 文/花漫 我一把揭開白布谅将。 她就那樣靜靜地躺著，像睡著了一般重慢。 火紅的嫁衣襯著肌膚如雪饥臂。 梳的紋絲不亂的頭發(fā)上，一...
- 那天似踱，我揣著相機(jī)與錄音隅熙，去河邊找鬼。 笑死核芽，一個(gè)胖子當(dāng)著我的面吹牛囚戚，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播轧简，決...
- 文/蒼蘭香墨 我猛地睜開眼驰坊，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來(lái)了吉懊？” 一聲冷哼從身側(cè)響起，我...
- 序言：老撾萬(wàn)榮一對(duì)情侶失蹤假勿，失蹤者是張志新（化名）和其女友劉穎借嗽，沒(méi)想到半個(gè)月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體转培，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡恶导，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了浸须。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片惨寿。...
- 正文 年R本政府宣布蕉拢，位于F島的核電站，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏晕换。R本人自食惡果不足惜午乓，卻給世界環(huán)境...
- 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望闸准。 院中可真熱鬧益愈，春花似錦、人聲如沸夷家。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)瘾英。三九已至枣接，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間缺谴，已是汗流浹背但惶。 一陣腳步聲響...
- 正文 我出身青樓，卻偏偏與公主長(zhǎng)得像阳啥，于是被迫代替她去往敵國(guó)和親添谊。 傳聞我的和親對(duì)象是個(gè)殘疾皇子，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- 背景 一年多以前我在知乎上答了有關(guān)LeetCode的問(wèn)題, 分享了一些自己做題目的經(jīng)驗(yàn)察迟。 張土汪：刷leetcod...
- 一 “平行解體”這個(gè)概念，是在羅輯思維的《共同體的意義》這期節(jié)目中提出的一個(gè)概念误证，至少我通過(guò)Google并沒(méi)有搜索...
- 今天的愛心早餐： 花生湯圓继薛、煎餅、水果沙拉愈捅、板栗 最近小汪很想念湯圓了遏考，臨時(shí)在樓下買了袋裝的花生湯圓，早上煮了蓝谨，吃...
- 愛情，或擁有過(guò)或期待過(guò)稽亏，都在青春の淺淺微甜里肆意的滋生壶冒；那些我們無(wú)法掌控の情緒甚至是愛意，并不會(huì)因?yàn)榻Y(jié)果而失去意義...
