Hi Arun,
Thank you so much for your answer. It surely does help. Having to know
different approaches for the same problem has given me more insights on R
language. I appreciate your time and effort.
Best,
Janesh Devkota
On Thu, Apr 11, 2013 at 10:00 PM, arun <smartpink...@yahoo.com> wrote:
> Hi,
> May be this helps:
> lines1<- readLines("WAT_DEP.DAT.part")
> indx<- which(grepl("[*]",lines1))
> indx2<-indx[seq(from=indx[2],length(indx),by=2)]+1
> lines2<-str_trim(lines1[indx2],side="left")
> dat1<-read.table(text=lines2,sep="",header=FALSE)
>
> library(stringr)
> lst1<- lapply(split(indx,((seq_along(indx)-1)%/%2)+1), function(x)
> {x1<-seq(max(x)+2,max(x)+2+49,by=1); x2<-
> str_trim(lines1[x1][!is.na(lines1[x1])],side="left");
> x3<-as.vector(as.matrix(read.table(text=x2[x2!=""],header=FALSE,sep="")));
> x4<- if(length(x3)< 500) c(x3,rep(NA,500-length(x3))) else x3;x4 })
> dat2<- as.data.frame(do.call(cbind,lst1))
> colnames(dat2)<-paste("t",colnames(dat2),"_",dat1[,2],sep="")
> dim(dat2)
> #[1] 500 622
> dat2[1:3,1:3]
> # t1_0.00208 t2_0.00417 t3_0.00625
> #1 3.224 4.124 4.502
> #2 3.205 4.118 4.500
> #3 3.189 4.114 4.498
>
> A.K.
>
> ----- Original Message -----
> From: Janesh Devkota <janesh.devk...@gmail.com>
> To: r-help@r-project.org
> Cc:
> Sent: Thursday, April 11, 2013 5:55 PM
> Subject: [R] Read the data from a text file and reshape the data
>
> I have a data set for different time intervals. The data has three comment
> lines before data for each time interval. For each time interval there are
> 500 data points. I want to change the dataset such that I have the
> following
> format:
>
>
>
> t1 t2 t3 ................
>
> 0.00208 0.00417 0.00625 .................
>
> a1 a2 a3 ...................
>
> b1 b2 b3 ...................
>
> c1 c2 c3 .................
>
> ...............................
>
> ................................
>
>
>
> The link to the file is as follows:
> https://www.dropbox.com/s/hc8n3qcai1mlxca/WAT_DEP.DAT
>
>
>
> As you will see on the file, time for each interval is the second data of
> the third line before the data starts. For the first time, t= 0.00208. I
> need to change the data in several rows into one column. At last I need to
> create a dataframe with the format shown above. In the sample above, a1,
> b1,
> c1 are the data for time t1, and so on.
>
>
>
> The sample data is as follows:
>
>
>
>
>
> ** N:SNAPSHOT TIME DELT[S]
>
> ** WATER DEPTH [M]: (HP(L),L=2,LA)
>
> 1800 0.00208 0.10000
>
> 3.224 3.221 3.220 3.217 3.216 3.214 3.212
> 3.210 3.209 3.207
>
> 3.205 3.203 3.202 3.200 3.199 3.197 3.196
> 3.193 3.192 3.190
>
> 3.189 3.187 3.186 3.184 3.184 3.182 3.181
> 3.179 3.178 3.176
>
> 3.175 3.174 3.173 3.171 3.170 3.169 3.168
> 3.167 3.166 3.164
>
> 3.164 3.162 3.162 3.160 3.160 3.158 3.158
> 3.156 3.156 3.155
>
> 3.154 3.153 3.152 3.151 3.150 3.150 3.149
> 3.149 3.147 3.147
>
> 3.146 3.146 3.145 3.145 3.144 3.144 3.143
> 3.143 3.142 3.142
>
> 3.141 3.142 3.141 3.141 3.140 3.141 3.140
> 3.140 3.139 3.140
>
> 3.139 3.140 3.139 3.140 3.139 3.140 3.139
> 3.140 3.139 3.140
>
> 3.139 3.140 3.140 3.140 3.140 3.141 3.141
> 3.142 3.141 3.142
>
> 3.142 3.142 3.143 3.143 3.144 3.144 3.145
> 3.145 3.146 3.146
>
> 3.147 3.148 3.149 3.149 3.150 3.150 3.152
> 3.152 3.153 3.154
>
> 3.155 3.156 3.157 3.158 3.159 3.160 3.161
> 3.162 3.163 3.164
>
> 3.165 3.166 3.168 3.169 3.170 3.171 3.173
> 3.174 3.176 3.176
>
> 3.178 3.179 3.181 3.182 3.184 3.185 3.187
> 3.188 3.190 3.191
>
> 3.194 3.195 3.196 3.198 3.199 3.202 3.203
> 3.205 3.207 3.209
>
> 3.210 3.213 3.214 3.217 3.218 3.221 3.222
> 3.225 3.226 3.229
>
> 3.231 3.233 3.235 3.238 3.239 3.242 3.244
> 3.247 3.248 3.251
>
> 3.253 3.256 3.258 3.261 3.263 3.266 3.268
> 3.271 3.273 3.276
>
> 3.278 3.281 3.283 3.286 3.289 3.292 3.294
> 3.297 3.299 3.303
>
> 3.305 3.307 3.311 3.313 3.317 3.319 3.322
> 3.325 3.328 3.331
>
> 3.334 3.337 3.340 3.343 3.347 3.349 3.353
> 3.356 3.359 3.362
>
> 3.366 3.369 3.372 3.375 3.379 3.382 3.386
> 3.388 3.392 3.395
>
> 3.399 3.402 3.406 3.409 3.413 3.416 3.420
> 3.423 3.427 3.430
>
> 3.435 3.438 3.442 3.445 3.449 3.453 3.457
> 3.460 3.464 3.468
>
> 3.472 3.475 3.479 3.483 3.486 3.491 3.494
> 3.498 3.502 3.506
>
> 3.510 3.514 3.518 3.522 3.526 3.531 3.534
> 3.539 3.542 3.547
>
> 3.551 3.555 3.559 3.564 3.567 3.572 3.576
> 3.581 3.584 3.589
>
> 3.593 3.598 3.602 3.606 3.610 3.615 3.619
> 3.624 3.628 3.633
>
> 3.637 3.642 3.646 3.651 3.655 3.660 3.664
> 3.669 3.673 3.678
>
> 3.682 3.686 3.691 3.695 3.700 3.704 3.710
> 3.714 3.719 3.723
>
> 3.728 3.733 3.738 3.742 3.747 3.752 3.757
> 3.761 3.766 3.771
>
> 3.776 3.780 3.786 3.790 3.795 3.800 3.805
> 3.810 3.815 3.819
>
> 3.825 3.829 3.835 3.839 3.845 3.849 3.855
> 3.859 3.865 3.869
>
> 3.875 3.879 3.885 3.889 3.895 3.900 3.905
> 3.910 3.915 3.920
>
> 3.926 3.930 3.935 3.941 3.945 3.951 3.956
> 3.961 3.966 3.972
>
> 3.976 3.982 3.987 3.993 3.997 4.003 4.008
> 4.014 4.018 4.024
>
> 4.029 4.035 4.039 4.045 4.050 4.056 4.061
> 4.066 4.071 4.077
>
> 4.082 4.088 4.093 4.099 4.103 4.109 4.114
> 4.120 4.125 4.131
>
> 4.136 4.142 4.147 4.153 4.157 4.163 4.168
> 4.174 4.179 4.185
>
> 4.190 4.195 4.201 4.206 4.212 4.217 4.223
> 4.228 4.234 4.239
>
> 4.245 4.250 4.256 4.261 4.267 4.272 4.278
> 4.283 4.289 4.294
>
> 4.300 4.305 4.311 4.316 4.322 4.327 4.333
> 4.339 4.345 4.350
>
> 4.356 4.361 4.367 4.372 4.378 4.383 4.389
> 4.394 4.400 4.405
>
> 4.411 4.417 4.423 4.428 4.434 4.439 4.445
> 4.450 4.456 4.461
>
> 4.467 4.473 4.478 4.484 4.489 4.495 4.500
> 4.506 4.511 4.517
>
> 4.523 4.529 4.534 4.540 4.545 4.551 4.556
> 4.562 4.568 4.574
>
> 4.579 4.585 4.590 4.596 4.601 4.607 4.613
> 4.619 4.624 4.630
>
> 4.635 4.641 4.646 4.652 4.658 4.664 4.669
> 4.675 4.680 4.686
>
> 4.691 4.697 4.703 4.709 4.714 4.720 4.725
> 4.731 4.736 4.741
>
> ** N:SNAPSHOT TIME DELT[S]
>
> ** WATER DEPTH [M]: (HP(L),L=2,LA)
>
> 3600 0.00417 0.10000
>
> 4.124 4.123 4.123 4.122 4.122 4.121 4.121
> 4.120 4.120 4.119
>
> 4.118 4.117 4.117 4.116 4.116 4.115 4.115
> 4.114 4.114 4.114
>
> 4.114 4.113 4.113 4.112 4.112 4.111 4.111
> 4.110 4.110 4.109
>
> 4.109 4.109 4.109 4.108 4.108 4.107 4.107
> 4.106 4.107 4.106
>
> 4.106 4.105 4.105 4.105 4.105 4.104 4.104
> 4.104 4.104 4.103
>
> 4.103 4.103 4.102 4.102 4.102 4.102 4.101
> 4.102 4.101 4.101
>
> 4.101 4.101 4.100 4.101 4.100 4.101 4.100
> 4.100 4.100 4.100
>
> 4.100 4.100 4.100 4.100 4.100 4.100 4.100
> 4.100 4.100 4.100
>
> 4.100 4.100 4.100 4.100 4.100 4.100 4.100
> 4.100 4.100 4.101
>
> 4.100 4.101 4.100 4.101 4.101 4.101 4.101
> 4.102 4.101 4.102
>
> 4.102 4.101 4.102 4.102 4.103 4.102 4.103
> 4.103 4.104 4.103
>
> 4.104 4.104 4.105 4.104 4.105 4.105 4.106
> 4.106 4.107 4.106
>
> 4.107 4.107 4.108 4.108 4.109 4.109 4.110
> 4.110 4.110 4.110
>
> 4.111 4.111 4.112 4.112 4.113 4.113 4.114
> 4.114 4.115 4.115
>
> 4.116 4.116 4.117 4.117 4.118 4.118 4.120
> 4.120 4.121 4.121
>
> 4.122 4.122 4.122 4.123 4.123 4.125 4.125
> 4.126 4.126 4.127
>
> 4.128 4.129 4.129 4.130 4.130 4.132 4.132
> 4.133 4.133 4.135
>
> 4.135 4.136 4.137 4.138 4.138 4.139 4.140
> 4.141 4.141 4.143
>
> 4.143 4.145 4.145 4.146 4.147 4.148 4.149
> 4.150 4.150 4.152
>
> 4.152 4.154 4.154 4.156 4.156 4.158 4.158
> 4.160 4.160 4.162
>
> 4.162 4.163 4.164 4.165 4.166 4.167 4.168
> 4.169 4.171 4.171
>
> 4.173 4.173 4.175 4.176 4.177 4.178 4.180
> 4.180 4.182 4.183
>
> 4.184 4.185 4.187 4.187 4.189 4.190 4.192
> 4.192 4.194 4.195
>
> 4.197 4.197 4.199 4.200 4.202 4.203 4.204
> 4.205 4.207 4.208
>
> 4.210 4.210 4.212 4.213 4.215 4.216 4.218
> 4.219 4.221 4.221
>
> 4.223 4.224 4.225 4.227 4.228 4.230 4.231
> 4.233 4.234 4.236
>
> 4.237 4.239 4.240 4.242 4.243 4.245 4.246
> 4.248 4.249 4.251
>
> 4.252 4.254 4.255 4.257 4.258 4.260 4.262
> 4.264 4.265 4.267
>
> 4.268 4.270 4.271 4.273 4.275 4.277 4.278
> 4.280 4.281 4.283
>
> 4.285 4.287 4.288 4.290 4.291 4.294 4.295
> 4.297 4.298 4.301
>
> 4.302 4.303 4.305 4.307 4.309 4.310 4.312
> 4.314 4.316 4.317
>
> 4.320 4.321 4.323 4.325 4.327 4.328 4.331
> 4.332 4.334 4.336
>
> 4.338 4.339 4.342 4.343 4.346 4.347 4.349
> 4.351 4.353 4.355
>
> 4.357 4.359 4.361 4.362 4.365 4.366 4.369
> 4.370 4.373 4.374
>
> 4.377 4.378 4.381 4.382 4.385 4.386 4.389
> 4.390 4.393 4.394
>
> 4.397 4.398 4.400 4.402 4.404 4.406 4.408
> 4.411 4.412 4.415
>
> 4.416 4.419 4.421 4.423 4.425 4.427 4.429
> 4.432 4.433 4.436
>
> 4.437 4.440 4.442 4.444 4.446 4.449 4.450
> 4.453 4.455 4.457
>
> 4.459 4.462 4.463 4.466 4.468 4.470 4.472
> 4.475 4.476 4.479
>
> 4.481 4.484 4.485 4.488 4.490 4.492 4.494
> 4.497 4.499 4.501
>
> 4.503 4.505 4.508 4.509 4.512 4.514 4.517
> 4.519 4.521 4.523
>
> 4.526 4.528 4.530 4.532 4.535 4.537 4.540
> 4.541 4.544 4.546
>
> 4.549 4.551 4.554 4.555 4.558 4.560 4.563
> 4.565 4.568 4.569
>
> 4.572 4.574 4.577 4.579 4.582 4.584 4.586
> 4.588 4.591 4.593
>
> 4.596 4.598 4.601 4.603 4.605 4.607 4.610
> 4.612 4.615 4.617
>
> 4.620 4.622 4.624 4.627 4.628 4.631 4.633
> 4.636 4.638 4.641
>
> 4.643 4.646 4.648 4.651 4.653 4.656 4.657
> 4.660 4.662 4.665
>
> 4.667 4.670 4.672 4.675 4.677 4.680 4.682
> 4.685 4.687 4.690
>
> 4.692 4.695 4.697 4.700 4.702 4.705 4.706
> 4.709 4.711 4.714
>
> 4.716 4.719 4.721 4.724 4.726 4.729 4.731
> 4.734 4.736 4.741
>
>
>
> Currently, I have around 10 columns of data for each time. I want to make a
> data frame such that all those data on different columns will be combined
> in
> 1 column of data. So, I want to arrange the data columns such that first
> the
> data on row 1 will be used and then data on second row and so on. This way,
> we will have one column for one time.
>
>
>
> Thank you for your help and suggestion.
>
>
>
> Best,
>
> Janesh
>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
