日期輸出格式不適合

我有一個功能，它執行一些條件檢查並輸出一個「日期」對象。「s」類是「Date」。但「mapply」的輸出是一個數字向量。我希望輸出「dataF1 $ RECENCY」也是一個日期對象。需要幫助日期輸出格式不適合

dataF1 = read.csv("C:\\Users\\DATA.csv", header = TRUE, sep = ",") 
dataF1$DT = as.Date(dataF1$DT, format = "%d-%b-%y") 

myFunction <- function(x, y, z){ 
    if (x == "U"){ 
     s = z + 60 
    } 
    else { 
     if (y == "ANNUAL"){ 
      s = z + 30 
     } 
     else { 
      s = z + 15 
     } 
    } 
    print (s) 
    print (class(s)) 
    return(s) 
} 

dataF1$RECENCY = mapply(myFunction, x = dataF1$TYPE, y = dataF1$PAYMENT, z = dataF1$DT) 

> head(dataF1$RECENCY) 
[1] 13966 14340 14467 13752 13721 13752

來源

2014-01-05 user1946217

不允許mapply簡化您的結果。

> mapply(function(x) {as.Date(x, format = "%m.%d.%Y")}, x = "1.5.2014", SIMPLIFY = FALSE) 
$`1.5.2014` 
[1] "2014-01-05" 

> mapply(function(x) {as.Date(x, format = "%m.%d.%Y")}, x = "1.5.2014", SIMPLIFY = TRUE) 
1.5.2014 
    16075

您可以使用do.call創建自己的矢量。

out <- mapply(function(x) {as.Date(x, format = "%m.%d.%Y")}, x = c("1.5.2014", "2.5.2014"), SIMPLIFY = FALSE) 
do.call("c", out) 
    1.5.2014  2.5.2014 
"2014-01-05" "2014-02-05"

來源

2014-01-05 14:51:41

你也可以使用'Map'。 – agstudy

日期輸出格式不適合

回答

相關問題