[R-br] Sumarização de data.frame

[Daniel Guimarães Tiezzi]

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 em usp.br



> On 24 Mar 2020, at 11:02, Vander Souza por (R-br) <r-br em 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")
> )

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200324/0cd5c567/attachment.html>