R语言—日常随笔

1.字符处理函数:paste()
　需求：将字符向量中的字符串，用逗号隔开，合并为一句话。
> ##字符向量
> ls_1
[1] "天津" "上海" "安徽" "福建" "四川" "重庆" "陕西" "青海" "新疆"
> ##用逗号隔开字符串，并合并为一句话
> paste(ls_1, sep = "",collapse=",")
[1] "天津,上海,安徽,福建,四川,重庆,陕西,青海,新疆"
2.在数据整合过程中，数字转换为带百分号（%）的形式，使用的方法。
> paste(20.21,"%",sep="")
[1] "20.21%"
可以通过上面的方式实现将数字带上%号，但数字也就变成了字符串。
3.如果表格结构为三列，想根据其中两列对第三列数字进行汇总。可采用下面方法。
> ##生成案例数据
> 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)
> ##查看数据结构
> man
names sex score
1 a 男 1.56
2 b 女 1.78
3 b 女 1.82
4 c 男 1.32
5 c 男 1.21
> ##根据姓名与性别汇总成绩
> 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的区别在于sub只替换第一次发现的字符，而gsub是不计匹配到的次数，发现符合匹配都会被替换。

5.单列去重（unique）
> ##创造案例数据
> x <- c(3:5, 11:8, 8 + 0:5)
> ##查看数据样式
> 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时执行，FALSE时执行）
　学过编程语言的人不难理解，但在R中容易被误导。今天我遇到了一个情况。需求是判断一个字符向量的长度，如果大于0，返回向量所有内容，否则输出"没有"两个字。结果却只输出了1个元素。
代码如下：
> ##可以看出向量有值
> ls_1
[1] "天津" "上海" "安徽" "福建" "四川" "重庆" "陕西" "青海" "新疆"
> ##向量内有9个元素
> length(ls_1)
[1] 9
> ##进行判断
> ifelse(length(ls_1),ls_1,"没有")
[1] "天津"
> ##结果只显示了第一个元素，后来得知，判断条件有几个元素，就会返回ls_1向量的几个元素
> ##如果我想每次都全部现实,可以这样写
> ifelse(is.na(ls_1),"没有",ls_1)
[1] "天津" "上海" "安徽" "福建" "四川" "重庆" "陕西" "青海" "新疆"
总结：R语言的if判断语句，虽然大部分情况都是和其他编程语言一样使用，但在返回内容包含多个值时，需要注意返回结果是否正确。