Cree un nuevo marco de datos utilizando la columna de otro marco de datos - r, marco de datos, columnas múltiples

Tengo 496 marcos de datos de acciones de S&P 500. Cada marco de datos tiene un nombre diferente y un nombre de columna como estos

         AAL.Open  AAL.High  AAL.Low AAL.Close   AAL.Volume
09-12-13    23.85   25.44   23.45      24.6        43197268
10-12-13    24.5    25.17   24.41      24.88       18660625

AA.Open  AA.High   AA.Low  AA.Close    AA.Volume
09-12-13    22.5    24.25   20.13     21           6639
10-12-13    21.2    21.2    20.89     21           10963

Ahora quiero crear un nuevo Dataframe de 496 columnas tomando una columna particular de cada dataframe como esta

          AAL.High    AA.High   -----   ------
09-12-13    25.44     24.25
10-12-13    25.17      21.2

Respuestas

Colocamos los conjuntos de datos en un list Y extraer la columna de interés. Según el código de OP, los nombres de las columnas no son exactos. Por lo tanto, podríamos usar grep

do.call(cbind, lapply(lst, function(x) x[grep("High", names(x))]))

o la posición de la columna por indexación numérica

do.call(cbind, lapply(lst, function(x) x[2]))

NOTA: Suponemos que los conjuntos de datos son data.frame

datos

lst <- list(d1, d2)

O con dput

lst <- list(structure(list(AAL.Open = c(23.85, 24.5), AAL.High = c(25.44,
25.17), AAL.Low = c(23.45, 24.41), AAL.Close = c(24.6, 24.88),
AAL.Volume = c(43197268L, 18660625L)), .Names = c("AAL.Open",
"AAL.High", "AAL.Low", "AAL.Close", "AAL.Volume"), class = "data.frame",
row.names = c("09-12-13",
"10-12-13")), structure(list(AA.Open = c(22.5, 21.2), AA.High = c(24.25,
21.2), AA.Low = c(20.13, 20.89), AA.Close = c(21L, 21L),
AA.Volume = c(6639L,
10963L)), .Names = c("AA.Open", "AA.High", "AA.Low", "AA.Close",
"AA.Volume"), class = "data.frame", row.names = c("09-12-13",
"10-12-13")))