R 标记中带有方框、箭头等的数字

在我用RMarkdown写的论文中，我感兴趣的是用箭头连接的一些普通方框/圆圈直观地显示因果机制。大概是这样的：

---

在RMarkdown是如何做到这一点的？您是否建议我在另一个应用程序中创建一张图片，并像图片一样导入RMarkdown

我认为最好的方法是使用Tikz绘制图形。在中有一个示例，其中代码块包括

```{tikz, tikz-ex, fig.cap = "Funky tikz", fig.ext = 'png', cache=TRUE}
\usetikzlibrary{arrows}
\begin{tikzpicture}[node distance=2cm, auto,>=latex', thick, scale = 0.5]
\node (P) {$P$};
\node (B) [right of=P] {$B$};
\node (A) [below of=P] {$A$};
\node (C) [below of=B] {$C$};
\node (P1) [node distance=1.4cm, left of=P, above of=P] {$\hat{P}$};
\draw[->] (P) to node {$f$} (B);
\draw[->] (P) to node [swap] {$g$} (A);
\draw[->] (A) to node [swap] {$f$} (C);
\draw[->] (B) to node {$g$} (C);
\draw[->, bend right] (P1) to node [swap] {$\hat{g}$} (A);
\draw[->, bend left] (P1) to node {$\hat{f}$} (B);
\draw[->, dashed] (P1) to node {$k$} (P);
\end{tikzpicture}
```

输出（HTML或PDF格式；来自PDF）如下所示：