登录
首页精彩阅读R语言—日常随笔
R语言—日常随笔
2017-07-07
收藏

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判断语句,虽然大部分情况都是和其他编程语言一样使用,但在返回内容包含多个值时,需要注意返回结果是否正确。

数据分析咨询请扫描二维码

客服在线
立即咨询