函數write.csv返回錯誤

R函數write.csv返回錯誤。函數write.csv返回錯誤

這是我想寫的data.frame：

> VaRStats 
       A Index B Index  C Index 
Daily VaR  -0.65006 -0.50391  -0.5557 
Daily CVaR -0.75679 -0.57491 -0.65174 
5 Days VaR  -1.4204  -1.0077  -1.2269

這裏的類VaRStats：

> class(VaRStats) 
[1] "data.frame"

而這裏的VaRStats的dput()輸出：

> dput(VaRStats) 
structure(list(`JWFXA Index` = structure(list(`NA` = -0.650061101980277, 
    `NA` = -0.756791819719978, `JWFXA Index` = -1.42035638029947), .Names = c(NA, 
NA, "JWFXA Index")), `CCYT1 Index` = structure(list(`NA` = -0.503912574910245, 
    `NA` = -0.574907003405759, `CCYT1 Index` = -1.00773735259718), .Names = c(NA, 
NA, "CCYT1 Index")), `FX Multistrategy Index` = structure(list(
    `NA` = -0.555699685451229, `NA` = -0.651738541799373, `FX Multistrategy Index` = -1.22688572580144), .Names = c(NA, 
NA, "FX Multistrategy Index"))), .Names = c("JWFXA Index", "CCYT1 Index", 
"FX Multistrategy Index"), row.names = c("Daily VaR", "Daily CVaR", 
"5 Days VaR"), class = "data.frame")

的通過產生的錯誤功能

> write.csv(VaRStats, "SummaryStats.csv") 
Error in write.table(x, file, nrow(x), p, rnames, sep, eol, na, dec, as.integer(quote), : 
    type 'list' not implemented in 'EncodeElement'

這怎麼可能？

來源

2013-03-15 Lorenzo Rigamonti

工作正常，我...必須有缺少一塊你不提供。 – 2013-03-15 13:53:15

這裏工作也很好。也許你可以在你的'VaRStats'對象上覆制/粘貼'dput'？ – juba 2013-03-15 13:54:21

我最近有一個類似的奇怪的錯誤 - 它通過簡單地重新啓動R被修復。 – alexwhan 2013-03-15 13:56:02

在這裏，您可以簡單地這樣做：

 write.csv(as.matrix(dd), "SummaryStats.csv")

這工作，因爲所有你列是數字的。

read.csv("SummaryStats.csv") 
     X JWFXA.Index CCYT1.Index FX.Multistrategy.Index 
1 Daily VaR -0.6500611 -0.5039126    -0.5556997 
2 Daily CVaR -0.7567918 -0.5749070    -0.6517385 
3 5 Days VaR -1.4203564 -1.0077374    -1.2268857

EDIT

該解決方案是正確的。

，如果你有在你一個字符串列表：

dd[1,1] <- 'a' 

as.matrix(dd) 
      JWFXA Index CCYT1 Index FX Multistrategy Index 
Daily VaR "a"   -0.5039126 -0.5556997    
Daily CVaR -0.7567918 -0.574907 -0.6517385    
5 Days VaR -1.420356 -1.007737 -1.226886

但使用as.numeric將失敗或至少轉換爲NA

sapply(dd, as.numeric) 
    JWFXA Index CCYT1 Index FX Multistrategy Index 
[1,]   NA -0.5039126    -0.5556997 
[2,] -0.7567918 -0.5749070    -0.6517385 
[3,] -1.4203564 -1.0077374    -1.2268857 
Warning message:

來源

2013-03-15 14:06:01 agstudy

不錯（重要）跟進！ – Arun 2013-03-15 14:36:16

你可以給一個可重複的例子，我的猜測是，你有row.names和col.names的問題，還可以使用write.table，這樣就可以將所有你想要的參數

編輯：我有同樣的問題看在str !!!

R) str(test) 
'data.frame': 3 obs. of 3 variables: 
$ JWFXA Index   :List of 3 
    ..$ NA   : num -0.65 
    ..$ NA   : num -0.757 
    ..$ JWFXA Index: num -1.42 
$ CCYT1 Index   :List of 3 
    ..$ NA   : num -0.504 
    ..$ NA   : num -0.575 
    ..$ CCYT1 Index: num -1.01 
$ FX Multistrategy Index:List of 3 
    ..$ NA     : num -0.556 
    ..$ NA     : num -0.652 
    ..$ FX Multistrategy Index: num -1.23

你的數據不是COMMUN data.frame

@juba具有良好的修復，利用lapply每個列表轉換爲numeric矢量

來源

2013-03-15 13:56:55 statquant

你的列清單。它們應該是矢量。嘗試這個。

VaRStats<-sapply(VaRStats,unlist) 
write.csv(VaRStats,file="...")

來源

2013-03-15 14:03:26 ndoogan

起初在這裏誤用了lapply，但把它改成了sapply。 – ndoogan 2013-03-15 14:07:05

（+1）你可以使用'do.call（rbind，lapply（...））'（或cbind，如果它反過來）。 – Arun 2013-03-15 14:07:42

對於不明原因的原因，您的數據框列是列表，而不是向量。您可以將您的數據幀回到「正常」的格式：

df <- sapply(VaRStats, as.numeric) 
rownames(df) <- rownames(VarStats) 
write.csv(df, "yourfile.csv")

來源

2013-03-15 14:05:09 juba

（+1），但我認爲agstudy的解決方案在這裏更簡單明瞭。 – Arun 2013-03-15 14:12:56

@阿倫我同意你的意見。請註冊並接受agstudy的答案！ – juba 2013-03-15 14:15:52

函數write.csv返回錯誤

回答

相關問題