以下の図のように、左に余白がないダイアモンドを描きたいのですが、どのようなコードを使えば書けるでしょうか？

[![Rで描きたいダイアモンド型です。](https://i.stack.imgur.com/IOejJ.png)](https://i.stack.imgur.com/IOejJ.png)

```

    diamond <- function(max) {
    
        # Upper triangle
        space <- max - 1
        for (i in 0:(max - 1)) {
            for (j in 0:space) cat(" ")
            for (j in 0:i) cat("* ")
            cat("\n")
            space <- space - 1
        }
    
        # Lower triangle
        space = 1;
        for (i in (max - 1):1) {
            for (j in 0:space) cat(" ")
            for (j in 0:(i - 1)) cat("* ")
            cat("\n")
            space <- space + 1
        }
    
```
CC BY-SA 4.0
2019-04-19T17:14:21.013
54322
2019-04-20T08:01:57.263
2019-04-20T08:01:57.263
3060
32995
question
r
Rでダイアモンド型を描きたい
画像にあるようなダイヤモンドを出力するならこれでどうですか。

```

    diamond <- function(n) {
      levels <- c(1:n, (n-1):1)
      for (i in levels) {
        cat(strrep(" ", n-i), strrep("*", 2*i-1), "\n", sep="")
      }
    }
    
    diamond(7)
    
```
CC BY-SA 4.0
2019-04-19T20:39:07.367
54324
2019-04-20T06:47:47.107
2019-04-20T06:47:47.107
9464
9464
54322
answer