Я попытался использовать цикл for, чтобы распечатать несколько строк. вот код Странно то, что это не работает для функции head (). Это работает, если я заменилhead() с участиемprint().

kw_id=c('a','b')
keyword_text=data.frame(col=c('a','b'), col2=c(1,2), row.names=(c('r1','r2')))

for (i in 1:2) { 
   plot_data<-subset(keyword_text,col==kw_id[i])
   print(plot_data)
   head(plot_data)
}

Может ли кто-нибудь помочь? Я подозреваю, что это как-то связано сhead() функция.