extrair colunas como linhas

Boa noite, Agora tenho o seguinte problema. Tenho um arquivo de dados como abaixo Z <- read.table("/test.txt", sep="\t", stringsAsFactors = FALSE) Z: QW B1 4 2 QW B1 4 2 QW B1 4 2 QW D2 2 1 QW D2 2 1 QW D2 2 1 QW D3 1 3 QW D3 1 3 QW D3 1 3 preciso escrever esse arquivo "test.txt" em um outro arquivo, ou seja, SALVAR como "final.txt". 1) Selecionar o elemento da 2a coluna e escrever na 1a linha; 2) Escrever todos os elementos da 3a que correspondem ao intem 1, em linha; 3) Escrever todos os elementos da 4a que correspondem ao intem 1, em linha; 4) Retorna ao intem 1 (ciclo) Obs. No arquivo test.txt tenho muitas linhas + 500. A 1a é descartada... B1 4 4 4 2 2 2 D2 2 2 2 1 1 1 D3 1 1 1 3 3 3 Muito obrigado caros amigos da lista. Ricardo Pereira

tmp <- split(Z[, 3:4], Z[,2]) fn <- file('final.txt', 'wt') for (i in 1:length(tmp)){ writeLines(names(tmp)[i], fn) lapply(tmp[[i]], function(x) writeLines(paste(x, collapse='\t'), fn)) } close(fn)

Muito obrigado mesmo Benilton, preciso mais uma vez. Mais uma duvida. Quero adicionar duas linhas de titulo no arquivo e com os dados iniciando na 3a linha. Ex. asd asd B1 4 4 4 2 2 2 D2 2 2 2 1 1 1 D3 1 1 1 3 3 3
participantes (2)
-
Benilton Carvalho
-
Ricardo Pereira