xyplot()에서 패널 순서를 제어하려면 어떻게해야합니까?

Question

R은 패널 순서를 xyplot()으로 알파벳 순서 (문자열의 경우) 또는 수준 순서 (요인의 경우)로 결정합니다. 알파벳순이 아닌 연대순으로 표시하고자하는 텍스트로 날짜가 있습니다.

xyplot(y ~ x | date, data = df) 

을하지만이 순서에서 날짜를 박았 :

x <- sample(1:10, 10, replace = TRUE) 
y <- sample(1:10, 10, replace = TRUE) 
# overlapping 2010 and 2011 
date <- rep(as.Date("2010-01-01") + sort(sample(200:400, 5)), each = 2) 
striptext <- format(date, "%d-%b ...") 
df <- data.frame(x, y, date, striptext) 

이 잘 작동

xyplot(y ~ x | striptext, data = df) 

내가 스트립의 전체 날짜를 싶지 않아,하지만 난 싶어 올바른 순서로. 주문한 요인으로 striptext을 만드는 것 외에 어떤 해결책이 있습니까?

Answer 1

명시 적으로 striptext의 수준을 설정하고 그 격자 (수준이 알파 위해 끝입니다) 당신을위한 강제 할 필요가 없도록 요소로 저장 :

set.seed(1) 
x <- sample(1:10, 10, replace = TRUE) 
y <- sample(1:10, 10, replace = TRUE) 
# overlapping 2010 and 2011 
date <- rep(as.Date("2010-01-01") + sort(sample(200:400, 5)), each = 2) 
striptext <- format(date, "%d-%b ...") 
## set the levels explicitly 
df <- data.frame(x, y, date, 
       striptext = factor(striptext, levels = unique(striptext))) 
xyplot(y ~ x | striptext, data = df)