將現有的多個xts物件轉換為多個data.frame

已經有一個主題詢問如何將多個xts物件轉換成盡可能多的data.frame 這里。不幸的是，這些解決方案顯示了如何對正在.GlobalEnv中下載的資料進行處理。此外，提到的執行緒的第一個答案建議創建一個新的環境，將物件下載到其中，然后用以下代碼轉換里面的所有內容。stocks <- eapply(dataEnv, as.data.frame).

然而，這將創建一個存盤在變數stocks中的大串列，而我需要的是物件保持離散。即使我在不生成串列的情況下運行代碼（即只應用 eapply(dataEnv, as.data.frame)），也不會發生任何事情。這一點已經被記錄在這里。為了更新原始物件，這個問題的答案是使用類似這樣的代碼。NKLA <- fortify.zoo(NKLA)。這個解決方案，順便說一下，對于一些可以手動完成的物件來說是可以的，我需要將這個程序自動化。

在我的案例中，物件已經被下載，其中一些是data.frames，一些是xts物件，甚至可能還有其他物件。

我需要的是找到xts物件并將其轉換為data.frames。

為了找到xts物件，我使用以下代碼。xtsObjects <- which(unlist(eapply(.GlobalEnv, is.xts)))，但是應用xtsObjects <- fortify.zoo(xtsObjects)只會創建另一個名為xtsObjects的物件，其中包含，例如，2個變數的2個觀察點（因為環境中存在2個xts物件）。

例如，下面的代碼（應該是可重復的）并沒有將離散的xts物件變為離散的data.frame：

library（quantmod）
library(zoo)
Tickers < - c("TSLA"。  "RMO"。  "TSM", "PDD"）
getSymbols.yahoo(tickers,自動。 指定= TRUE。  env = globalenv()）

xtsObjects <-其中（unlist（eapply（. GlobalEnv, is.xts))）。

# This does not do anything:.
for (i in 1。 length(xtsObjects))fortify. zoo(xtsObjects[i])

我的問題：

• 我可以使用什么回圈（或任何代碼），以便同時將原來已經加載/存在的xts物件更新為data.frame物件？

使用的系統：

• R版本。4.1.1 (2021-08-10)
• RStudio版本：1.4.1717
作業系統：macOS Catalina 10.15.7版本。

uj5u.com熱心網友回復：

通過用which進行包裝，它只是回傳帶有物件的名稱的位置，而不是實際的物件。 我們可能需要從'xtsObjects'的輸出中獲取帶有names的物件的值(mget - 回傳一個list中多個物件的值，然后用map在list上回圈，并轉換為data.frame)

