r - 使用 R 中的函数调用对象

Question

我有 R 对象:

    "debt_30_06_2010" "debt_30_06_2011" "debt_30_06_2012" ...

并且需要使用一个函数来调用它们:

    paste0("debt_",date) ## "date" being another object

问题是，当我将调用分配给另一个对象时，它只接受名称而不接受内容:

    debt_a <- paste0("endeud_", date1)
    > debt_a
    [1] "debt_30_06_2014"

我试过使用函数“赋值”但没有成功:

    assign("debt_a", paste0("debt_", date))
    > debt_a
    [1] "debt_30_06_2014"

我想知道有什么方法可以完成这个任务。

Answer 1

我们可以使用get 来获取对象的值。如果有多个对象，使用mget。例如，我在这里分配“debt_a”的值为“debt_30_06_2010”

 assign('debt_a', get(paste0('debt_', date[1])))
 debt_a
 #[1] 1 2 3 4 5

mget 返回一个列表。因此，如果我们将 'debt_a' 分配给多个对象，

 assign('debt_a', mget(paste0('debt_', date)))
 debt_a
 #$debt_30_06_2010
 #[1] 1 2 3 4 5

 #$debt_30_06_2011
 #[1]  6  7  8  9 10

数据

debt_30_06_2010 <- 1:5
debt_30_06_2011 <- 6:10
date <- c('30_06_2010', '30_06_2011')