Tengo un gran conjunto de datos con las coordenadas x, y de 91 trayectorias diferentes distinguidas por la variableID:

>     head(trjct)
     t        x      y        z     Etot   ID
1 0.00 696621.4 167730 1680.960 1192.526 sim1
2 0.01 696621.4 167730 1680.959 1192.526 sim1
3 0.02 696621.4 167730 1680.958 1192.526 sim1
4 0.04 696621.4 167730 1680.952 1192.526 sim1
5 0.06 696621.4 167730 1680.942 1192.526 sim1
6 0.08 696621.4 167730 1680.929 1192.526 sim1

He logrado convertir estas coordenadas en líneas:

  coordinates(trjct) <- ~x+y
  trjct_lines_coords <- lapply(split(trjct, trjct$ID), function(x) Lines(list(Line(coordinates(x))), x$ID[1L])) #first column = row number

Sin embargo, la información contenida dentro de la variableEtot no esta incluido. ¿Cómo puedo crear una lista de líneas, cada una con una línea y su correspondienteEtot valores en la lista?

Quiero crear un data.frame para las líneas, agrupadas por id (una fila para cada línea) y también quiero mantener la información contenida enEtot.