如何用plot作图，作上三角部分啊

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如何用plot作图，作上三角部分啊，如附图所示，上下是对称的 ，可不可以只要一部分

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：plot 如何用 如何

求解啊

自己写个函数， 用layout一个一个的画出来。

大概是这个样子

1. x <- data.frame(v1 = rnorm(10), v2 = rnorm(10), v3 = rnorm(10), v4 = rnorm(10), v5 = rnorm(10))
   
2. n <- ncol(x)
   
3. y <- matrix(NA, n, n, byrow = TRUE)
   
4. y[upper.tri(y)] <- 0
   
5. y[lower.tri(y, diag = TRUE)] <- 1:(n*(n+1)/2)
   
6. y <- t(y)
   
7. pdf("out.pdf")
   
8. par(mar=c(2, 2, 2, 2) + 0.1)
   
9. nf <- layout(y)
   
10. for (i in 1:n) {
    
11.     for (j in i:n) {
    
12.         if (i == j) {
    
13.             plot(1, xlim = c(0, 1), ylim = c(0, 1), type = "n", xaxt = 'n', yaxt = 'n', ann = FALSE)
    
14.             text(0.5, 0.5, colnames(x)[i], cex = 2)
    
15.         } else {
    
16.             plot(x[, i], x[, j], xaxt = 'n', yaxt = 'n', ann = FALSE)
    
17.             if (i == 1) axis(side = 3, at = seq(-2, 2, 0.5))
    
18.             if (j == n) axis(side = 4, at = seq(-2, 2, 0.5))
    
19.         }
    
20.     }
    
21. }
    
22. dev.off()

复制代码