想问一下这种图（类似于热力图）是怎么做出来的呀

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想问一下这种图（类似于热力图）是怎么做出来的呀，每个区域有对角线分开，感觉和热力图又不太一样

---

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：怎么做 对角线

ddddddd

这个不是热力图。
数据至少有三列，year，age，deltaQ。
大致思路是，先对year/age分组。然后确定顶点，然后画多边形。按deltaQ值填充颜色。
ggplot2中geom_polygon()可以画出来。

现在各种文章中的新颖图形不少 真是值得学习

做了个参考代码

1. library(ggplot2)
   
2. library(dplyr)
   
3. #示例数据
   
4. data<-
   
5. data.frame(
   
6. year=
   
7.   c(2001,2002,2003,2002,2003,2005,2006,
   
8. 2008,2009,2010,2003,2006,2007,2009,
   
9. 2010,2007,2008,2002,2008,2002,2003,
   
10. 2008,2009,2003,2004,2008,2009,2010),
    
11. age=
    
12.   c(20,20,20,30,30,30,30,
    
13.     30,30,30,40,40,40,40,
    
14.     40,50,50,60,60,70,70,
    
15.     70,70,80,80,80,80,80),
    
16. dQ=
    
17. c(1,1,1,1,1,3,3,
    
18.   5,5,5,1,3,3,5,
    
19.   5,3,3,2,4,2,2,
    
20.   4,4,2,2,4,4,4)
    
21. )
    
22. #函数确定顶点
    
23. findVertex<-function (x) {
    
24.   vertex<-data.frame()
    
25.   for (i in 1:5) {
    
26.   temp<-x%>%filter(x[,3]==i)%>%chull()
    
27.   vertex<-rbind(vertex,x[which(x[,3]==i),][temp,])
    
28.   }
    
29.   vertex
    
30. }
    
31. #形成顶点数据
    
32. polyg<-findVertex(data)
    
33. #画图
    
34. ggplot(polyg)+
    
35.   aes(year,age,group=dQ,fill=dQ)+
    
36.   geom_polygon()+
    
37.   scale_fill_gradient(low = "yellow",
    
38.                       high = "blue",
    
39.                       aesthetics = "fill")+
    
40.                       theme_minimal()

复制代码

代码执行结果

因为不确定dQ数据形式，函数代码循环部分偷懒了，而且只选择了凸点，仅仅是做个例子，所以用在其它数据时需要修改。
搂主的图采用了更复杂的分组方式。