2012-07-16 162 views
2

有沒有方法可以設置多邊形的背景顏色?我想這樣的情節......設置多邊形的背景顏色

set.seed(1) 
n <- 100 
xx <- c(0:n, n:0) 
yy <- c(c(0,cumsum(stats::rnorm(n))), rev(c(0,cumsum(stats::rnorm(n))))) 

plot (xx, yy, type="n", xlab="Time", ylab="Distance") 
polygon(xx, yy, angle=45, density=10) 
polygon(xx, yy+5, col="white") 
polygon(xx, yy+5, angle=45, density=10, col="red") 

但最理想的情況是倒數第二行設置背景(我就是我寫一個函數中繪製多個多邊形)。我可以在最後一行中使用否定整個倒數第二行的論據嗎?乾杯。

Ugliness

+0

你真的想要對角線嗎?因爲你可以用一行純色來完成。 – Spacedman 2012-07-16 11:59:05

+0

是的,我真的想要對角線。 – gjabel 2012-07-16 12:00:37

回答

5

我的回答是「不」 - help(polygon)給你col填充多邊形,而且使用它的線條底紋顏色,如果使用angledensity

這是舊時代的遺物時,你的筆式繪圖儀只能在拿起一支筆在時間......

做兩次不應該是一個問題。編寫你自己的函數,它需要一個多邊形和兩個顏色參數,並調用兩次polygon

+0

- 這麼做兩次是一個問題,我並不總是想繪製對角線。我想我會調整代碼先繪製白色多邊形,依賴於函數中的參數。感謝你的努力,但至少知道我沒有找到簡單的答案。 – gjabel 2012-07-16 14:58:03