将cat结果转换为r

Question

我需要在使用While获得的迭代中绘制图，结果是通过cat获得的，如何在数据框中转换结果以绘制它们？

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

Answer 1

可能不是最有效的方法，但可行：

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)

Answer 2

您有什么理由需要使用#warning "Using deprecated NumPy API, disable it by " \吗？没有它你就可以做到这一点：

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 ) ) } ，然后为每次循环运行添加一行。