하나 이상의 변수로 플롯 라인 분석

Question

남성과 여성 모두 피험자에 대해 이틀간 (하루 o, 하루 1) 두 가지 수준의 데이터 (높음, 낮음)를 표시하고자합니다. 나는 하루 종일 평평하게 성공했다. 그러나 나는 성별을 결합하고 식별하지 못했습니다. 0 일째와 1 일째에 남자/여자를 함께 보여주고 싶습니다. 아래에 제가 작성하려고 시도한 코드가 있습니다. 이 링크는 당신을 도울 것입니다

data <- function(ids,time_vec) { 
obs.data <- 
data.frame(expand.grid(ids,time_vec),DOSE=0,Conc=rnorm(13,10,2),Day=0) 
names(obs.data) <- c("ID","TIME","DOSE","Conc","Day") 
obs.data<-obs.data[order(obs.data$ID),] 
return(obs.data) 
} 

test<-data(ids=1:4, time_vec= seq(0,120,10)) 
test$Gender<-ifelse(test$ID==1|test$ID ==3,"Male","Female") 
test$Day<-ifelse(test$ID==1|test$ID==2,"Day 1","Day 2") 
test$DoseLevel<-ifelse(test$ID==1|test$ID==2,"Low","High") 

gf1<-ggplot(test,aes(x=TIME, y=(Conc), group=interaction(DoseLevel,Day, 
    Gender)))+ 
    geom_line(size=1.25)+ 
    facet_grid(DoseLevel~.,as.table=FALSE) 
gf1 

gf2<-gf1+ geom_point(aes(shape=factor(Day), fill=factor(Day), 
colour=factor(Day)),size=4,show_guide=TRUE)+ 
    scale_shape_manual(values=c(21, 21))+ 
    scale_fill_manual(values=c("black","white"))+ 
    scale_colour_manual(values=c("black","black")) 
gf2 

Answer 1

사전에 감사 : Plotting continuous and discrete series in ggplot with facet 그냥 사용 melt 기능을 돌.