0

我有以下代码：

    tradingDates <- c(as.Date("1996-12-31", format = "%Y-%m-%d" ), 
                      as.Date("1997-12-31", format = "%Y-%m-%d" ))
    d1 <- data.frame(CUSIP=c("039229109","M33228109"),
             Port.Weights=as.numeric(c("3.571429","4.976429")), 
             Trade.Date = as.Date("1996-12-31", format = "%Y-%m-%d" ), stringsAsFactors = FALSE)
    d2 <- data.frame(CUSIP=c("432764733","324K32586"),
             Port.Weights=as.numeric(c("6.243803","1.469823")), 
             Trade.Date = as.Date("1997-12-31", format = "%Y-%m-%d" ), stringsAsFactors = FALSE)
    myList <- list(d1, d2)

    thePorts <- lapply(seq_along(myList), function(x)
                       rbind(myList[[x]],
                             c("78462F10", 
                               sum(as.numeric((-.01)*myList[[x]]$Port.Weights[1])), 
                               as.Date(as.character(tradingDates[x]), format= "%Y-%m-%d")),
                             c("CASH_USD",
                               sum(as.numeric((.01)*myList[[x]]$Port.Weights[1])),
                               as.Date(as.character(tradingDates[x]), format= "%Y-%m-%d"))))

我得到的错误是：

     Error in charToDate(x) : character string is not in a standard unambiguous format

我已经尝试了我能想到的所有方法来格式化这个日期，应该注意的是，在 rbind 和 lapply 之外，这条线工作正常：

    x=5
    format(as.Date(as.character(tradeDates[x]), format= "%Y-%m-%d"), "%Y%m%d")
4

1 回答 1

1

问题是您对c()混合数据的使用。类型。c()仅用于组合相同类型的元素（除非被包重载），因此它将强制所有内容为相同的 data.type。如果你跑

lapply(seq_along(myList), function(x)
    c("78462F10", 
    sum(as.numeric((-.01)*myList[[x]]$Port.Weights[1])), 
    as.Date(as.character(tradingDates[x]), format= "%Y-%m-%d")))

# [[1]]
# [1] "78462F10"    "-0.03571429" "9861"       
# 
# [[2]]
# [1] "78462F10"    "-0.06243803" "10226"

您会看到所有内容都转换为字符串。这包括第一次转换为数字的日期，这里用自 1970 年 1 月 1 日以来的天数表示。虽然简单的向量只能保存一种类型的数据，但 alist()能够保存不同类型的数据。因此，将您的代码更改为

thePorts <- lapply(seq_along(myList), function(x)
    rbind(myList[[x]],
        list("78462F10", 
            sum(as.numeric((-.01)*myList[[x]]$Port.Weights[1])), 
            as.Date(as.character(tradingDates[x]), format= "%Y-%m-%d")),
        list("CASH_USD",
            sum(as.numeric((.01)*myList[[x]]$Port.Weights[1])),
            as.Date(as.character(tradingDates[x]), format= "%Y-%m-%d"))
    )
)

这返回

[[1]]
      CUSIP Port.Weights Trade.Date
1 039229109   3.57142900 1996-12-31
2 M33228109   4.97642900 1996-12-31
3  78462F10  -0.03571429 1996-12-31
4  CASH_USD   0.03571429 1996-12-31

[[2]]
      CUSIP Port.Weights Trade.Date
1 432764733   6.24380300 1997-12-31
2 324K32586   1.46982300 1997-12-31
3  78462F10  -0.06243803 1997-12-31
4  CASH_USD   0.06243803 1997-12-31

根据需要（我假设）

于 2014-07-24T18:11:47.050 回答