R Loop Script для создания многих, многих переменных

Question

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

Каждый лист обозначается буквой (имеется 24), и каждый лист вмещает где-то между 100-200 переменных. Я мог бы написать ее как таковую:

a$varible1 <- NA 
a$variable2 <- NA 
. 
. 
. 
w$variable25 <- NA 

Это может/будет получить уродливые, и я хотел бы написать цикл или использовать вектор, чтобы сделать работу. У меня есть чертовски время, делая это, хотя.

Мне нужен сценарий, который позволит мне указать форму, а затем просто наклеить числа на нее.

Так,

a$variable[i] <- NA 

где [я] получает пришитые фактической переменной, созданной.

Answer 1

Я только что узнал этот аккуратный маленький трюк из @eddi

#created some random dataset with 3 columns 
library(data.table) 
     a <- data.table(
     a1 = c(1,5), 
     a2 = c(2,1), 
     a3 = c(3,4) 
     ) 

#assuming that you now need to ad more columns from a4 to a200 
# first, creating the sequence from 4 to 200 
     v = c(4:200) 
# then using that sequence to add the 197 more columns 
     a[, paste0("a", v) := 
        NA] 


# now a has 200 columns, as compared to the three we initiated it with 
     dim(a) 
     #[1] 2 200 

Answer 2

Я не думаю, что вы на самом деле это нужно, хотя, кажется, думают так по какой-то причине.

Может быть что-то вроде этого:

a <- as.data.frame(matrix(NA, ncol=10, nrow=5)) 
names(a) <- paste0("Variable", 1:10) 

print(a) 
# Variable1 Variable2 Variable3 Variable4 Variable5 Variable6 Variable7 Variable8 Variable9 Variable10 
# 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 
# 4  NA  NA  NA  NA  NA  NA  NA  NA  NA   NA 
# 5  NA  NA  NA  NA  NA  NA  NA  NA  NA   NA 

Answer 3

Если вы хотите переменные с разными типами:

p <- 10 # number of variables 
N <- 100 # number of records 
vn <- vector(mode="list", length=p) 
names(vn) <- paste0("V", seq(p)) 
vn[1:8] <- NA_real_ # numeric 
vn[9:10] <- NA_character_ # character 
df <- as.data.frame(lapply(vn, function(x, n) rep(x, n), n=N))