1.主要用到dendextend和circlize包绘图；
2.更改树状图的位置；
3.如果想要去掉图例标签，可设置 labels = FALSE参数；
4.个性化设置：树状分支颜色、文字标签颜色、风格和树状线条的宽度。
Q1n <- 1:30
f <- c(1,1)
for (i in n) f <- c(f, f[length(f)-1]+f[length(f)])
for (i in 1:(length(f)-1)) print(f[i]/f[i+1])
从结果可以看到，貌似收敛到 0.618
Q2
1) answer <- c(3)
在for循环里：
#每次都从answer中取最后一项，并把计算结果存到answer中（作为最后一项）；
2) j =1时： answer <- c(answer, ( 7* answer[ 1 ] ) %% 31) ==> answer = c(3, 21)
3) j =2时：answer <- c(answer, ( 7* answer[ 2 ] ) %% 31)=>answer = c(3,21, 21*7%%31)
--->23<-----
4) ...
16)j=15时： answer中有16个元素；
