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
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")
)