Update 图3-3-1 不等宽柱形图.R

第3章_类别比较型图表/图3-3-1 不等宽柱形图.R

@@ -1,7 +1,6 @@
 
-
-#EasyCharts团队出品，如有商用必究，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyCharts团队出品，
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
 library(ggplot2)
 library(Cairo)
@@ -12,18 +11,18 @@ mydata$xmin<-0
 for (i in 2:5){
   mydata$xmin[i]<-sum(mydata$Scale[1:i-1])
 }
-#构造矩形X轴的终点（最大点）
+#构造矩形X轴的终点（最大点）
 for (i in 1:5){
   mydata$xmax[i]<-sum(mydata$Scale[1:i])
 }
-#构造数据标签的横坐标：
+#构造数据标签的横坐标：
 for (i in 1:5){
   mydata$label[i]<-sum(mydata$Scale[1:i])-mydata$Scale[i]/2
 }
 
-#CairoPDF(file="不等宽柱形图.pdf",width=4.89,height=5.53)
+#CairoPDF(file="不等宽柱形图.pdf",width=4.89,height=5.53)
 #showtext.begin()
-#windowsFonts(myFont = windowsFont("微软雅黑"))
+#windowsFonts(myFont = windowsFont("微软雅黑"))
 ggplot(mydata)+
   geom_rect(aes(xmin=xmin,xmax=xmax,ymin=0,ymax=ARPU,fill=Name),colour="black",size=0.25)+
   geom_text(aes(x=label,y=ARPU+3,label=ARPU),size=4,col="black")+
@@ -39,4 +38,4 @@ ggplot(mydata)+
         legend.position="none"
   )
 #showtext.end()
-#dev.off()
+#dev.off()