преобразовать результаты кошки в кадр данных в r

Question

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

f <- 5 
n <- 0 
while(f > 0.001) 
{ 
n <- n + 1 
f <- f/n 
cat(f,n,"\n") 
} 

Answer 1

Есть ли какой-либо причине вам нужно использовать cat? Вы можете достичь этого без него:

f <- 5 
n <- 0 
results <- data.frame(n = n, f = f) 

while(f > 0.001) { 
    n <- n + 1 
    f <- f/n 

    results <- rbind(results, c(n, f)) 
} 

В принципе, вы начинаете dataframe, а затем добавить строку к нему для каждого запуска цикла.

Answer 2

, вероятно, не самый эффективный способ, но будет работать:

f <- 5 
f_vector <-f 
n <- 0 
n_vector <- n 
results =data.table(n,f) 
while(f > 0.001) 
{ 
    n <- n + 1 
    n_vector=c(n,n_vector) 
    f <- f/n 
    f_vector=c(f,f_vector) 

    cat(f,n,"\n") 
} 
result=data.table(n_vector,f_vector)