首页 > 解决方案 > 使用 xts 对象本身的变量子集 xts 对象

问题描述

我有 2 个数据系列,即“usagexts”和“tempxts”。我想为 2 个对象中的每一个创建 3 个子集。我可以为每个系列单独循环使用开始和结束期间的变量来遍历日期参数。那里没问题。但是,我也想对 2 系列循环遍历 2 系列的名称执行相同的操作。

换句话说,xts 对象名称也需要来自变量。

Thsi 是我尝试过的 - 一个带有硬编码系列名称,带有用于开始和结束日期的变量名称,但另一个带有用于系列名称以及开始和结束日期的变量名称不喜欢这样:

此代码有效:

varcount <- 2 
usagextsobjects <- vector((varcount * nrow(sum_datesdf)), mode = "list") 

for (i in 1:varcount)
    {for (j in 1:nrow(sum_datesdf))
        {if (i == 1)
            {usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- usagexts[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
            }
        else
            {usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- tempxts[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
            }
        }
    }

这不会:

for (i in 1:varcount)
    {for (j in 1:nrow(sum_datesdf))
        {if (i == 1)
                {modelformulae <- paste0(paste(paste0(sum_datesdf$var1[i], "xts[", sum_datesdf$startperioddate[j]), sum_datesdf$endperioddate[j], sep = "/"),"]")
                }
            else
                {modelformulae <- paste0(paste(paste0(sum_datesdf$var2[i], "xts[", sum_datesdf$startperioddate[j]), sum_datesdf$endperioddate[j], sep = "/"),"]")
                }
        usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- as.formula(modelformulae)
        }
    }

i == 1 的变量模型公式的内容如下usagexts[2015-10-01/2016-03-31]:但这并不能转化为创建相关的 xts 对象

sum_datesdf 数据框是这样的:

startperioddate,endperioddate,checkval,var1,var1_1,var2,var2_1,varname1,varname1_1,varname2,varname2_1
1,2015-10-01,2016-03-31,1,usage,dusage,temp,dtemp,usage_1510_1603,dusage_1510_1603,temp_1510_1603,dtemp_1510_1603
6,2016-10-01,2017-03-31,1,usage,dusage,temp,dtemp,usage_1610_1703,dusage_1610_1703,temp_1610_1703,dtemp_1610_1703
11,2017-10-01,2018-03-31,1,usage,dusage,temp,dtemp,usage_1710_1803,dusage_1710_1803,temp_1710_1803,dtemp_1710_1803

我期待对象“usagextsobjects”包含 6 个 xts 对象的列表。使用第一个代码,它会,但使用第二个代码它不会。

错误是这样说的:

( usageexts [.xts, 2015 - 10 - 1/2016 - 3 - 31) 中的错误:下标越界

标签: rxts

解决方案


通常,要通过字符串引用命名对象,您需要使用get()而不仅仅是您尝试paste调用的字符串本身。而且您不是从要求的字符串构建公式对象,as.formula因此请删除该调用。请参阅下面的调整:

for (i in 1:varcount)
    {for (j in 1:nrow(sum_datesdf))
        {if (i == 1)
            { data <- get(sum_datesdf$var1[i])[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")] 
            }
         else
            { data <- get(sum_datesdf$var2[i])[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
            }
         usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- data
        }
    }

但是,请考虑使用Map(wrapper to mapply) 逐元素地遍历sum_datesdf列并构建所需的列表,而不是通过嵌套for循环进行初始化和分配。此外,拆分为两个Map调用以绑定到c()一个列表中:

get_data <- function(obj, start, end) {
   get(obj)[paste(start, end, sep = "/")]
}

usagextsobjects <- with(sum_datesdf,
                            c(Map(get_data, var1, startperioddate, endperioddate),
                              Map(get_data, var2, startperioddate, endperioddate)
                             )
                       )

推荐阅读