thr3ads.net - R help - [R] Breaking up a Row in R (transpose) [May 2012]

If this information is useful, please help other people find it:
Share via:

marc212

2012-May-04 02:36 UTC

[R] Breaking up a Row in R (transpose)

I have the following:
Time   A1   A1   B1   B1   C1   C2
              x     y     x      y       x     y
 0         5     6      6      7      7      9
  1         3     4      4      3      9      9  
  2         5     2      6      4     7       4

I want to change it to the following:
        0           1             2
        x    y     x    y     x    y 
A1  5    6     3   4      5    2
B1  6    7     4   3      6   4
etc for a much larger set

I am sure there are ways to accomplish through a lot of for loops but I feel
there is most likely a function to use.

Thank you. 

--
View this message in context:
http://r.789695.n4.nabble.com/Breaking-up-a-Row-in-R-transpose-tp4607658.html
Sent from the R help mailing list archive at Nabble.com.

Petr Savicky

2012-May-04 08:28 UTC

head link

[R] Breaking up a Row in R (transpose)

On Thu, May 03, 2012 at 07:36:45PM -0700, marc212 wrote:> I have the following:
> Time   A1   A1   B1   B1   C1   C2
>               x     y     x      y       x     y
>  0         5     6      6      7      7      9
>   1         3     4      4      3      9      9  
>   2         5     2      6      4     7       4
> 
> I want to change it to the following:
>         0           1             2
>         x    y     x    y     x    y 
> A1  5    6     3   4      5    2
> B1  6    7     4   3      6   4
> etc for a much larger set
Hi.

Try the following.

  # the example input
  Orig <- rbind(
  "0"=c(5, 6, 6, 7, 7, 9),
  "1"=c(3, 4, 4, 3, 9, 9),
  "2"=c(5, 2, 6, 4, 7, 4))
  colnames(Orig) <- rep(c("x", "y"), times=3)

  # transformation
  Arr <- array(Orig, dim=c(nrow(Orig), 2, ncol(Orig)/2))
  Arr

  , , 1    # this is the required row 1 in the output
  
       [,1] [,2]
  [1,]    5    6
  [2,]    3    4
  [3,]    5    2
  
  , , 2    # this is the required row 2 in the output
  
       [,1] [,2]
  [1,]    6    7
  [2,]    4    3
  [3,]    6    4
  
  , , 3
  
       [,1] [,2]
  [1,]    7    9
  [2,]    9    9
  [3,]    7    4

  Arr1 <- aperm(Arr, perm=c(2, 1, 3))
  d <- dim(Arr1)
  t(array(Arr1, dim=c(d[1]*d[2], d[3])))

       [,1] [,2] [,3] [,4] [,5] [,6]
  [1,]    5    6    3    4    5    2
  [2,]    6    7    4    3    6    4
  [3,]    7    9    9    9    7    4

Hope this helps.

Petr Savicky.

marc212

2012-May-04 18:11 UTC

head link

[R] Breaking up a Row in R (transpose)

I have something like 28 rows and 6000 columns.  How would I configure this
with for loops.

Thank you.


Marc

--
View this message in context:
http://r.789695.n4.nabble.com/Breaking-up-a-Row-in-R-transpose-tp4607658p4609309.html
Sent from the R help mailing list archive at Nabble.com.

Rui Barradas

2012-May-04 19:30 UTC

head link

[R] Breaking up a Row in R (transpose)

Hello,


marc212 wrote> 
> I have the following:
> Time   A1   A1   B1   B1   C1   C2
>               x     y     x      y       x     y
>  0         5     6      6      7      7      9
>   1         3     4      4      3      9      9  
>   2         5     2      6      4     7       4
> 
> I want to change it to the following:
>         0           1             2
>         x    y     x    y     x    y 
> A1  5    6     3   4      5    2
> B1  6    7     4   3      6   4
> etc for a much larger set
> 
> I am sure there are ways to accomplish through a lot of for loops but I
> feel there is most likely a function to use.
> 
> Thank you.
> 
Using Petr's Orig data.frame above, maybe this is what you want.

