R:圣诞树

对于作业，我们需要在R中绘制一棵圣诞树。
我搜索了互联网，找到了一些有用的建议，但最终，我不知道如何进行下去，希望有人能帮助我。

到目前为止，这是我的代码。

#ctree: prints a Christmas tree on screen with size N
ctree <- function(N){
for (i in 1:N){
    width = sample("*",i,replace=T)
    cat(width,sep="-","\n")
    }
cat(width[1],"\n")
}

这使我只剩下树的中间和右侧(N = 4)，这很好，但还不够。

*-
*-*-
*-*-*-
*-*-*-*-
*

我计划颠倒我所拥有的东西(基本上是使该函数的乘积右对齐)以创建左侧，随后删除左侧的最右列，并将其与树的右侧粘合在一起，从而创建一棵圣诞树。

我真的希望有人能帮助我实现这一目标!期待您的建议。

提前致谢。

最佳答案

对于任何感兴趣的人:这就是我最终在R中所做的，目的是创建一棵圣诞树。

#ctree: prints a Christmas tree on screen with amount of branch levels N
ctree <- function(N){
filler = "*"
blank = ""

for (i in 1:N){
    row = c(sample(blank,N-i,replace=T),sample(filler,i,replace=T),sample(blank,N-i,replace=T))
    cat(row,"\n")
    }
cat(c(sample(blank,(N-1),replace=T),sample(filler,1,replace=T),sample(blank,(N-1),replace=T)),"\n")
} #ctree

这就是结果!我自己的快乐小树(或大树，无论漂浮在船上的树)。

关于R:圣诞树，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/25893689/