Wie erstellt man einen Zeitvektor ohne das Systemdatum bei Verwendung von R?

Question

Ich möchte einen Zeitvektor erstellen, der um 0:05:00 Uhr beginnt und am nächsten Tag um 0:00:00 Uhr endet. Das Intervall zwischen den einzelnen Zeitpunkten beträgt 5 Minuten. Dann möchte ich ein y-t Liniendiagramm mit qplot().

Hier ist mein R-Code:

t<-strptime('0:05:00','%H:%M:%S')+(0:287)*300 y<-rnorm(288,5,1) qplot(t,y,geom = 'line')

das Ergebnis ist wie folgt:

Wie Sie sehen können, das 't' mit Systemdatum '5. August' hinzugefügt. Was ich will, ist nur 'Stunde: Minute'.

Was soll ich mit meinem Code machen?

Answer 1

Hier wird eine Lösung mit ggplot2 und POSIX für Termine Formatierung, die leicht mit ggplot zu manipulieren:

df = data.frame(
t = seq(as.POSIXct("2016-01-01 05:00:00"), as.POSIXct("2016-01-02 00:00:00"), by = '5 min', tz = "Europe"), 
y = rnorm(229,5,1)) 

ggplot(df, aes(t, y)) + geom_line() + 
scale_x_datetime(labels = date_format('%H:%M', tz = "GMT"), breaks = date_breaks('2 hours')) 

Answer 2

Ein Vorschlag besteht darin, die Tickbeschriftungen manuell festzulegen. Beachten Sie, dass ich im Code unten leicht Ihren Code für t und y geändert habe, sodass sie bei 0:00:00 beginnen und enden (anstatt bei 0:05:00 zu starten).

t <- strptime('0:00:00','%H:%M:%S')+(0:288)*300 
y <- c(NA, rnorm(288,5,1)) 
tlabs <- format(t, "%H:%M") 
breaks <- seq(1, 289, 72) 
qplot(as.numeric(t),y,geom = 'line') + 
    scale_x_continuous(labels=tlabs[breaks], breaks=as.numeric(t)[breaks]) + 
    xlab("t") 

Ausgang: