Как я могу создать фрейм данных с количеством столбцов, предварительно определенным в параметре?

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

У меня есть следующий код, который создает фрейм данных с 3 одинаковыми столбцами, первоначально заполненными NA, а затем заполненными в соответствии с циклами (опять те же циклы, но ссылаясь на разные столбцы):

#Parameters    
Forecast.Days = 200
MBL = 500    

#Construct share of room nights by group component table
Share.of.Room.Nights = data.frame(Destination.1 = c(rep(NA, times = Forecast.Days)), Destination.2 = c(rep(NA, times = Forecast.Days)), 
                                  Destination.3 = c(rep(NA, times = Forecast.Days)))

#Destination 1
for (i in 1:length(Share.of.Room.Nights$Destination.1)){
  if (Future.Confirmed.Bookings$Total[i] >= MBL){
    Share.of.Room.Nights$Destination.1[i] = Future.Confirmed.Bookings[ ,3][i]/Future.Confirmed.Bookings$Total[i]
  } else {
      Share.of.Room.Nights$Destination.1[i] = Confirmed.Bookings[, 2][i]/Confirmed.Bookings$Total[i]
  }
}

#Destination 2
for (i in 1:length(Share.of.Room.Nights$Destination.2)){
  if (Future.Confirmed.Bookings$Total[i] >= MBL){
    Share.of.Room.Nights$Destination.2[i] = Future.Confirmed.Bookings[ ,4][i]/Future.Confirmed.Bookings$Total[i]
  } else {
    Share.of.Room.Nights$Destination.2[i] = Confirmed.Bookings[ ,3][i]/Confirmed.Bookings$Total[i]
  }
}

#Destination 3
for (i in 1:length(Share.of.Room.Nights$Destination.3)){
  if (Future.Confirmed.Bookings$Total[i] >= MBL){
    Share.of.Room.Nights$Destination.3[i] = Future.Confirmed.Bookings[ ,5][i]/Future.Confirmed.Bookings$Total[i]
  } else {
    Share.of.Room.Nights$Destination.3[i] = Confirmed.Bookings[ ,4][i]/Confirmed.Bookings$Total[i]
  }
}

Я хотел бы иметь возможность установить параметр для числа этих столбцов назначения, чтобы создать в начальном фрейме данных, в этом случае 3 (максимум будет 6), и иметь код, который затем запускает только необходимое количество циклов (код будет там для 6 столбцов, но в этом случае будет только 3.

Это возможно?

Спасибо

Источник

2 ответа

Решение
    my_df <- data.frame(matrix(nrow=3,ncol=10)) 
    my_df
    #   X1 X2 X3 X4 X5 X6 X7 X8 X9 X10
    # 1 NA NA NA NA NA NA NA NA NA  NA
    # 2 NA NA NA NA NA NA NA NA NA  NA
    # 3 NA NA NA NA NA NA NA NA NA  NA

    class(my_df)
    # [1] "data.frame"

    dim(my_df)
    # [1]  3 10

    # If column names are available
    names(my_df) <- LETTERS[1:10]

    my_df
    #   A  B  C  D  E  F  G  H  I  J
    # 1 NA NA NA NA NA NA NA NA NA NA
    # 2 NA NA NA NA NA NA NA NA NA NA
    # 3 NA NA NA NA NA NA NA NA NA NA


    my_df<- data.frame(x= character(0), y= numeric(0), a = character(0), b= integer(0))
    str(my_df)
    # 'data.frame':   0 obs. of  4 variables:
    #  $ x: Factor w/ 0 levels: 
    #  $ y: num 
    #  $ a: Factor w/ 0 levels: 
    #  $ b: int
Источник

Используя ранее предложенный ответ

as.data.frame(matrix(0, nrow = ?, ncol = ?))

параметр может быть введен для создания предопределенного фрейма данных

Components = 3
Forecast.Days = 200    

Share.of.Room.Nights = as.data.frame(matrix(0, nrow = Forecast.Days, ncol = Components))

С помощью if("Destination.1" %in% colnames(Share.of.Room.Nights)) позволяет определить, существует ли столбец, после чего можно запустить циклы для заполнения существующих столбцов в зависимости от предварительно определенных параметров.

Источник
Другие вопросы по тегам