R - Plotten mehrerer Zeitreihen, gleiche x-Achsenwerte, aber Zeit ist gemischt innerhalb Datenrahmen

Question

Ich versuche, den folgenden Datenrahmen zu plotten, wo es 3 verschiedene Zeitreihen gibt (identifiziert durch user0, user1 und user2) . Jede Zeile hat eine Benutzerkennung, das Datum und einen Wert.

> df 
    userId  date steps 
1 user0 2016-03-24 794 
2 user0 2016-03-25 562 
3 user0 2016-03-26 682 
4 user0 2016-03-27 722 
5 user0 2016-03-28 883 
6 user1 2016-03-24 3642 
7 user1 2016-03-25 3776 
8 user1 2016-03-26 3585 
9 user1 2016-03-27 3585 
10 user1 2016-03-28 3471 
11 user2 2016-03-24 5959 
12 user2 2016-03-25 5933 
13 user2 2016-03-26 5802 
14 user2 2016-03-27 6094 
15 user2 2016-03-28 5903 
> dput(df) 
structure(list(userId = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 
2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), .Label = c("user0", "user1", 
"user2"), class = "factor"), date = structure(c(16884, 16885, 
16886, 16887, 16888, 16884, 16885, 16886, 16887, 16888, 16884, 
16885, 16886, 16887, 16888), class = "Date"), steps = c(794L, 
562L, 682L, 722L, 883L, 3642L, 3776L, 3585L, 3585L, 3471L, 5959L, 
5933L, 5802L, 6094L, 5903L)), .Names = c("userId", "date", "steps" 
), row.names = c(NA, -15L), class = "data.frame") 

würde Ich mag Grundstück all Zeitreihen mit verschiedenen Farben und mit dem Datum als die x-Achse (jedoch viele dort vom Feld userId identifiziert werden). Ich habe Folgendes versucht, aber wie Sie sehen können, werden die Daten auf der x-Achse wiederholt.

plot(df$steps, axes=F, xlab="", ylab="Steps", ylim=c(0,max(df$steps))) 
axis(2) 
axis(1, at = seq_along(df$date), labels = df$date, las = 2, cex.axis = 0.70) 
box() 

schaute ich auf anderen Nachrichten, wie „Plot multiple lines (data series) each with unique color in R“ und „Plotting multiple time series on the same plot using ggplot()“, aber sie haben nicht mein Problem des Zeitvariable mit den anderen Daten vermischt werden.

Eine Lösung mit Farblinien mit und ohne ggplot würde sehr geschätzt werden.

Answer 1

Mit ggplot:

library(ggplot2) 
ggplot(df, aes(x = date, y = steps, colour = userId)) + geom_line() 

---

Ein Äquivalent (aber immer noch ziemlich hässlich) Basis R-Version braucht viel mehr Arbeit:

plot(0, type = 'n', axes = FALSE, xlab = 'date', ylab = 'steps', 
    xlim = c(min(df$date), max(df$date)), 
    ylim = c(min(df$steps) - 100, max(df$steps) + 100)) 
axis.Date(1, df$date, format = '%F') # `axis.Date` is helpful here 
axis(2, seq(0, max(df$steps + 500), 500)) 
box() 
lapply(split(df, df$userId), function(x){lines(x$date, x$steps, 
               col = as.numeric(substr(x$userId, 5, 5)) + 1)}) 
# `paste` extra space to align legend correctly...*sigh* 
legend('bottomright', paste(levels(df$userId), ' '), col = 1:3, lty = 1) 

Beachten Sie, dass es eine gute Feinabstimmung erfordert.

Answer 2

ist hier eine Basis R-Version:

plot(0, 0, type = "n", xlim = range(df$date), ylim = c(0, max(df$step)), axes = FALSE, xlab = "", ylab = "steps") 
axis(2, las = 1) 
axis(1, at = df$date, labels = df$date, las = 2, cex.axis = 0.70) 
box() 

cols <- c("red", "green", "blue") 
for (i in 1:length(unique(df$userId))) 
    with(df[df$userId == unique(df$userId)[i], ], lines(date, steps, col = cols[i]))