So drucken Sie das Datumsformat von POSIXct in

Question

start <- as.POSIXct("2016-01-17") 
end <- start + as.difftime(72, units="days") 
for(i in seq(from=start, by=60*60*24*7, to=end)) { 
     print(i) 
} 

Wie die Codes oben zeigen, versuche ich das Datum nach Jahr 2016 innerhalb von 72 Tagen auszudrucken. Die Ausgabe ist jedoch immer Zahlen wie 1453006800. Ich habe versucht alles, was ich denken kann einschließlich as.Date, as.Date (i, origin = "2016-01-17 00:00:00 EST") ... .Vielen Dank!

Answer 1

Das Problem hier ist, dass während "Start" und "Ende" POSIX-Datumsobjekte sind, "i" nicht ist. Dies wird durch ihre Strukturen überprüft:

> str(start) 
POSIXct[1:1], format: "2016-01-17" 
> str(i) 
num 1.46e+09 

Sie andere Looping Funktion können Sie statt „für“, das „i“, um numerische zu sein scheint Nötigung. Sie können eine while Schleife wie verwenden:

> i = start 
> while (i < end) { 
i = i + 60*60*24*7 
print(i) 
}