R語言—日常隨筆

1.字符處理函數(shù):paste()
　需求：將字符向量中的字符串，用逗號隔開，合并為一句話。
> ##字符向量
> ls_1
[1] "天津" "上海" "安徽" "福建" "四川" "重慶" "陜西" "青海" "新疆"
> ##用逗號隔開字符串，并合并為一句話
> paste(ls_1, sep = "",collapse=",")
[1] "天津,上海,安徽,福建,四川,重慶,陜西,青海,新疆"
2.在數(shù)據(jù)整合過程中，數(shù)字轉(zhuǎn)換為帶百分號（%）的形式，使用的方法。
> paste(20.21,"%",sep="")
[1] "20.21%"
可以通過上面的方式實現(xiàn)將數(shù)字帶上%號，但數(shù)字也就變成了字符串。
3.如果表格結(jié)構(gòu)為三列，想根據(jù)其中兩列對第三列數(shù)字進行匯總?？刹捎孟旅娣椒ā?br /> > ##生成案例數(shù)據(jù)
> names<-c("a","b","b","c","c")
> sex<-c("男","女","女","男","男")
> score<-c(1.56,1.78,1.82,1.32,1.21)
> man<-data.frame(names,sex,score)
> ##查看數(shù)據(jù)結(jié)構(gòu)
> man
names sex score
1 a 男 1.56
2 b 女 1.78
3 b 女 1.82
4 c 男 1.32
5 c 男 1.21
> ##根據(jù)姓名與性別匯總成績
> aggregate(man$score~man$names+man$sex,man,mean)
man$names man$sex man$score
1 a 男 1.560
2 c 男 1.265
3 b 女 1.800
4.字符串去空格
##將sd中的空格去除
> sd<-("as db ")
> gsub(" ","",sd)
[1] "asdb"
注：sub與gsub的區(qū)別在于sub只替換第一次發(fā)現(xiàn)的字符，而gsub是不計匹配到的次數(shù)，發(fā)現(xiàn)符合匹配都會被替換。

5.單列去重（unique）
> ##創(chuàng)造案例數(shù)據(jù)
> x <- c(3:5, 11:8, 8 + 0:5)
> ##查看數(shù)據(jù)樣式
> x
 [1]  3  4  5 11 10  9  8  8  9 10 11 12 13
> ##查看去重后效果
> unique(x)
[1]  3  4  5 11 10  9  8 12 13

2.ifelse語句返回值的特殊性
　　正常的ifelse語句格式為ifelse（判斷條件，TRUE時執(zhí)行，F(xiàn)ALSE時執(zhí)行）
　學(xué)過編程語言的人不難理解，但在R中容易被誤導(dǎo)。今天我遇到了一個情況。需求是判斷一個字符向量的長度，如果大于0，返回向量所有內(nèi)容，否則輸出"沒有"兩個字。結(jié)果卻只輸出了1個元素。
代碼如下：
> ##可以看出向量有值
> ls_1
[1] "天津" "上海" "安徽" "福建" "四川" "重慶" "陜西" "青海" "新疆"
> ##向量內(nèi)有9個元素
> length(ls_1)
[1] 9
> ##進行判斷
> ifelse(length(ls_1),ls_1,"沒有")
[1] "天津"
> ##結(jié)果只顯示了第一個元素，后來得知，判斷條件有幾個元素，就會返回ls_1向量的幾個元素
> ##如果我想每次都全部現(xiàn)實,可以這樣寫
> ifelse(is.na(ls_1),"沒有",ls_1)
[1] "天津" "上海" "安徽" "福建" "四川" "重慶" "陜西" "青海" "新疆"
總結(jié)：R語言的if判斷語句，雖然大部分情況都是和其他編程語言一樣使用，但在返回內(nèi)容包含多個值時，需要注意返回結(jié)果是否正確。