本帖最后由 editor 于 2013-4-10 10:56 编辑
可以通过list.files()函数实现。- ## 列举所有文件
- x = list.files('c://Program Files//R//R-2.8.1', recursive = TRUE)
- ## 替换掉扩展名之前的字符
- y = gsub('.*\\.', '', grep('\\.', x, value = TRUE))
- ## 然后统计扩展名的频数:
- sort(table(y))
复制代码 此过程根据需求可以自行更改,重要的是函数list.files
|