2017-03-01 53 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")