Получить все значения по индексу строки для всех переменных с именами, хранящимися в символьном типе данных

Question

У меня есть следующие xts объекты:

A1 <- xts(x=c(1,2), order.by=c(as.Date("2019-09-29"),as.Date("2019-09-30")))
A2 <- xts(x=c(3,4), order.by=c(as.Date("2019-09-29"),as.Date("2019-09-30")))

Обе переменные хранятся в символе:

var_names <- c("A1", "A2")

Есть ли способ получить значения 2019-09-30 строка из всех переменных, вызывающих их, из строки символов var_names. Поэтому вместо этого:

cbind.data.frame(A1["2019-09-30"], A2["2019-09-30"])

Есть ли способ сделать это без цикла?

Answer 1

Мы можем использовать mget

do.call(cbind, mget(var_names))["2019-09-30"]
#            A1 A2
#2019-09-30  2  4

---

Или используя get

cbind(A1 = get(var_names[1])["2019-09-30"], A2=get(var_names[2])["2019-09-30"])