Wie groß die Dichte-plots (für mehrere Variablen) in ggplot geschmolzen Daten

Habe ich eine geschmolzene Daten-set, die enthält auch Daten von der Normalverteilung. Ich will plot der empirischen Dichte-Funktion meine Daten gegen die Normalverteilung, sondern die Skalen der beiden erzeugten Dichte-plots unterschiedlich sind. Ich könnte diesen Beitrag für zwei verschiedene Datensätze:

Normalisierung der x-Skalen überlagern Dichte-plots in ggplot

aber ich konnte nicht herausfinden, wie man es anwenden geschmolzen Daten. Angenommen ich habe einen Daten-frame, wie dies:

df<-data.frame(type=rep(c('A','B'),each=100),x=rnorm(200,1,2)/10,y=rnorm(200))
df.m<-melt(df)

mithilfe des folgenden Codes:

qplot(value,data=df.m,col=variable,geom='density',facets=~type)

erzeugt diese Kurve:
Wie groß die Dichte-plots (für mehrere Variablen) in ggplot geschmolzen Daten

Wie kann ich die zwei dichten vergleichbar angesichts der Tatsache, dass die Normalverteilung ist die Referenz-plot? (Ich benutze lieber qplot statt ggplot)

UPDATE:
Ich möchte etwas produzieren, wie dies (D. H. in Bezug auf die Handlung-Vergleich), aber mit ggplot2:

plot(density(rnorm(200,1,2)/10),col='red',main=NA) #my data
par(new=T)
plot(density(rnorm(200)),axes=F,main=NA,xlab=NA,ylab=NA) # reference data

generiert diese:
Wie groß die Dichte-plots (für mehrere Variablen) in ggplot geschmolzen Daten

InformationsquelleAutor Amin | 2014-01-18
  1. 6
    df<-data.frame(type=rep(c('A','B'),each=100),x = rnorm(200,1,2)/10, y = rnorm(200))
df.m<-melt(df)

require(data.table)
DT <- data.table(df.m)

    Fügen Sie eine neue Spalte mit den skalierten Wert in DT. Dann zeichnen.

    Dies ist der image-code: 

    DT <- DT[, scaled := scale(value), by = "variable"]
str(DT)

ggplot(DT) +
  geom_density(aes(x = scaled, color = variable)) +
  facet_grid(. ~ type)

qplot(data = DT, x = scaled, color = variable,
      facets = ~ type, geom = "density")

# Using fill (inside aes) and alpha outside(so you don't get a legend for it)
ggplot(DT) +
  geom_density(aes(x = scaled, fill = variable), alpha = 0.2) +
  facet_grid(. ~ type)

qplot(data = DT, x = scaled, fill = variable, geom = "density", alpha = 0.2, facets = ~type)

# Histogram
ggplot(DT, aes(x = scaled, fill = variable)) +
  geom_histogram(binwidth=.2, alpha=.5, position="identity") +
  facet_grid(. ~ type, scales = "free")

qplot(data = DT, x = scaled, fill = variable, alpha = 0.2, facets = ~type)

    Wie groß die Dichte-plots (für mehrere Variablen) in ggplot geschmolzen Daten

    • vielen Dank,aber wie Sie sehen können, im Bild die x ist auf unterschiedlichen Skalen.In anderen Worten, Sie sind immer noch nicht vergleichbar.Ich will Skala x in die Waagschale y wie, was passiert in dem link, den ich bereits in meinem post.
    • Ich sehe, ich werde mein edit beantworten. Sie müssen nur zum Maßstab der Wert-Spalte die Gruppierung von Variablen anstelle von Typ.
    • Danke Martin.Ist es möglich, konvertieren Sie die Grafik auf Grau oder schwarz&weiß für den Druck?
    • Sie erhalten weißen hintergrund hinzufügen + theme_bw (), um den code.
    • Ich meinte eine Graustufen-Grafik und nicht nur der hintergrund.
    InformationsquelleAutor marbel
  2. 9

    Ist es das, was du im Sinn hatte?

    Wie groß die Dichte-plots (für mehrere Variablen) in ggplot geschmolzen Daten

    Gibt es eine built-in variable..scaled.., die dies automatisch erledigt.

    set.seed(1)
df<-data.frame(type=rep(c('A','B'),each=100),x=rnorm(200,1,2)/10,y=rnorm(200))
df.m<-melt(df)
ggplot(df.m) + 
  stat_density(aes(x=value, y=..scaled..,color=variable), position="dodge", geom="line")
    • ja.dies scheint, um zu arbeiten und müssen nicht verwenden DT.Aber es scheint scale x zu viel oder zumindest mehr als y.
    InformationsquelleAutor jlhoward
Schreibe einen Kommentar