R語(yǔ)言剔除離群值

#時(shí)間:20220901
#目的:將數(shù)據(jù)中的離群值替換為NA(離群值定義為x>q75%+3*(q75%-q25%)or x<q25%-3(q75%-q25%))
#查看路徑
getwd()
#設(shè)置工作路徑
setwd("D:/desk/speed/data_1/behavior/R")
#導(dǎo)入數(shù)據(jù)
library(xlsx)
data0=read.xlsx("lapse_speed.xlsx",1)
print(data0)
#描述性統(tǒng)計(jì)
#library(psych)
#myvars= c("norate","corate","meanrt","fastrt")
#describe(data0[myvars])
#去除異常值
    #箱線圖檢測(cè)異常值/可視化
boxplot(data0$lapse1 ~ speed,data=data0,range = 3,col=c("red","blue"),
    main="lapse1_speed",
    xlab="speed number",
    ylab="lapse1")#無(wú)異常值
boxplot(data0$lapse2 ~ speed,data=data0,range = 3,col=c("red","blue"),
        main="lapse2_speed",
        xlab="speed number",
        ylab="lapse2")#無(wú)異常值
    #確定盒須最大值茅郎,最小值厘肮,箱線圖的數(shù)值
#boxplot.stats(data0$meanrt)
#定義函數(shù)
remove_outliers <- function(x, na.rm = TRUE, ...) {
  qnt <- quantile(x, probs = c(.25, .75), na.rm = na.rm, ...)
  val <- 3 * IQR(x, na.rm = na.rm)
  y <- x
  y[x < (qnt[1] - val)] <- NA
  y[x > (qnt[2] + val)] <- NA
  y
}
#去除outlier
library(dplyr)
data1 <- data0 %>% 
  group_by(speed) %>% 
  mutate(norateout = remove_outliers(norate),corateout = remove_outliers(corate)) %>% 
  ungroup()   
#查看去除outliers后的數(shù)據(jù)情況 
fix(data1)
#箱線圖核查新數(shù)據(jù)是否仍有離群值
boxplot(data1$norateout ~ speed,data=data1,range = 3,col=c("red","blue"))#wu異常值
boxplot(data1$corateout ~ speed,data=data1,range = 3,col=c("red","blue"))#wu異常值
#剔除norate 和 corate
myvars=names(data1) %in% c("norate","corate")
datarw=data1[!myvars]
#導(dǎo)出數(shù)據(jù)
library(xlsx)
write.xlsx(datarw, "datarwout.xlsx")
write.table(datarw, "datarwout.txt", sep=",")
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末合武,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子败富,更是在濱河造成了極大的恐慌,老刑警劉巖,帶你破解...
    沈念sama閱讀 212,332評(píng)論 6 493
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件舆绎,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡们颜,警方通過(guò)查閱死者的電腦和手機(jī)吕朵,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,508評(píng)論 3 385
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)窥突,“玉大人努溃,你說(shuō)我怎么就攤上這事∽栉剩” “怎么了梧税?”我有些...
    開(kāi)封第一講書(shū)人閱讀 157,812評(píng)論 0 348
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我第队,道長(zhǎng)哮塞,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 56,607評(píng)論 1 284
  • 正文 為了忘掉前任凳谦,我火速辦了婚禮忆畅,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘尸执。我一直安慰自己邻眷,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,728評(píng)論 6 386
  • 文/花漫 我一把揭開(kāi)白布剔交。 她就那樣靜靜地躺著肆饶,像睡著了一般。 火紅的嫁衣襯著肌膚如雪岖常。 梳的紋絲不亂的頭發(fā)上驯镊,一...
    開(kāi)封第一講書(shū)人閱讀 49,919評(píng)論 1 290
  • 那天,我揣著相機(jī)與錄音竭鞍,去河邊找鬼板惑。 笑死,一個(gè)胖子當(dāng)著我的面吹牛偎快,可吹牛的內(nèi)容都是我干的冯乘。 我是一名探鬼主播,決...
    沈念sama閱讀 39,071評(píng)論 3 410
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼晒夹,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼裆馒!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起丐怯,我...
    開(kāi)封第一講書(shū)人閱讀 37,802評(píng)論 0 268
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤喷好,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后读跷,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體梗搅,經(jīng)...
    沈念sama閱讀 44,256評(píng)論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,576評(píng)論 2 327
  • 正文 我和宋清朗相戀三年效览,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了无切。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,712評(píng)論 1 341
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡丐枉,死狀恐怖哆键,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情矛洞,我是刑警寧澤洼哎,帶...
    沈念sama閱讀 34,389評(píng)論 4 332
  • 正文 年R本政府宣布,位于F島的核電站沼本,受9級(jí)特大地震影響噩峦,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜抽兆,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 40,032評(píng)論 3 316
  • 文/蒙蒙 一识补、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧辫红,春花似錦凭涂、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 30,798評(píng)論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至名惩,卻和暖如春澎胡,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背娩鹉。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,026評(píng)論 1 266
  • 我被黑心中介騙來(lái)泰國(guó)打工攻谁, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人弯予。 一個(gè)月前我還...
    沈念sama閱讀 46,473評(píng)論 2 360
  • 正文 我出身青樓戚宦,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親锈嫩。 傳聞我的和親對(duì)象是個(gè)殘疾皇子受楼,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,606評(píng)論 2 350

推薦閱讀更多精彩內(nèi)容