29
A
回答
44
您可以隨時手動創建情節: 與基地的圖形,你fig
參數 允許您添加另一個情節裏地塊。
# Sample data
n <- 100
k <- 6
d <- matrix(rnorm(k*n),nc=k)
d[,2] <- d[,1] # To help check the results
colnames(d) <- LETTERS[1:k]
x <- apply(d,2,cumsum)
r <- hclust(dist(t(d)))
# Plot
op <- par(mar=c(0,0,0,0),oma=c(0,2,0,0))
plot(NA,ylim=c(.5,k+.5), xlim=c(0,4),axes=FALSE)
# Dendrogram. See ?hclust for details.
xc <- yc <- rep(NA,k)
o <- 1:k
o[r$order] <- 1:k
for(i in 1:(k-1)) {
a <- r$merge[i,1]
x1 <- if(a<0) o[-a] else xc[a]
y1 <- if(a<0) 0 else yc[a]
b <- r$merge[i,2]
x2 <- if(b<0) o[-b] else xc[b]
y2 <- if(b<0) 0 else yc[b]
lines(
3+c(y1,i,i,y2)/k,
c(x1,x1,x2,x2),
lwd=k-i
)
xc[i] <- (x1+x2)/2
yc[i] <- i
}
# Time series
axis(2,1:k,colnames(d)[r$order],las=1)
u <- par()$usr
for(i in 1:k) {
f <- c(0,3,i-.5,i+.5)
f <- c(
(f[1]-u[1])/(u[2]-u[1]),
(f[2]-u[1])/(u[2]-u[1]),
(f[3]-u[3])/(u[4]-u[3]),
(f[4]-u[3])/(u[4]-u[3])
)
par(new=TRUE,fig=f)
plot(x[,r$order[i]],axes=FALSE,xlab="",ylab="",main="",type="l",col="navy",lwd=2)
box()
}
par(op)
(寫在這之後,我意識到,這可能是與layout
容易做......)
相關問題
- 1. 如何在R這樣的情節?
- 2. 我該如何製作彩色的Google地圖,就像這樣?
- 3. 我該如何製作這樣的視圖
- 4. mpeg-dash工具包,我該如何製作這樣的視頻?
- 5. 我該如何製作這樣的分組行?
- 6. 我該如何在XML模式中做這樣的事情?
- 7. 我該如何製作這個陣列?
- 8. 我該如何製作這種邊框?
- 9. 我該如何製作這個背景?
- 10. 我該如何製作這種佈局?
- 11. 我該如何選擇這樣的
- 12. 我該如何做這樣的模塊?
- 13. 我該如何printf很久?不應該這樣工作嗎? %li
- 14. 我該如何鞏固這個表情?
- 15. 我該如何製作像這樣的css漸變和鼠標懸停邊框
- 16. 我如何製作看起來像這樣的定製Holo EditText
- 17. 在這種情況下,我該如何強制C++宏替換?
- 18. 我應該如何限制在這些情況下使用ajax?
- 19. 我該如何製作我的錨標記(這個)
- 20. 我應該在這種情況下製作ImageHelper嗎?
- 21. 如何製作這樣的東西?
- 22. 如何從Tweetbot製作這樣的NSWindow?
- 23. 如何製作這樣的桌子?
- 24. 如何製作這樣的分隔線?
- 25. 如何製作這樣的迴歸樹?
- 26. 如何製作這樣的CSS邊框?
- 27. 如何製作這樣的SQL查詢?
- 28. 如何製作這樣的JSON輸出?
- 29. 如何製作這樣的PHP代碼?
- 30. 如何製作這樣的菜單?
+1非常感謝你爲這個!真的很漂亮:) – Legend 2012-03-17 21:11:25
這真棒!您有可能會稍微註釋一下代碼以幫助其他人學習,並更輕鬆地看到代碼中發生了什麼? – Jota 2014-07-08 19:11:10
我可以秒@Frank。一些註釋會很好! – by0 2014-08-09 22:41:56