a <- c(1,2,3,5,7,20)
b <- c(3,8,10)
match(a,b)
＃match (A,B) 其中把A里的元素逐个匹配B中所有元素，如能匹配上，就返回匹配上的元素在B向量的位置；所以返回值长度和A相等
match(a,b)
＃[1] NA NA  1 NA NA NA　
#把1和B向量进行匹配，没有-NA；
#把2和B向量匹配，没有-NA；
#把3和B向量进行匹配，是B向量的第一个元素，所以返回值是1，其余同样比较
#match(a,b)的意思是a里的每个元素在b的第几个位置上。
#是b的下标，可以给b取子集，也可以给与b对应的其他向量取子集。

match(b,a)
##[1]  3 NA NA
##返回的向量长度和match函数的第一个参数向量的长度一致

# 2.一些搞文件的函数----
dir() # 列出工作目录下的文件
dir('../  ') ##可以通过相对路径打开文件
dir(recursive = T) ##递归的显示文件
dir.create("abc") ##新建一个文件夹
dir(pattern = ".R$") #列出工作目录下以.R结尾的文件

file.create("douhua.txt") #用代码创建文件
file.exists("douhua.txt") #某文件在工作目录下是否存在
file.remove("douhua.txt") #用代码删除文件
file.exists("douhua.txt") #删掉了就不存在啦

## 可以批量的新建和删除
f = paste0("douhua",1:100,".txt")
file.create(f)
file.remove(f)