有没有更好的方法来访问这些变量而不是附加？

Question

我有以下简单的（和工作:)功能，将以前存储在2列（即Year和Month）中的日期信息变成某种'真实'日期格式。

realDate <- function (table,year,period){ 

    if (is.character(table) == TRUE) 
    { 
    dframe <- get(table) 
    } 

    else{ 
    dframe <- table 
    } 

    attach(dframe) 
    dframe$Date <- as.Date(paste(year,"-",ifelse(period > 9,period,paste("0",period,sep="")),"-01",sep="")) 
    detach(dframe) 
    return(dframe$Date) 

}

第一个参数是一个data.frame（或it's名称）（我需要与含有多个data.frame名称字符向量lapply使用）。第二个参数是存储年份的df列，期间是存储月份的那个列。

我只是在学习这个整体环境的东西，而且我确实认为这种附加/分离方式不是正确的方法（即使它有效）。有没有更好的方法将指定参数“Year”和“Period”作为粘贴语句的一部分？

编辑：

将参数作为列名传递的正确方法是什么？请注意，Year和Period的姓名可能会从data.frame更改为data.frame。如果我使用你建议的功能我得到：

head(realDate(mydf,"Jahr","Periode")) # German for year and period 
Error in charToDate(x) : 
character string is not in a standard unambiguous format 

or 

Error in paste(year, "-", ifelse(period > 9, period, paste("0", period, : 
object 'Jahr' not found 

HTH帮助。

Answer 1

with()使用或within() ---两者评估一个特殊的环境内的R的表达，从而将with(f00, EXPR)该“含”的foo元件/组件的特殊环境中评估表达EXPR。 within()允许您在该特殊环境中修改/替换。

你的函数的直接翻译版本（主位）将是：

dframe <- within(dframe, 
       Date <- as.Date(paste(year,"-", 
             ifelse(period > 9, period, 
               paste("0", period, sep = "")), 
             "-01", sep = ""))) 

但也没有必要强迫复制数据帧只是添加一列到扔掉之前返回数据帧（您不会返回修改后的数据帧，仅返回日期）。

相反，只要使用with()，让我们假设你的意思是dframe/table包括year和period列，在这种情况下，你不要;吨需要以年/期通过（否则我不明白为什么你需要attach）：

realDate <- function (table) { 
    if (is.character(table) == TRUE) { 
     dframe <- get(table) 
    } else { 
     dframe <- table 
    } 
    resDate <- with(dframe, 
        as.Date(paste(year,"-", 
            ifelse(period > 9, period, 
             paste("0", period, sep = "")), 
            "-01", sep = "")) 
    return(resDate) 
}