Wie überlagerung streudiagramme in R?

Wenn ich die drei Sätze von Daten :

a1= rnorm(10)
a2= rnorm(10)
a3= rnorm(10)

eher als die Suche auf dieser Seite benutzen:

par(mfrow=c(1,3))
plot(a1)
plot(a2)
plot(a3)

Wie bekomme ich all diese Punkte auf ein und demselben Grundstück?

In der Basis-Grafik, die Sie hinzufügen, Dinge, die zu einem bestehenden plot mit Funktionen wie points, lines usw., zu fordern, anstatt plot wieder. (Beachten Sie, dass dies ist, zeigte im letzten Beispiel in ?plot.)

InformationsquelleAutor Cath Penfold | 2013-10-01

  1. 24

    Verwenden Sie einfach die points Funktion:

    plot(a1)
points(a2, col=2)
points(a3, col=3)

    Dies ist äquivalent zu:

    plot(1:length(a1), a1)
points(1:length(a2), a2, col=2)
points(1:length(a3), a3, col=3)

    Wenn die Vektoren unterschiedlicher Länge, dann sollten Sie die x-Achse begrenzen:

    plot(a1, xlim=c(1, max(length(a1), length(a2), length(a3))))
    Um Platz für die zusätzliche Abfrage nach dem Umgang mit Vektoren unterschiedlicher Längen, diese müssen geändert werden, von einem "nur" - Typ der Antwort.
    Die OP-Lösung nicht eigentlich mit der Frage - Sie haben vertauscht die x-und die y-Achse herum.
    Ich bin damit einverstanden, dass die Frage war nicht wirklich gut formuliert. Ich denke, die OP war mit SO etwas wie ein persönliches wiki und nicht wirklich denke, durch genau das, was Sie Fragen wollte 🙂

    InformationsquelleAutor csgillespie

  2. 8
    # To overlay scatterplots in R

# import the required libraries
library(ggplot2)
library(reshape2)

# assign data
a1=rnorm(10)
a2=rnorm(10)
a3=rnorm(10)

# create a dataframe from combined data
# and set count to however many points are in each dataset
df = data.frame(a1, a2, a3, count = c(1:10))

# melt the dataframe
df.m = melt(df, id.vars ="count", measure.vars = c("a1","a2","a3"))

# take a look at what melt() does to get an idea of what is going on
df.m

# plot out the melted dataframe using ggplot
ggplot(df.m, aes(count, value, colour = variable)) + geom_point() + ylim(-3,3)

# swapping the axis
ggplot(df.m, aes(value, count, colour = variable)) + geom_point() + xlim(-3,3)

    Wenn a1 und a3 sind gleich in der Größe, es ist nicht möglich, in die gleiche data.frame als Spalten, die als Eingabe für die melt. Die Lösung ist einfach mit einem list:

    a1 = rnorm(10)
a2 = rnorm(25)
a3 = rnorm(17)
a_list = list(a1, a2, a3)
a_df = do.call("rbind", lapply(a_list, 
                                function(x) data.frame(value = x, 
                                                       count = seq_along(x))))
ID_options = LETTERS[seq_along(a_list)]
a_df$ID = rep(ID_options, sapply(a_list, length))
ggplot(a_df, aes(x = value, y = count, color = ID)) + geom_point()

    Wie überlagerung streudiagramme in R?

    Ich fügte hinzu, eine Implementierung, funktioniert mit ungleichen Vektoren.
    Dieser plot ist nicht das gleiche wie plot(a1) Die x-und y-Achse wurden getauscht.

    InformationsquelleAutor Cath Penfold

  3. 3

    Hinzufügen, um die Vielfalt der Antworten können Sie auch lattice. Hier die zweite Zeile in jedem code-Beispiele repräsentieren die Achsen vertauscht.

    library(lattice)

## If you have already created the "df" 
##   data.frame from your example
xyplot(count ~ a1 + a2 + a3, data=df)
xyplot(a1 + a2 + a3 ~ count, data=df)

## Without first creating the "df" 
##   data.frame from your example    
xyplot(1:10 ~ a1 + a2 + a3)
xyplot(a1 + a2 + a3 ~ 1:10)

    Wenn Sie die Arbeit mit Vektoren unterschiedlicher Länge, Sie können das laden der Funktionen aus diese Antwort, die ich gemeinsam über cbinding Vektoren unterschiedlicher Länge und verwenden Sie dann den ersten Ansatz, den ich erwähnt. Update: Siehe https://gist.github.com/mrdwab/6789277 für die neuesten Versionen der Funktion.

    Beispiel:

    a1 = rnorm(10)
a2 = rnorm(25)
a3 = rnorm(17)

library(lattice)
library(devtools)
## source_gist is not working properly unless you provide 
##   the full URL to the "raw" file
source_gist("https://gist.github.com/mrdwab/6789277/raw/9bd7d5931389ec475c49c1918d26d9899796a5d0/Cbind.R")

newdf <- Cbind(a1, a2, a3)
xyplot(a1 + a2 + a3 ~ sequence(nrow(newdf)), data=newdf)
xyplot(sequence(nrow(newdf)) ~ a1 + a2 + a3, data=newdf)

    Hier ist ein Beispiel-Grundstück mit ein wenig Anpassungen an den Standard-Farben:

    xyplot(sequence(nrow(newdf)) ~ a1 + a2 + a3, data=newdf, 
       pch = 21, fill = c("black", "red", "green"), cex = 1)

    Wie überlagerung streudiagramme in R?

    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1

Schreibe einen Kommentar