Bom dia Não sei se é o modo mais eficaz, mas acho que isso resolve seu problema trat <- unique(Entrada$Tratamento) df <- data.frame(Tratamento=character(), Localiza=character()) for (i in trat) { tmp <- as.data.frame(Entrada[Entrada$Tratamento == i,]) ens = unique(tmp$Ensaio) loc = '' n = 0 for (e in ens) { tmp_e <- as.data.frame(tmp[tmp$Ensaio == e, ]) print(tmp_e) s <- paste('Ensaio ', e) ps <- paste(tmp_e$Parcela, collapse = ', ') ps <- paste('Parcela ', ps) psf <- paste(s, ps, sep = ' ') if (n > 0) { psf <- paste('; ', psf) } loc <- paste(loc, psf, sep = '') n = n+1 } tmp_df <- data.frame(Tratamento = tmp_e[1,4], Localiza=loc) df <- rbind(df, tmp_df) } df Daniel Tiezzi, MD, PhD Oncologia / Mastologia Professor Associado - Livre Docente Departamento de Ginecologia e Obstetrícia Setor de Mastologia e Oncologia Ginecológica Faculdade de Medicina de Ribeirão Preto - USP Tel.: 16 3602-2488 e-mail: dtiezzi@usp.br

On 24 Mar 2020, at 11:02, Vander Souza por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:

Saida = data.frame( Tratamento = c("T1", "T2"), Localiza = c("Ensaio 1 Parcela 2, 44, 88; Ensaio 2 Parcela 111, 167, 205", "Ensaio 1 Parcela 4, 66, 100; Ensaio 2 Parcela 122, 177, 195") )