Update 图3-6-2 南丁格尔玫瑰图系列.R

EasyChart · Jun 3, 2019 · 3c40223 · 3c40223
1 parent 279a1a2
commit 3c40223
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/第3章_类别比较型图表/图3-6-2 南丁格尔玫瑰图系列.R b/第3章_类别比较型图表/图3-6-2 南丁格尔玫瑰图系列.R
@@ -1,9 +1,9 @@
 
-#EasyCharts团队出品，如有商用必究，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyCharts团队出品，
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
 library(ggplot2)
-#----------------------------------单数据系列极坐标柱形图-----------------------------------------
+#----------------------------------单数据系列极坐标柱形图-----------------------------------------
 mydata <- data.frame( a=c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"),
                       b=c(50, 60, 70, 20,90,110,30))
 myAngle <-seq(-20,-340,length.out =7)
@@ -21,7 +21,7 @@ ggplot(mydata) +
          axis.line.y = element_line(size=0.25),
          axis.text.x=element_text(size = 13,colour="black",angle = myAngle))
 
-#--------------------------------多数据系列极坐标柱形图-------------------------------------------
+#--------------------------------多数据系列极坐标柱形图-------------------------------------------
 
 diamonds<-cbind(diamonds,Cou=rep(1,nrow(diamonds)))
 sum_clarity<-aggregate(Cou~clarity,diamonds,sum)