Как обращаться к другим вещам в цикле R

Итак, если я понимаю вашу проблему, вы спрашиваете, как вы можете ссылаться на элементы data.frame, не ссылаясь на их имена.

В этом случае, если у вас есть data.frame test.df, мы можем использовать [[]] для доступа к ним, как это

test.df <- data.frame(first=rnorm(10),second=rnorm(10))
test.df$first
[1]  0.8447835 -0.7210152 -1.6379253 -1.5695393 -1.2467788 -1.9273583  0.5633265 -0.4186060  1.3478030 -0.4379999
test.df[[1]]
[1]  0.8447835 -0.7210152 -1.6379253 -1.5695393 -1.2467788 -1.9273583  0.5633265 -0.4186060  1.3478030 -0.4379999
test.df$first == test.df[[1]]
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE

Затем вы можете делать такие вещи, как использовать этот индекс для зацикливания.

Говоря более конкретно о ваших данных, если все, что вам нужно, это напечатать число с заголовком в val, вы можете просто сделать это.

for(i in 1:length(data$num){
   plot(data$num[[i]],main=paste(data$val[[i]])

Вам не нужен цикл for. Вы можете использовать lapply вывод в виде списка, и вы можете использовать lapply для последующего анализа.

lapply(1:6, function(x) data %>% filter(num <= x))
# [[1]]
#   num     val
# 1   1 1998-99
# 
# [[2]]
#   num     val
# 1   1 1998-99
# 2   2 1999-00
# 
# [[3]]
#   num     val
# 1   1 1998-99
# 2   2 1999-00
# 3   3 2000-01
# 
# [[4]]
#   num     val
# 1   1 1998-99
# 2   2 1999-00
# 3   3 2000-01
# 4   4 2001-02
# 
# [[5]]
#   num     val
# 1   1 1998-99
# 2   2 1999-00
# 3   3 2000-01
# 4   4 2001-02
# 5   5 2002-03
# 
# [[6]]
#   num     val
# 1   1 1998-99
# 2   2 1999-00
# 3   3 2000-01
# 4   4 2001-02
# 5   5 2002-03
# 6   6 2003-04

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

dat <- lapply(1:6, function(x) data %>% filter(num <= x))

lapply(dat, function(x){
  plot(x$num, main = x$val[nrow(x)])
})

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

library(dplyr)
data <- data.frame(num=c(1:6), val=c('1998-99', '1999-00', '2000-01', '2001-02', '2002-03', '2003-04'))

data_lst <- list(
  data03 = filter(data, num<=1),
  data04 = filter(data, num<=2),
  data05 = filter(data, num<=3),
  data06 = filter(data, num<=4),
  data07 = filter(data, num<=5),
  data08 = filter(data, num<=6))

for (i in seq_along(data_lst)) {
  print(i)
  title = data[2][-1]
  print(title)
  df <- data_lst[[i]]
  plot(df$num, main=title)
}