假设你想把count存储为一个向量。
在这段代码中，在for循环之前创建了一个空向量result_vector。
可以将count附加到result_vector，而不是print(count)。

n<-1000
result_vector <- c()
for(n in 1:n) {
  count<-0
  check<- ifelse(n>1, TRUE, FALSE)
  while(check) {
    if (n%%2==1) {n=3*n+1
    } else {n=n/2}
    count=count+1
    check<- ifelse(n>1, TRUE, FALSE)}
  result_vector <- c(result_vector, count)
}

你可能需要考虑'purrr'Map函数：

library(tidyverse)
n <- 1000

# use the 'map' functions in 'purrr' to create a vector instead
# of extending the vector in the loop
result_vector <- map_dbl(1:n, ~ {
  n <- .x  # save parameter in 'n' to keep code the same
  count <- 0
  check <- if (n > 1)
    TRUE
  else
    FALSE
  while (check) {
    if (n %% 2 == 1) {
      n = 3 * n + 1
    } else {
      n = n / 2
    }
    count = count + 1
    check <- if (n > 1)
      TRUE
    else
      FALSE
  }
  count
})