R help - Apr 2014 - Formatting with strings

Dear all, I have object where I stored clusters in the following manner:

---CLUSTER 1 ---
3
4
5
6
---CLUSTER 2 ---
9
10
8
11

Now want to format the data in the following way:

Object  Cluster
3            1
4            1
5            1
6            1
9             2
10           2
8             2
11           2


How can I do this in R?

Thanks

Nico

	[[alternative HTML version deleted]]

try this:
> x <- readLines(textConnection("---CLUSTER 1 ---
+ 3
+ 4
+ 5
+ 6
+ ---CLUSTER 2 ---
+ 9
+ 10
+ 8
+ 11"))
>
> # create a list of where the 'clusters' are
> clust <- c(grep("CLUSTER", x), length(x) + 1L)
>
> # get size of each cluster
> clustSize <- diff(clust) - 1L
>
> # get cluster number
> clustNum <- gsub("[^0-9]+", "",
x[grep("CLUSTER", x)])
>
> result <- do.call(rbind, lapply(seq(length(clustNum)), function(.cl){
+     cbind(Object = x[seq(clust[.cl] + 1L, length = clustSize[.cl])]
+         , Cluster = .cl
+         )
+     }))
>
> result
     Object Cluster
[1,] "3"    "1"
[2,] "4"    "1"
[3,] "5"    "1"
[4,] "6"    "1"
[5,] "9"    "2"
[6,] "10"   "2"
[7,] "8"    "2"
[8,] "11"   "2"
>


Jim Holtman
Data Munger Guru

What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.


On Wed, Apr 23, 2014 at 5:58 AM, Nico Met <nicomet80@gmail.com> wrote:
> Dear all, I have object where I stored clusters in the following manner:
>
> ---CLUSTER 1 ---
> 3
> 4
> 5
> 6
> ---CLUSTER 2 ---
> 9
> 10
> 8
> 11
>
> Now want to format the data in the following way:
>
> Object  Cluster
> 3            1
> 4            1
> 5            1
> 6            1
> 9             2
> 10           2
> 8             2
> 11           2
>
>
> How can I do this in R?
>
> Thanks
>
> Nico
>
>         [[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]]

Hi,
?
You could try:
Lines1 <- readLines(textConnection("---CLUSTER 1 ---
3
4
5
6
---CLUSTER 2 ---
9
10
8
11"))
indx <- grepl("CLUSTER", Lines1)
res <- data.frame(Object=Lines1[!indx],
Clusteras.numeric(as.character(factor(cumsum(indx)[-which(indx)],
labels=gsub("\\D+","",Lines1[indx])))))

res

A.K.

----- Original Message -----
From: Nico Met <nicomet80 at gmail.com>
To: R help <r-help at r-project.org>
Cc: 
Sent: Wednesday, April 23, 2014 3:28 PM
Subject: [R] Formatting with strings

Dear all, I have object where I stored clusters in the following manner:

---CLUSTER 1 ---
3
4
5
6
---CLUSTER 2 ---
9
10
8
11

Now want to format the data in the following way:

Object? Cluster
3? ? ? ? ? ? 1
4? ? ? ? ? ? 1
5? ? ? ? ? ? 1
6? ? ? ? ? ? 1
9? ? ? ? ? ? 2
10? ? ? ? ? 2
8? ? ? ? ? ? 2
11? ? ? ? ? 2


How can I do this in R?

Thanks

Nico

??? [[alternative HTML version deleted]]

______________________________________________
R-help at 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.