从 .csv 生成带有一些字符/"#N/A" 的数字 xts

Question

我输入带标题的 Excel CSV 并使用 str(returns.xts) 检查。以下代码生成 xts.

中的字符值

file <- "~/GCS/returns_Q216.csv"
returns_Q216_ <- read.csv(file=file)
returns <- read.zoo(data.frame(returns_Q216_), FUN = as.Date, format='%d/%m/%Y')
returns.xts <- as.xts(returns)

在保留 xts（和日期列）的同时将 xts 内容从字符转换为数字的最佳方法是什么？

> `str(returns)`
An ‘xts’ object on 2007-01-31/2015-05-31 containing:
  Data: `chr` [1:101, 1:18] "-0.002535663" "-0.001687755" "0.032882512" "0.024199512" "0.027812955" ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:18] "UK.EQUITY" "EUR.EQUITY" "NA.EQUITY" "ASIA.EQUITY" ...
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
 NULL
> returns[8,9]
           PROPERTY      
2007-08-31 "-4.25063E-05"

当我尝试 as.numeric(returns.xts) 时，我得到一个结构 1x1 单元格，没有日期作为行。

> str(as.numeric(returns))
num [1:1818] -0.00254 -0.00169 0.03288 0.0242 0.02781 ...

Answer 1

你应该使用 na.strings 参数到 read.csv（可以通过 read.zoo 传递），正如我在 .

中所说的

file <- "~/GCS/returns_Q216.csv"
returns <- read.zoo(file, FUN=as.Date, format='%d/%m/%Y', na.strings="#N/A")
returns.xts <- as.xts(returns)

从 .csv 生成带有一些字符/"#N/A" 的数字 xts

Generate an xts of numerics from .csv with some characters/"#N/A"

csv

r

xts