1
A
回答
3
下面是一些基本的代碼讓你開始(你可以添加網格線,傳說等,如果他們對你很重要)依賴於平臺:
plotfun <- function(x) {
plot(c(-0.5,-0.5,0.5,0.5), c(0,1,1,0), col='blue', xlim=c(-2,2),
type='l', xlab='', ylab='')
if(x > -1 && x < 0) {
polygon(c(-0.5, -0.5, x+0.5, x+0.5), c(0,1,1,0), col='yellow', border=NA)
lines(c(-0.5, -0.5, 0.5, 0.5), c(0,1,1,0), col='blue')
lines(c(-1,x), c(0,x+1))
} else if(x >= 0 && x < 1) {
polygon(c(x-0.5, x-0.5, 0.5, 0.5), c(0,1,1,0), col='yellow', border=NA)
lines(c(-0.5, -0.5, 0.5, 0.5), c(0,1,1,0), col='blue')
lines(c(-1,0,x), c(0,1,1-x))
} else if (x >= 1) {
lines(c(-1,0,1), c(0,1,0))
}
abline(v=x, lty=3)
lines(c(x-0.5,x-0.5,x+0.5,x+0.5), c(0,1,1,0), col='red')
}
dev.new(height=3, width=6)
for(i in seq(-2.5, 2.5, 0.05)) {
plotfun(i)
Sys.sleep(0.1)
}
你可以使用repeate或while循環替換for循環,並控制增量並自動重置以執行多個循環。
您也可以刪除Sys.sleep,並將其放入調用saveMovie,saveHTML或其他函數的動畫包中,以創建一個帶有動畫的文件。
另一種方法,可以讓你通過移動滑塊來回控制動畫:
library(TeachingDemos)
tkexamp(plotfun, list(x=list('slider', from=-2.5, to=2.5, resolution=0.01)),
vscale=1)
4
兩個快速點:
老同學訣竅是寫的GIF文件序列單獨在一個循環中,並再使用工具,如ImageMagick的,以「粘」在一起成GIF動畫
還有更高級別的軟件包,例如屢獲殊榮的animation,有助於此;某些功能可能
相關問題
- 1. d3.js繪製時間序列分的曲線圖
- 2. 用matplotlib繪製線條(時間序列)
- 3. Plotly時間序列 - 水平線繪製
- 4. 浮圖時間序列不繪製線
- 5. 繪製曲線
- 6. 繪製曲線與動態時間變形矩陣對齊
- 7. 繪製移動線條/曲線的最佳方式是什麼?
- 8. javascript canvas:用曲線繪製移動平均線
- 9. 安卓繪製動畫虛線曲線
- 10. 繪製時間序列
- 11. 繪製時間序列Julia
- 12. 繪製時間序列
- 13. SceneKit繪製曲線
- 14. 龜繪製曲線
- 15. 繪製NURBS曲線?
- 16. 如何在JFreechart中繪製時間序列的組合曲線圖
- 17. 繪製曲線線android
- 18. 兩點之間繪製曲線
- 19. matplotlib/pandas:在時間序列圖中繪製沿着繪製線的線標籤
- 20. 如何繪製數組和曲線列表的曲線?
- 21. 如何繪製下列曲線的ROC曲線?
- 22. 在畫布中繪製動畫曲線
- 23. 沿着曲線繪製動畫圖像
- 24. 用綠色曲線繪製動畫
- 25. swift - 繪製曲線時出錯
- 26. 繪製NURBS曲線時結的意義?
- 27. Matplotlib不繪製曲線
- 28. 在iPhone中繪製曲線?
- 29. 繪製折線圖彎曲
- 30. 在AndEngine中繪製曲線
甜。這在創建我需要的內容時很有用。謝謝! – user236215 2011-02-05 17:40:00