Zmieniaj tekst na paskach na działkach kratowych

Question

Jak zmienić tekst wyświetlany na pasach wykresów krat? przykład: załóżmy, że posiada test ramki danych, składający się z 3 kolumnami

x 
[1] 1 2 3 4 5 6 7 8 9 10 

y 
[1] "A" "A" "A" "A" "A" "B" "B" "B" "B" "B" 

a 
[1] -1.9952066 -1.7292978 -0.8789127 -0.1322849 -0.1046782 0.4872866 
[7] 0.5199228 0.5626998 0.6392686 1.6604549 

zwykłego połączenia z wykresem kratowego

xyplot(a~x | y,data=test) 

daje wykres z tekstem 'A' i 'B' na pasach

Jak mogę napisać różne paski na taśmach?

attept z innej postaci wektorowej

z 
[1] "a" "a" "a" "a" "a" "b" "b" "b" "b" "b" 

i wezwaniem do strip.custom()

xyplot(a~x | y,data=test,strip=strip.custom(var.name=z)) 

nie daje pożądanego rezultatu.

W rzeczywistości jest to problem internacjonalizacji.

Answer 1

Jeśli się twoja postać wektora czynnikiem następnie można po prostu zmienić poziomy:

> xyplot(a~x | y,data=test)  # your plot 
> test$y=as.factor(test$y)  # convert y to factor 
> xyplot(a~x | y,data=test)  # should be identical 
> levels(test$y)=c("Argh","Boo") # change the level labels 
> xyplot(a~x | y,data=test)  # new panel labels! 

Answer 2

myślę, co chcesz może zostać pobrane poprzez:

z <-c("a" , "b") # Same number of values as there are panels 
xyplot(a~x | y,data=test,strip=strip.custom(factor.levels=z))