R: Как изменить текст полос в решетчатом xyplot R

Question

Я пытаюсь использовать гистограмму функции для отображения плотности некоторых данных.Примерный формат данных выглядит следующим образом:

   library(lattice)
   index<-c(1,1,1,2,2,2,2)
   freq<-c(3,4,6,3,6,2,2)
   D<-data.frame(index,freq)
   histogram(~D$freq|D$index)

Я хочу, чтобы индексный номер был напечатан в виде текста полосы для каждой гистограммы (т.е. в этом примере 1 и 2 сверху гистограммы соответственно вместо текущей)напечатано D$index), но я не знаю простого способа сделать это (я знаю, что я должен использовать strip.custom(), возможно, и правильно изменить var.name, но я не знаю, как его повторитьпо моему индексу)

Answer 1

Если вы измените индексную переменную на коэффициент, вы получите то, что должно быть поведением по умолчанию, т. Е. Печать уровней гальки в полосе:

library(lattice)
    index<-factor(c(1,1,1,2,2,2,2))
    freq<-c(3,4,6,3,6,2,2)
    D<-data.frame(index,freq)
    histogram(~D$freq|D$index)

Просто для удовольствия вы можете поиграть с переменной стиля в strip.default:

histogram(~freq|index, data=D, strip = 
      function(..., style){ strip.default(..., style = 4)}  )

Answer 2

Сделать index a factor

index <- c(1,1,1,2,2,2,2)
freq <- c(3,4,6,3,6,2,2)
D <- data.frame(index=factor(index), freq)
histogram(~D$freq|D$index)

И лучше смотреть на histogram(~freq|index, D) способ вызова решеточных функций.