如何使列名称/数据框名称成为包含变量的字符串（R）

Question

this.year<-2014 
x<-this.year-1 
y<-this.year-2
x.s<-x-2000 
y.s<-y-2000
tpop_y.s<-acs.fetch(endyear=x,span=1,geography=mystates,variable="B01003_001", col.names="DM_TPOP_x.s")  
tpop_x.s<-acs.fetch(endyear=y,span=1,geography=mystates,variable="B01003_001",col.names="DM_TPOP_y.s")

我正在使用acs软件包从美国社区调查中提取数据，以更新信息图表网站。 我希望通过输入this.year的当前年份并让代码更新过去2年的数据x和y来每年运行代码。

如果this.year是2015， x是2014， xs为14， y是2013， ys是13最终的结果我想是（对于y）处的数据帧名称tpop_13与列名DM_TPOP_13 。 （对于x而言）数据框名称tpop_14和列名称DM_TPOP_14 。

该代码是正确抽取所需要的数据，但这个代码返回（对于y）处的数据帧名称tpop_y.s与列名DM_TPOP_y.s 。 （对于x而言）数据框名称tpop_x.s和列名称DM_TPOP_x.s 。 我尝试搜索类似的问题，并发现了以下问题： 如何在字符串中间打印R变量

我尝试通过使用引号\\"',xs,'\\"来应用答案来解决我的问题，但是它不起作用。 代码返回（对于x）列名DM_TPOP_...xs.. 我知道R不会对引号内的任何表达式求值-它只会打印您定义的字符串。 但是如何解决这个问题，以便字符串中可以有一个变量？

帮助将不胜感激！

Answer 1

您可以使用paste ， paste0和sprintf的函数根据字符串常量和变量构造字符串。 gsubfn软件包中还有功能可以像字符串插值一样执行Perl。

Answer 2

工作方法如下：将数据存储在列表kk ，以便第一个元素kk[[1]]或kk[["tpop_13"]]给出2013年的数据，第二个元素kk[[2]]或kk[["tpop_12"]]给出2012年的数据，并根据您的建议提供每个元素的名称。

wa=geo.make(state="WA")
kk<-lapply(c(x,y),function(i){
  acs.fetch(endyear=i,span=1,geography=wa,variable="B01003_001", col.names=paste0("DM_TPOP_",i-2000)) 
   })


names(kk)<-paste0("tpop_",c(x-2000,y-2000))
   kk 
        $tpop_13
    ACS DATA: 
     2013 ;
      Estimates w/90% confidence intervals;
      for different intervals, see confint()
               DM_TPOP_13   
    Washington 6971406 +/- 0

    $tpop_12
    ACS DATA: 
     2012 ;
      Estimates w/90% confidence intervals;
      for different intervals, see confint()
               DM_TPOP_12   
    Washington 6897012 +/- 0