首页 > 代码库 > R语言—日常随笔

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

 

R语言—日常随笔