2017-03-01 62 views
0

使用下面的代码,我可以打印迭代每个for循环的值。如何使用嵌套for循环输入数据到数据框R

for(i in 5:12) 
{ 
    for(j in 5:12) 
    { 
    for(k in 5:12) 
    { 
     for(l in 5:12) 
     { 
     cat(i,j,k,l,'\n') 
     } 
    } 
    } 
} 

现在我想要的输出数据成数据帧存储DF考虑数字数据的4列(A,B,C,d)。我所知道的仅仅是下面的代码,但它只有一个'for'。

f3 <- function(n){ 
    df <- data.frame(x = numeric(n), y = numeric(n)) 
    for(i in 1:n){ 
    df$x[i] <- i 
    df$y[i] <- i 
    } 
    df 
} 

如何在使用嵌套for循环时将数据输入数据帧。谢谢。

回答

1

你应该尝试expand.grid

a <- 5:12 
df <- expand.grid(a,a,a,a) 
names(df) <- c("a","b","c","d")