library（dplyr）
library(purrr)
out < - mget(names(xtsObjects) %> % 
      map（fortify.zoo）

輸出

> str(out) /span>
4的串列
 $ PDD :'data. frame': 793 obs. of 7 variables:
  .. $索引：日期[1。 793],格式。  "2018-07-26"/span> "2018-07-27"/span> "2018-07-30"/span> "2018-07-31"/span> . ..
  ...$ PDD. 打開: num [1: 793] 26. 5 27.5 23.3 22.2 19.4 ...
  ...$ PDD. 高 : num [1。 793] 27. 5 27.5 23.9 22.7 21.4 ...
  ...$PDD。 低 : num [1。 793] 25 23。 2 21.9 19.6 18.6 ...
  ...$ PDD. 關閉: num [1。 793] 26. 7 24.6 22.5 22.6 20.3 ...
  ...$ PDD. 量 : num [1。 793] 43213200 19923300 13967700 13709600 19339000 。 ..
  ...$PDD。 調整后： num [1。 793] 26. 7 24.6 22.5 22.6 20.3 ...
 $ RMO :'data. frame': 623obs.of 7 variables:.
  .. $索引：日期[1。 623],格式。  "2019-04-01" "2019-04-02" "2019-04-03" "2019-04-04" 。 ..
  ...$ RMO。 打開: num [1: 623] 9. 8 9. 75 9.75 9.76 9.78 9. 76 9.76 9.77 9.74 9.74 ...
  ...$ RMO。 高 : num [1。 623] 9. 8 9. 75 9.75 9.76 9.78 9. 76 9.76 9.77 9.74 9.74 ...
  ...$ RMO。 低 : num [1。 623] 9. 75 9. 75 9.75 9.76 9.75 9. 76 9.76 9.77 9.74 9.74 ...
  ...$ RMO。 關閉: num [1。 623] 9. 75 9. 75 9.75 9.76 9.75 9. 76 9.76 9.77 9.74 9.74 ...
  ...$ RMO. 成交量： num [1。 623] 161000 11000 0 1000 100600 。 ..
  ...$ RMO。 調整后的： num [1。 623] 9. 75 9. 75 9.75 9.76 9.75 9. 76 9.76 9.77 9.74 9.74 ...
 $ TSLA:'data. frame': 2826 obs. of 7 variables:
  .. $索引：日期[1。 2826],格式。  "2010-06-29" "2010-06-30" "2010-07-01" "2010-07-02". ..
  ...$ TSLA. 打開: num [1: 2826] 3。 8 5.16 5 4.6 4 ...
  ...$ TSLA. 高 : num [1。 2826] 5 6。 08 5.18 4.62 4 ...
  ...$ TSLA. 低 : num [1。 2826] 3. 51 4.66 4.05 3.74 3.17 ...
  ...$ TSLA. Close : num [1。 2826] 4. 78 4.77 4.39 3.84 3.22 ...
  ...$ TSLA. 成交量： num [1。 2826] 93831500 85935500 41094000 25699000 34334500 。 ..
  ...$ TSLA. 調整后： num [1。 2826] 4. 78 4.77 4.39 3.84 3.22 ...
 $ TSM :'data. frame': 3704 obs. of 7 variables:
  .. $索引：日期[1。 3704],格式。  "2007-01-03" "2007-01-04" "2007-01-05" "2007-01-08" 。 ..
  ...$ TSM。 打開: num [1: 3704] 11. 1 10.9 10.8 10.6 10.8 ...
  ...$ TSM。 高 : num [1。 3704] 11. 1 11 10.8 10.8 10.8 ...
  ...$ TSM. 低 : num [1。 3704] 10. 8 10.7 10.5 10.6 10.5 ...
  ...$ TSM。 關閉: num [1。 3704] 10。 9 10.9 10.6 10.7 10.6 ...
  ...$ TSM. Volume : num [/span>1。 3704] 12438784 17678653 12691240 5477350 7396096 。 ..
  ...$ TSM。 調整后： num [1。 3704] 6. 38 6.38 6.21 6.25 6.17 ...

關于for回圈沒有做任何事情的問題，1）它只是試圖在物件的名稱上做fortify.zoo，而不是在值上，2）即使是應用fortify.zoo的值，它也應該被分配回原始物件，即如果我們想更新原始物件的名稱，使用assign

for （i in seq_along(xtsObjects)) {
     assign(names(xtsObjects[i]）。 強化。 zoo(get(names(xtsObjects[i]))))。
}。

uj5u.com熱心網友回復：

使用names(which())，然后lapply。

xtsObjects < - names（which（unlist（eapply（. GlobalEnv, is.xts)))。
res <- lapply(mget(xtsObjects)，fortify。 zoo)
head(res[[1])
# Index RMO.Open RMO.High RMO.Low RMO.Close RMO.Volume RMO.Adjusted
# 1 2019-04-01 9.80 9.80 9.75 9.75 161000 9.75
# 2 2019-04-02 9.75 9.75 9.75 9.75 11000 9.75
# 3 2019-04-03 9.75 9.75 9.75 9.75 0 9.75
# 4 2019-04-04 9.76 9.76 9.76 9.76 1000 9.76.
# 5 2019-04-05 9.78 9.78 9.75 9.75 100600 9.75
# 6 2019-04-08 9.76 9.76 9.76 9.76 20500 9.76.

長度（res）
# [1] 4
names（res）
# [1] "RMO" "TSM" "TSLA" "PDD" 

要想直接在作業區中獲得所得到的資料框架，請使用list2env。

list2env（lapply(mget(xtsObjects)。 強化。 zoo））
ls() ## list objects currently in workspace。
# [1] "PDD" "RMO" "tickers" "TSLA" "TSM" "xtsObjects" 

標籤：

上一篇：在javascript中對一個陣列進行迭代并將其值追加到一個字典中

下一篇：將while回圈轉換為.forEach有意外的結果