有代码有真相，祝各位loveR绿色心情：

<br />
drawTree <- function(x1, y1, angle, n, lwd, len, col) {<br />
    if (n >= 1) {<br />
        x2 <- x1 + cos(angle) * len[n] * 10<br />
        y2 <- y1 + sin(angle) * len[n] * 10<br />
        lines(c(x1, x2), c(y1, y2), lwd = lwd[n], col = col[n])<br />
        drawTree(x2, y2, angle - pi/9, n - 1, lwd, len, col)<br />
        drawTree(x2, y2, angle + pi/9, n - 1, lwd, len, col)<br />
    }<br />
}<br />
COL <- rev(terrain.colors(16)[1:9])<br />
dev.new(width = 6, height = 4)<br />
par(mar = c(0, 0, 0, 0), ask = TRUE)<br />
for (i in 1:9) {<br />
    plot(0, xlim = c(-260, 260), ylim = c(0, 450), type = "n", axes = F)<br />
    drawTree(0, 0, angle = pi/2, n = i, lwd = (10 - i):9, len = (10 - i):9,<br />
        col = COL[(10 - i):9])<br />
} </p>
<p>
</p>

回复 第2楼 的 ming_uld：

你不知道这是某人为了不超1200帖而弄出来的马甲吗。[s:11]

回复 第3楼 的 Ihavenothing：[s:12][s:12][s:12][s:12]莫非………………晕………………

怪不得有一次“高级会员”对LZ说过：马甲有害身心健康呢，当时没留意，现在懂了[s:12]

回复 第3楼 的 Ihavenothing：1200？马甲？

我是从网上找到的代码。。。

回复 第1楼 的 happy：Many thanks

回复 第5楼 的 ming_uld：马甲有害身心健康... A warning to me[s:12][s:12][s:12]

“高级会员”路过学习一下 。。。

回复 第1楼 的 happy：一点小建议——windows()改成dev.new()，前者仅限于Windows，后者跨平台通用。或者干脆不要这一句，因为即使你不打开图形设备，R也会自动打开。

一点小请求：这份代码我可否改装一下收入我的书中？谢谢！

回复 第9楼 的 谢益辉：这一句是为了让树更加好看，否则不雍容华贵。已经更改了，多谢指教[s:13]

当然可以啦。哈哈~