重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
最近做的几个项目都是用R语言来完成的。正如老师所说,学起来很快,忘起来也很快。整理一下放在这里,方便以后查阅。
安装所需的包:
install.packages("xxxx")
加载包:
library("xxxx")
显示/改变工作目录
getwd()/setwd("d:/temp")
文件操作:
1.读取csv文件
var=read.csv("demo.csv",header=FALSE)——header表示是否有表头,默认为TRUE
2.读取数据文件
data=read.table("demo.data")
3.读取文本文件
var=readLines("demo.txt",encoding="UTF-8")
4.输出csv文件
write.csv(var,"var.csv")
5.输出普通文本文件
write(var,"var.txt")
6.把整个运行空间保存到文件
save.p_w_picpath("demo.RData")
7.读取文件到运行空间
load("demo.RData")
清除运行空间全部变量:
rm(list=ls())
字符串操作:
1.获取字符串长度
nchar("asdf")——与length是不同的
2.连接字符串
paste("abc","def")——默认用空格间隔,若取消间隔,可用参数sep=""
3.分割字符串
str1=strsplit("abc def"," ")——分割结果是list类型,如需转成向量使用str1=unlist(strsplit("abc def"," "))
4.字符串截取
substr("hello",2,3)——参数表示起止位置
5.字符串替代
gsub("a","c","asdfasdf")——把asdfasdf替换成csdfcsdf
6.字符串匹配
grep("oo",c("hello","world","good"))——搜索给定字符串中的特定表达式 ,返回其位置索引
集合(向量)操作:
1.求交集
intersect(c("a","b","c"),c("a","c","d"))
2.求并集
union(c("a","b","c"),c("a","c","d"))
3.求差集
setdiff(c("a","b","c"),c("a","c","d"))
4.向量去重
unique(c("a","b","a","c"))
5.向量排序
sort(c("a","b","a","c"))/rev(sort(c("a","b","a","c")))
目前累计服务客户1000多家,积累了丰富的产品开发及服务经验。以网站设计水平和技术实力,树立企业形象,为客户提供成都网站设计、成都网站制作、网站策划、网页设计、网络营销、VI设计、网站改版、漏洞修补等服务。成都创新互联公司始终以务实、诚信为根本,不断创新和提高建站品质,通过对领先技术的掌握、对创意设计的研究、对客户形象的视觉传递、对应用系统的结合,为客户提供更好的一站式互联网解决方案,携手广大客户,共同发展进步。