cnames <- unique(colnames(Orig))
nc <- ncol(Orig)/length(cnames)

res <- lapply(seq.int(nrow(Orig)), function(i){
		x <- Orig[i, ]
		dim(x) <- c(length(cnames), nc)
		dimnames(x) <- list(cnames, LETTERS[seq_len(nc)])
		t(x)
	})
names(res) <- rownames(Orig)
res
do.call(cbind, res)

And it avoids loops.

Hope this helps,

Rui Barradas


--
View this message in context:
http://r.789695.n4.nabble.com/Breaking-up-a-Row-in-R-transpose-tp4607658p4609488.html
Sent from the R help mailing list archive at Nabble.com.

marc212

2012-May-04 20:21 UTC

head link

[R] Breaking up a Row in R (transpose)

I am not opposed to for loops just do not know how to implement them.


I am sorry for all the questions I am trying to learn.  The posted code does
not work for me in my set I am getting a :
Error in `dimnames<-.data.frame`(`*tmp*`, value = list(c("A1",
"A1.1",  :
  invalid 'dimnames' given for data frame

Any help is much appreciated.

Thank you.




--
View this message in context:
http://r.789695.n4.nabble.com/Breaking-up-a-Row-in-R-transpose-tp4607658p4609658.html
Sent from the R help mailing list archive at Nabble.com.

Petr Savicky

2012-May-04 20:42 UTC

head link

[R] Breaking up a Row in R (transpose)

On Fri, May 04, 2012 at 11:11:47AM -0700, marc212 wrote:> I have something like 28 rows and 6000 columns.  How would I configure this
> with for loops.
The transformation may be splitted into simpler pieces using a for
loop over the 28 rows. Try the following.

  orig <- rbind(
  "0"=c(5, 6, 6, 7, 7, 9),
  "1"=c(3, 4, 4, 3, 9, 9),
  "2"=c(5, 2, 6, 4, 7, 4))
  colnames(orig) <- rep(c("x", "y"), times=3)

  out <- matrix(nrow=ncol(orig)/2, ncol=2*nrow(orig))
  for (i in seq.int(length=nrow(orig))) {
      out[, 2*(i-1) + 1:2] <- matrix(orig[i, ], nrow=nrow(out), ncol=2,
byrow=TRUE)
  }

  out

       [,1] [,2] [,3] [,4] [,5] [,6]
  [1,]    5    6    3    4    5    2
  [2,]    6    7    4    3    6    4
  [3,]    7    9    9    9    7    4

Hope this helps.

Petr Savicky.

Rui Barradas

2012-May-04 22:56 UTC

head link

[R] Breaking up a Row in R (transpose)

Hello, again.

marc212 wrote> 
> I have a pretty good computer with a lot of RAM and it just wont run this
> code.  My R crashes...
> 
> Running this on a sample does not work either.
> 
> Any advice? Thank you for all the help!
> 
> Marc
> What I'm saying is to use dput on a data sample.
For instance, with 'orig' created as above,

dput(orig)
structure(c(5, 3, 5, 6, 4, 2, 6, 4, 6, 7, 3, 4, 7, 9, 7, 9, 9, 
4), .Dim = c(3L, 6L), .Dimnames = list(c("0", "1",
"2"), c("x",
"y", "x", "y", "x", "y")))

If you post an example like this, we'll know better what to do.
It's just a matter of copy&paste to an R session.

Rui Barradas


--
View this message in context:
http://r.789695.n4.nabble.com/Breaking-up-a-Row-in-R-transpose-tp4607658p4610046.html
Sent from the R help mailing list archive at Nabble.com.

marc212

2012-May-04 23:02 UTC

head link

[R] Breaking up a Row in R (transpose)

structure(list(A2 = structure(c(9L, 4L, 4L, 3L, 5L, 7L, 5L, 7L, 
6L, 1L, 1L, 1L, 3L, 4L, 5L, 5L, 2L, 5L, 3L, 4L, 4L, 8L, 4L, 3L, 
4L, 5L, 4L, 3L), .Label = c("4.957", "4.958",
"4.959", "4.96",
"4.961", "4.962", "4.963", "4.964",
"x"), class = "factor"),
    A2.1 = structure(c(6L, 2L, 2L, 2L, 2L, 3L, 3L, 2L, 4L, 2L, 
    4L, 2L, 5L, 4L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 
    2L, 2L, 2L), .Label = c("6.156", "6.157",
"6.158", "6.159",
    "6.161", "y"), class = "factor"), A3 =
structure(c(9L, 2L,
    2L, 5L, 5L, 5L, 5L, 4L, 5L, 3L, 6L, 1L, 8L, 2L, 7L, 2L, 2L, 
    6L, 3L, 1L, 2L, 2L, 2L, 5L, 3L, 4L, 8L, 3L), .Label = c("5.114", 
    "5.115", "5.116", "5.117", "5.118",
"5.119", "5.12", "5.121",
    "x"), class = "factor"), A3.1 = structure(c(2L, 1L, 1L,
1L,
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("4.227", 
    "y"), class = "factor"), A4 = structure(c(14L, 5L, 5L,
3L,
    7L, 6L, 7L, 1L, 5L, 4L, 2L, 9L, 5L, 12L, 7L, 11L, 11L, 4L, 
    11L, 3L, 8L, 6L, 10L, 6L, 9L, 3L, 13L, 3L), .Label = c("5.204", 
    "5.207", "5.209", "5.21", "5.211",
"5.212", "5.213", "5.214",
    "5.215", "5.216", "5.218", "5.219",
"5.221", "x"), class = "factor"),
    A4.1 = structure(c(9L, 4L, 4L, 2L, 6L, 8L, 5L, 6L, 1L, 4L, 
    4L, 2L, 6L, 3L, 2L, 4L, 4L, 6L, 4L, 8L, 4L, 3L, 6L, 4L, 2L, 
    7L, 3L, 6L), .Label = c("2.564", "2.565",
"2.566", "2.567",
    "2.569", "2.57", "2.571", "2.572",
"y"), class = "factor"),
    B1 = structure(c(8L, 4L, 4L, 3L, 3L, 5L, 7L, 5L, 3L, 4L, 
    2L, 4L, 2L, 3L, 4L, 4L, 5L, 4L, 4L, 6L, 4L, 2L, 2L, 5L, 5L, 
    4L, 4L, 1L), .Label = c("7.273", "7.274",
"7.275", "7.276",
    "7.277", "7.278", "7.279", "x"),
class = "factor"), B1.1 structure(c(8L,
    1L, 1L, 5L, 3L, 4L, 4L, 2L, 3L, 4L, 3L, 3L, 4L, 2L, 3L, 3L, 
    3L, 3L, 3L, 3L, 5L, 4L, 7L, 4L, 3L, 5L, 5L, 6L), .Label =
c("8.067",
    "8.068", "8.069", "8.07", "8.071",
"8.072", "8.073", "y"), class "factor"),
    A1 = structure(c(6L, 5L, 5L, 3L, 3L, 1L, 4L, 4L, 3L, 1L, 
    2L, 3L, 2L, 1L, 4L, 3L, 3L, 3L, 3L, 4L, 4L, 3L, 3L, 3L, 3L, 
    2L, 3L, 5L), .Label = c("4.918", "4.919",
"4.92", "4.921",
    "4.922", "x"), class = "factor"), A1.1 =
structure(c(6L,
    3L, 3L, 2L, 4L, 5L, 3L, 1L, 3L, 3L, 3L, 3L, 5L, 5L, 3L, 3L, 
    1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 1L, 3L, 4L), .Label =
c("8.297",
    "8.298", "8.299", "8.3", "8.301",
"y"), class = "factor"),
    B2 = structure(c(10L, 5L, 5L, 5L, 7L, 7L, 7L, 9L, 8L, 5L, 
    2L, 8L, 5L, 4L, 2L, 6L, 3L, 2L, 9L, 5L, 4L, 2L, 5L, 5L, 1L, 
    8L, 9L, 5L), .Label = c("7.272", "7.273",
"7.274", "7.275",
    "7.276", "7.277", "7.278", "7.279",
"7.28", "x"), class = "factor"),
    B2.1 = structure(c(6L, 4L, 4L, 3L, 3L, 2L, 2L, 2L, 4L, 3L, 
    4L, 3L, 2L, 4L, 3L, 4L, 4L, 5L, 1L, 4L, 3L, 4L, 4L, 4L, 5L, 
    3L, 3L, 5L), .Label = c("6.056", "6.058",
"6.059", "6.06",
    "6.061", "y"), class = "factor"), B3 =
structure(c(10L, 1L,
    1L, 4L, 5L, 2L, 4L, 7L, 7L, 7L, 2L, 3L, 7L, 4L, 4L, 9L, 8L, 
    7L, 6L, 7L, 5L, 4L, 6L, 9L, 7L, 8L, 6L, 4L), .Label = c("7.411", 
    "7.412", "7.413", "7.414", "7.415",
"7.416", "7.417", "7.418",
    "7.419", "x"), class = "factor"), B3.1 =
structure(c(7L,
    3L, 3L, 3L, 5L, 4L, 4L, 2L, 5L, 3L, 4L, 4L, 4L, 3L, 1L, 3L, 
    4L, 3L, 3L, 4L, 2L, 3L, 4L, 6L, 4L, 3L, 4L, 3L), .Label =
c("4.05",
    "4.052", "4.053", "4.054", "4.055",
"4.056", "y"), class = "factor"),
    B4 = structure(c(10L, 2L, 2L, 3L, 4L, 5L, 9L, 8L, 4L, 4L, 
    6L, 4L, 3L, 5L, 4L, 5L, 8L, 7L, 4L, 4L, 4L, 6L, 4L, 6L, 2L, 
    3L, 1L, 3L), .Label = c("7.468", "7.469",
"7.47", "7.471",
    "7.472", "7.473", "7.474", "7.475",
"7.476", "x"), class = "factor"),
    B4.1 = structure(c(6L, 4L, 4L, 3L, 4L, 4L, 1L, 3L, 4L, 5L, 
    4L, 2L, 3L, 4L, 3L, 5L, 3L, 3L, 4L, 4L, 5L, 4L, 4L, 4L, 5L, 
    2L, 5L, 4L), .Label = c("2.274", "2.275",
"2.276", "2.277",
    "2.278", "y"), class = "factor"), C1 =
structure(c(6L, 4L,
    4L, 4L, 4L, 5L, 3L, 3L, 3L, 1L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 
    4L, 4L, 4L, 4L, 4L, 5L, 4L, 4L, 3L, 3L, 1L), .Label = c("9.744", 
    "9.745", "9.746", "9.747", "9.748",
"x"), class = "factor"),
    C1.1 = structure(c(2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L), .Label = c("8.203", "y"), class =
"factor"),
    C2 = structure(c(9L, 5L, 5L, 4L, 3L, 5L, 6L, 6L, 7L, 6L, 
    4L, 8L, 8L, 6L, 8L, 5L, 1L, 3L, 4L, 1L, 3L, 5L, 5L, 6L, 8L, 
    5L, 2L, 4L), .Label = c("9.916", "9.917",
"9.918", "9.919",
    "9.92", "9.921", "9.922", "9.923",
"x"), class = "factor"),
    C2.1 = structure(c(4L, 3L, 3L, 2L, 3L, 3L, 1L, 3L, 3L, 2L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
    2L, 3L, 1L), .Label = c("5.942", "5.943",
"5.944", "y"), class "factor"),
    C3 = structure(c(10L, 8L, 8L, 8L, 9L, 8L, 2L, 5L, 5L, 6L, 
    5L, 5L, 4L, 7L, 4L, 5L, 1L, 6L, 6L, 3L, 2L, 2L, 1L, 2L, 3L, 
    7L, 5L, 4L), .Label = c("9.95", "9.951",
"9.952", "9.953",
    "9.954", "9.955", "9.956", "9.959",
"9.96", "x"), class = "factor"),
    C3.1 = structure(c(7L, 6L, 6L, 5L, 6L, 5L, 5L, 4L, 4L, 4L, 
    2L, 4L, 6L, 6L, 6L, 6L, 5L, 1L, 3L, 6L, 6L, 5L, 5L, 6L, 6L, 
    5L, 6L, 6L), .Label = c("3.952", "3.953",
"3.954", "3.955",
    "3.956", "3.957", "y"), class =
"factor"), C4 = structure(c(10L,
    6L, 6L, 4L, 5L, 3L, 4L, 6L, 7L, 1L, 8L, 4L, 4L, 4L, 6L, 7L, 
    9L, 5L, 8L, 7L, 8L, 5L, 8L, 2L, 5L, 1L, 2L, 1L), .Label =
c("9.914",
    "9.915", "9.916", "9.917", "9.918",
"9.919", "9.92", "9.921",
    "9.922", "x"), class = "factor"), C4.1 =
structure(c(10L,
    2L, 3L, 1L, 8L, 3L, 3L, 5L, 5L, 4L, 7L, 8L, 8L, 8L, 7L, 9L, 
    8L, 7L, 7L, 6L, 9L, 9L, 8L, 8L, 8L, 8L, 9L, 8L), .Label =
c("2.242",
    "2.244", "2.245", "2.246", "2.247",
"2.248", "2.249", "2.25",
    "2.252", "y"), class = "factor"), D1 =
structure(c(7L, 4L,
    6L, 3L, 6L, 5L, 4L, 4L, 6L, 2L, 2L, 3L, 2L, 2L, 3L, 6L, 6L, 
    2L, 6L, 5L, 2L, 5L, 6L, 6L, 6L, 1L, 3L, 4L), .Label = c("12.452", 
    "12.453", "12.454", "12.455",
"12.456", "12.457", "x"), class
"factor"),
    D1.1 = structure(c(5L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 2L, 
    3L, 2L, 3L, 4L, 2L, 4L, 1L, 2L, 2L, 4L, 4L, 3L, 3L, 2L, 1L, 
    2L, 4L, 1L), .Label = c("8.491", "8.492",
"8.493", "8.494",
    "y"), class = "factor"), D2 = structure(c(7L, 3L, 3L,
3L,
    4L, 3L, 5L, 4L, 3L, 5L, 3L, 3L, 3L, 3L, 1L, 4L, 3L, 5L, 4L, 
    5L, 2L, 4L, 3L, 4L, 3L, 6L, 5L, 2L), .Label = c("12.794", 
    "12.795", "12.796", "12.797",
"12.798", "12.802", "x"), class
"factor"),
    D2.1 = structure(c(2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L), .Label = c("6.273", "y"), class =
"factor"),
    D3 = structure(c(5L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 3L, 1L, 2L, 3L, 3L, 2L, 3L, 
    2L, 3L, 3L), .Label = c("12.775", "12.776",
"12.777", "12.778",
    "x"), class = "factor"), D3.1 = structure(c(2L, 1L, 1L,
1L,
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("4.034", 
    "y"), class = "factor"), D4 = structure(c(8L, 2L, 3L,
2L,
    4L, 1L, 3L, 4L, 3L, 4L, 4L, 3L, 3L, 5L, 4L, 5L, 5L, 5L, 5L, 
    4L, 6L, 5L, 7L, 5L, 5L, 4L, 5L, 6L), .Label = c("12.499", 
    "12.501", "12.502", "12.503",
"12.504", "12.505", "12.506",
    "x"), class = "factor"), D4.1 = structure(c(8L, 5L, 1L,
6L,
    6L, 2L, 6L, 6L, 7L, 5L, 6L, 5L, 2L, 6L, 4L, 7L, 2L, 2L, 4L, 
    1L, 5L, 4L, 5L, 5L, 4L, 1L, 2L, 3L), .Label = c("2.142", 
    "2.143", "2.144", "2.145", "2.146",
"2.147", "2.148", "y"
    ), class = "factor"), E2 = structure(c(8L, 1L, 1L, 2L, 3L, 
    4L, 2L, 4L, 4L, 3L, 3L, 5L, 4L, 4L, 5L, 3L, 4L, 3L, 3L, 3L, 
    6L, 4L, 3L, 4L, 6L, 6L, 7L, 4L), .Label = c("17.01",
"17.013",
    "17.014", "17.015", "17.016",
"17.017", "17.018", "x"), class
"factor"),
    E2.1 = structure(c(6L, 5L, 1L, 1L, 4L, 2L, 1L, 4L, 3L, 4L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L), .Label = c("6.813", "6.814",
"6.815", "6.816",
    "6.819", "y"), class = "factor"), E3 =
structure(c(6L, 5L,
    5L, 3L, 2L, 3L, 4L, 2L, 1L, 4L, 3L, 2L, 5L, 3L, 1L, 2L, 3L, 
    2L, 2L, 3L, 1L, 3L, 3L, 2L, 3L, 3L, 1L, 2L), .Label = c("17.061", 
    "17.062", "17.063", "17.064",
"17.065", "x"), class = "factor"),
    E3.1 = structure(c(9L, 1L, 2L, 3L, 3L, 6L, 2L, 3L, 6L, 7L, 
    4L, 7L, 4L, 4L, 4L, 6L, 8L, 5L, 6L, 4L, 5L, 8L, 7L, 7L, 7L, 
    4L, 6L, 7L), .Label = c("4.265", "4.266",
"4.267", "4.268",
    "4.269", "4.27", "4.271", "4.272",
"y"), class = "factor"),
    E4 = structure(c(7L, 3L, 4L, 4L, 4L, 5L, 6L, 5L, 4L, 2L, 
    4L, 4L, 4L, 4L, 4L, 1L, 4L, 4L, 2L, 5L, 3L, 3L, 3L, 3L, 3L, 
    4L, 4L, 6L), .Label = c("17.443", "17.444",
"17.445", "17.446",
    "17.447", "17.448", "x"), class =
"factor"), E4.1 = structure(c(7L,
    6L, 5L, 3L, 3L, 4L, 2L, 1L, 3L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 
    1L, 2L, 2L, 3L, 1L, 1L, 1L, 3L, 1L, 1L, 1L, 1L), .Label =
c("2.357",
    "2.358", "2.359", "2.36", "2.362",
"2.364", "y"), class = "factor"),
    F1 = structure(c(13L, 9L, 6L, 9L, 12L, 11L, 7L, 3L, 10L, 
    5L, 5L, 6L, 7L, 9L, 3L, 9L, 5L, 8L, 1L, 3L, 3L, 8L, 2L, 6L, 
    4L, 2L, 3L, 3L), .Label = c("19.828", "19.829",
"19.83",
    "19.831", "19.832", "19.833",
"19.834", "19.835", "19.836",
    "19.837", "19.838", "19.839", "x"),
class = "factor"), F1.1 structure(c(9L,
    1L, 5L, 1L, 1L, 3L, 3L, 4L, 2L, 3L, 1L, 3L, 4L, 3L, 4L, 7L, 
    6L, 3L, 5L, 6L, 6L, 6L, 8L, 7L, 8L, 6L, 7L, 6L), .Label =
c("8.775",
    "8.776", "8.777", "8.778", "8.779",
"8.78", "8.781", "8.782",
    "y"), class = "factor"), F3 = structure(c(6L, 5L, 5L,
2L,
    3L, 5L, 5L, 3L, 1L, 3L, 3L, 3L, 4L, 3L, 3L, 4L, 4L, 3L, 5L, 
    4L, 3L, 4L, 4L, 4L, 3L, 2L, 3L, 5L), .Label = c("19.521", 
    "19.522", "19.523", "19.524",
"19.525", "x"), class = "factor"),
    F3.1 = structure(c(10L, 6L, 8L, 6L, 5L, 9L, 7L, 5L, 5L, 7L, 
    6L, 5L, 6L, 4L, 4L, 3L, 4L, 3L, 4L, 4L, 2L, 3L, 2L, 3L, 1L, 
    4L, 5L, 3L), .Label = c("4.227", "4.228",
"4.229", "4.23",
    "4.231", "4.232", "4.233", "4.234",
"4.236", "y"), class = "factor"),
    F2 = structure(c(7L, 3L, 5L, 6L, 4L, 4L, 4L, 4L, 3L, 3L, 
    2L, 4L, 3L, 3L, 4L, 3L, 4L, 4L, 1L, 3L, 3L, 3L, 3L, 1L, 2L, 
    3L, 6L, 5L), .Label = c("19.491", "19.492",
"19.493", "19.494",
    "19.495", "19.496", "x"), class =
"factor"), F2.1 = structure(c(5L,
    4L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 2L, 4L, 3L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label =
c("6.423",
    "6.425", "6.426", "6.427", "y"),
class = "factor"), F4 = structure(c(6L,
    4L, 2L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 5L, 2L, 1L, 3L, 1L, 2L, 
    3L, 2L, 2L, 2L, 1L, 3L, 1L, 4L, 1L, 3L, 2L, 3L), .Label =
c("19.573",
    "19.574", "19.575", "19.576",
"19.577", "x"), class = "factor"),
    F4.1 = structure(c(6L, 5L, 3L, 1L, 4L, 2L, 3L, 1L, 1L, 2L, 
    3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 1L, 2L, 3L, 3L, 2L, 2L, 3L, 
    3L, 2L, 1L), .Label = c("2.514", "2.515",
"2.516", "2.517",
    "2.521", "y"), class = "factor"), G1 =
structure(c(9L, 5L,
    5L, 6L, 5L, 5L, 4L, 2L, 5L, 4L, 6L, 7L, 3L, 1L, 3L, 4L, 6L, 
    5L, 6L, 6L, 4L, 3L, 2L, 3L, 5L, 3L, 8L, 5L), .Label = c("21.994", 
    "21.999", "22", "22.001", "22.002",
"22.003", "22.004", "22.006",
    "x"), class = "factor"), G1.1 = structure(c(10L, 9L, 7L,
    5L, 8L, 7L, 6L, 8L, 5L, 7L, 4L, 5L, 7L, 6L, 4L, 7L, 8L, 3L, 
    2L, 8L, 5L, 6L, 5L, 4L, 6L, 3L, 5L, 1L), .Label = c("8.713", 
    "8.715", "8.717", "8.718", "8.719",
"8.72", "8.721", "8.722",
    "8.724", "y"), class = "factor"), G2 =
structure(c(9L, 6L,
    6L, 4L, 4L, 4L, 5L, 6L, 4L, 3L, 1L, 4L, 5L, 4L, 3L, 4L, 4L, 
    4L, 5L, 5L, 3L, 4L, 5L, 5L, 2L, 7L, 8L, 6L), .Label = c("21.936", 
    "21.937", "21.938", "21.939",
"21.94", "21.941", "21.942",
    "21.943", "x"), class = "factor"), G2.1 =
structure(c(5L,
    4L, 1L, 1L, 3L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label =
c("6.388",
    "6.389", "6.391", "6.396", "y"),
class = "factor")), .Names = c("A2",
"A2.1", "A3", "A3.1", "A4",
"A4.1", "B1", "B1.1", "A1",
"A1.1",
"B2", "B2.1", "B3", "B3.1",
"B4", "B4.1", "C1", "C1.1",
"C2",
"C2.1", "C3", "C3.1", "C4",
"C4.1", "D1", "D1.1", "D2",
"D2.1",
"D3", "D3.1", "D4", "D4.1",
"E2", "E2.1", "E3", "E3.1",
"E4",
"E4.1", "F1", "F1.1", "F3",
"F3.1", "F2", "F2.1", "F4",
"F4.1",
"G1", "G1.1", "G2", "G2.1"), class =
"data.frame", row.names = c(NA,
-28L))> 

--
View this message in context:
http://r.789695.n4.nabble.com/Breaking-up-a-Row-in-R-transpose-tp4607658p4610059.html
Sent from the R help mailing list archive at Nabble.com.

Apparently Analagous Threads

Search for more maybe matching threads

R help - May 2012 - Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

[R] Breaking up a Row in R (transpose)

Apparently Analagous Threads