Update 图10-1-3_有向且无权重关系相邻矩阵的热力图.R

EasyChart · web-flow · commit cb75f3412385 · 2019-10-29T12:42:09.000+08:00
diff --git a/第10章 网络关系型图表/图10-1-3_有向且无权重关系相邻矩阵的热力图.R b/第10章 网络关系型图表/图10-1-3_有向且无权重关系相邻矩阵的热力图.R
@@ -1,10 +1,10 @@
 
-#EasyCharts�Ŷӳ�Ʒ��
-#����ʹ��������ѧϰ������ϵ΢�ţ�EasyCharts
+#EasyCharts团队出品，
+#如需使用与深入学习，请联系微信：EasyCharts
 
 library(ComplexHeatmap )
 library(circlize)
-
+#数据来源：https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/13_AdjacencyUndirectedUnweighted.csv
 df <-read.csv("AdjacencyUndirectedUnweighted.csv",row.names=1,header=TRUE,check.names = FALSE)
 
 df <- df[which(rowSums(df,na.rm =TRUE)>=3), which(colSums(df,na.rm =TRUE)>=3)]
