R之特殊txt文件的读取

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位老师好，我有一个corps.txt文件，按正常的读取只有一列产生，目标列变量都连在一起了，请问这类数据应该怎么正确读入呢？谢谢大家了
我的代码是：

1. mydf<-read.table('corps.txt',skip=6,header=T, sep="\t")

复制代码

红色区域为目标数据。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

readr::read_table('corps.txt',skip = 6)

zhou1_20 发表于 2020-3-3 10:51
readr::read_table('corps.txt',skip = 6)

恩恩，好使！谢谢老师，又学习了一下readr包，没想到那么强大

1. #参考：library(stringr)
   
2. mydf<-readLines('corps.txt')
   
3. mydf <- mydf[-c(1:7)]
   
4. mydf <- str_replace_all(mydf,"\\. +","_")
   
5. data <- str_split(mydf[2:7]," +",simplify = T)
   
6. data=as.data.frame(data,stringsAsFactors = F)
   
7. name <- str_split(mydf[1]," +",simplify = T)
   
8. names(data) <- name
   
9. data
   
10. ##                         Mean    SD  2.5%    5%   25%    50%    75%    95%
    
11. ## 1           Epsilon.1 11.122 4.745 3.065 3.674 7.206 10.974 15.052 18.759
    
12. ## 2           Epsilon.2  9.891 4.869 2.508 3.044 5.871  9.173 13.640 18.603
    
13. ## 3 p.global.C_wrightii  0.033 0.024 0.001 0.002 0.013  0.028  0.048  0.078
    
14. ## 4        p.global.MPB  0.088 0.055 0.006 0.012 0.046  0.082  0.121  0.183
    
15. ## 5        p.global.POM  0.078 0.056 0.003 0.006 0.032  0.069  0.115  0.184
    
16. ## 6        p.global.SOM  0.101 0.073 0.004 0.008 0.040  0.090  0.146  0.239
    
17. ##    97.5%
    
18. ## 1 19.400
    
19. ## 2 19.302
    
20. ## 3  0.087
    
21. ## 4  0.212
    
22. ## 5  0.207
    
23. ## 6  0.268

复制代码

caozhaowen 发表于 2020-3-3 13:13

非常感谢