在R中打印三角形

时间:2018-10-20 19:51:43

标签: r visualization shapes

我正在尝试编写一些代码以提供如下输出:

              *
             * *
            * * *
           * * * *
          * * * * *
           * * * *
            * * *
             * *
              *

鉴于我有限的体验,我最接近的是:

for(i in 1:5) {
  print(strrep("*", i))
}

for(i in 4:1) {
  print(strrep("*", i))
}

这给了我

# *
# **
# ***
# ****
# *****

and

# ****
# ***
# **
# *

任何指导都会很有帮助。

谢谢!

1 个答案:

答案 0 :(得分:2)

增加多余的空间

for(i in c(1:5, 4:1))
  cat( paste0(strrep(" ", 5 - i), strrep("* ", i), "\n") )

    * 
   * * 
  * * * 
 * * * * 
* * * * * 
 * * * * 
  * * * 
   * * 
    *