Update 图3-8-1 雷达图的绘制演变过程.R

EasyChart · Jun 3, 2019 · 21bc897 · 21bc897
1 parent 9473083
commit 21bc897
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/第3章_类别比较型图表/图3-8-1 雷达图的绘制演变过程.R b/第3章_类别比较型图表/图3-8-1 雷达图的绘制演变过程.R
@@ -1,10 +1,11 @@
-
-#EasyCharts团队出品，如有商用必究，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyCharts团队出品，
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
 library(ggplot2)
 
-#--------------------------------------------雷达图实现原理-------------------------------------------------------
+#--------------------------------------------雷达图实现原理-------------------------------------------------------
+#Reference:https://github.com/cardiomoon/ggplot2new/blob/4e50b7dcfee3246a169702f88f7dd46cbf933f4b/coord_radar.R
+
 coord_radar <- function (theta = "x", start = 0, direction = 1) 
 {  theta <- match.arg(theta, c("x", "y"))
 r <- if (theta == "x") 
@@ -15,7 +16,7 @@ ggproto("CoordRadar", CoordPolar, theta = theta, r = r, start = start,
         is_linear = function(coord) TRUE)}
 
 
-#----------------------------------------单数据系列--------------------------------------------------------------
+#----------------------------------------单数据系列--------------------------------------------------------------
 label_data<-data.frame(car=c("Math" , "English" , "Biology" , "Music" , "R-Coding" ),
                     id=c(1:5) ,
                     value=c(12 , 2 ,14 ,20, 18))
@@ -28,15 +29,15 @@ myAngle<- 360- 360 * (label_data$id-1) /nrow(label_data)
 ggplot() + 
   geom_polygon(data=mydata,aes(x=id, y=value),color = "black", fill=brewer.pal(7,"Set1")[1],alpha=0.1)+
   geom_point(data=mydata,aes(x=id, y=value),size=5,shape=21,color = 'black', fill=brewer.pal(7,"Set1")[1])+
-  coord_polar() + #实现为图3-8-1(c) 的圆形雷达图
+  coord_polar() + #实现为图3-8-1(c) 的圆形雷达图
   ylim(0,22)+
   theme_light()+
   theme(axis.text.x=element_text(size = 11,colour="black"))
 
 ggplot() + 
   geom_polygon(data=mydata,aes(x=id, y=value),color = "black", fill=brewer.pal(7,"Set1")[1],alpha=0.1)+
   geom_point(data=mydata,aes(x=id, y=value),size=5,shape=21,color = 'black', fill=brewer.pal(7,"Set1")[1])+
-  coord_polar() + #实现为图3-8-1(c) 的圆形雷达图
+  coord_polar() + #实现为图3-8-1(c) 的圆形雷达图
   #coord_radar()+  #
   scale_x_continuous(breaks =label_data$id,labels=label_data$car)+
   ylim(0,22)+