コラッツ数列のグラフ化について

Question

前提・実現したいこと

Rでコラッツ数列に関して、
・初期値mから1に達するまでの数列
・その数列の軌跡のグラフ
の処理を行う関数Collatz()を定義したいです。

例えば、Collatz(10)と命令をすれば、
・10から始まり１になるまでの数列を出力する処理と
・その数列に関する１までの推移のグラフ出力の処理が行うように関数定義をしたいです。

発生している問題・エラーメッセージ

数列を求める命令はできたのですが、同時にグラフ化する方法が分かりません。
まずは数列とグラフを出力する関数を別々にしようと思いましたが、それもうまくできませんでした。

該当のソースコード

現状は数列のみ出力する関数になっています。

Collatz <- function(m) {
  cat(m)
  while (m > 1) {
    if (m %% 2 == 0) {
      m = m / 2
    } else {
      m = 3 * m + 1
    }
    cat(",", m)
  }
  cat("\n")
}

自分では行き詰まっていましましたので、ご教授いただきたく存じます。
どうぞよろしくお願い申し上げます。

Answer 1

まずは数列とグラフを出力する関数を別々にしようと思いましたが、それもうまくできませんでした。

collatz_sequence <- function(m){
  sequence <- c(m)
  while(m > 1) {
    m <- if (m%%2) 3*m+1 else m/2
    sequence <- c(sequence, m)
  }
  sequence
}

plot_collatz_sequence <- function(collatz) {
  plot(collatz, type="l")
}

collatz_11 <- collatz_sequence(11)
cat(collatz_11, "\n")

plot_collatz_sequence(collatz_11)

#
11 34 17 52 26 13 40 20 10 5 16 8 4 2 1