Verwenden von DSCAST zu vergleichen 2 mal und Facette von Variable

Question

Ich benutze die integrierte "french_fries" Daten in Paket reshape2, um ein Scatter-Diagramm zu machen Zeit = 1 zu Zeit = 10 und Facette von jeder Variablen zu vergleichen. Bisher habe ich den folgenden Code:

molten_fries <- melt(french_fries, id=1:4) 

    fry_dat <- molten_fries %>% 
    filter(time==c(1,10)) 

    cast_fries <- dcast(fry_dat, rep + treatment + subject + variable~time, 
    mean, value.var="value", na.rm=TRUE) 
    colnames(cast_fries) <- c("rep", "treatment", "subject" , "variable", 
    "t1","t10") 

    ggplot(cast_fries, aes(t1,t10)) + 
    geom_point(na.rm=T) + 
    facet_wrap(~variable, nrow=1) 

Answer 1

Nur ein Problem in Ihrem Code: Zur Zeit 1 & 10 wählen, entweder Sie time == 1 & time == 10 oder time %in% c(1,10) filtern. Der Rest ist ok

library(reshape2) 
molten_fries <- melt(french_fries, id=1:4) 

library(dplyr) 
fry_dat <- molten_fries %>% 
    filter(time %in% c(1,10)) 

cast_fries <- dcast(fry_dat, rep + treatment + subject + variable~time, 
        mean, value.var="value", na.rm=TRUE) 
colnames(cast_fries) <- c("rep", "treatment", "subject" , "variable", 
          "t1","t10") 
library(ggplot2) 
ggplot(cast_fries, aes(t1,t10)) + 
    geom_point(na.rm=T) + 
    facet_wrap(~variable, nrow=1)