R: Plot zwei Datensätze in einer Zeile

Question

Ziemlich neu zu R und wollte sehen, ob dies möglich ist. Ich habe die unten angegebenen Daten und möchte x und y auf der gleichen Linie plotten, so y weiter, wo x bei 19 aufgab und bei 21 auffiel, mit ggplot2.

Würde R in der Lage sein, damit umzugehen, wenn ich mehr Spalten wie, a, b, ect hätte?

Rote Punkte = x Grüne Punkte = y

mydata = structure(list(q = 1:7, x = c(12L, 18L, 21L, 19L, 0L, 0L, 0L), 
    y = c(0L, 0L, 0L, 0L, 21L, 25L, 23L)), .Names = c("q", "x", 
"y"), class = "data.frame", row.names = c(NA, -7L)) 

Answer 1

Versuchen Sie dies mit base R Grundstück:

df <- read.table(text='q x y 
       1 12 0 
       2 18 0 
       3 21 0 
       4 19 0 
       5 0 21 
       6 0 25 
       7 0 23 ', header=TRUE) 

df$y[df$y==0] <- df$x[df$x!=0] 
plot(df$q, df$y, pch=19, col=ifelse(df$x==0, 'green', 'red'), xlab='q', ylab='x or y') 
lines(df$q, df$y, col='steelblue') 

lines(df$q, df$y, col='red') 
lines(df$q[df$x==0], df$y[df$x==0], col = 'green') 

Answer 2

Sie bräuchten Ihre Daten mit dem Paket tidyr und die Funktion gather (ggplot2 mag lange Daten) neu zu gestalten, dann entfernen die Punkte sind gleich Null.

library(tidyr) 
library(ggplot2) 

df <- data.frame(q = seq(1:7), 
       x = c(12,18,21,19,0,0,0), 
       y = c(0,0,0,0, 21, 25, 23)) 

plot_data <- gather(df, variable, value, -q) 

plot_data <- plot_data[plot_data$value != 0,] 

ggplot(plot_data, aes(x = q, y = value)) + 
    geom_line(color = "black") + 
    geom_point(aes(color = variable))