Как ссылаться на другие вещи в цикле R

Question

Скажите, что у меня есть эти данные:

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

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

Было бы лучше поместить это в цикл. Как это сделать с именами фреймов данных? Другими словами, как ссылаться на имя data.frame в цикле?

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 c(03, 04, 05, 06, 07, 08)) {
    #I want to print the number corresponding to i
    if(i=="03") print(1)
    if(i=="04") print(2)
    if(i=="05") print(3)
    if(i=="06") print(4)
    if(i=="07") print(5)
    if(i=="08") print(6)
    #I want to get the value corresponding to i for the plot title
    if(i=="03") title="1998-99"
    if(i=="04") title="1999-00"
    if(i=="05") title="2000-01"
    if(i=="06") title="2001-02"
    if(i=="07") title="2002-03"
    if(i=="08") title="2003-04"
    #I want to open the data frame, data+i
    df <- paste(data,i) 
    #I want to plot, using the title saved above
    plot(df$num, main=title)
}

Answer 1

Вам не нужен цикл 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)])
})

Answer 2

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

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)
}

Answer 3

Поэтому, если я понимаю вашу проблему, вы спрашиваете, как вы можете ссылаться на элементы 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]])