Абоненты в высокоуровневом вызове Lattice

Question

Для фрейма данных df.test с пятью столбцами:

df.test <- data.frame(

dt=c('2011-01-01','2011-01-01','2011-01-02','2011-01-02'),
q1=c(1,99,99,1),
q5=c(5,95,95,5),
q50=c(50,50,50,50), 
test=c(74,72,72,74)

)

Может кто-нибудь объяснить, почему при запуске функции print () для подписчиков возвращается индекс для четырех столбцов c (1,2,3,4)а не индекс для пяти столбцов c (1,2,3,4,5)?

xyplot(q1 ~ as.POSIXct(dt), data=df.test,
 panel = function(x, y, subscripts) { 
  print(subscripts)
 }
)

Я прочитал всю документацию по решетке, но не исходный код.

Answer 1

Я полагаю, subscripts здесь относится к индексам строк.Поскольку у вас нет группирующей переменной, в нее будут включены все исходные строки 1: 4.

Answer 2

Это может помочь:

> xyplot(q1 ~ as.POSIXct(dt)|test, data=df.test,
+  panel = function(x, y, subscripts) { 
+   print(subscripts)
+  }
+ )
[1] 2 3
[1] 1 4