diff --git "a/\347\254\2543\347\253\240_\347\261\273\345\210\253\346\257\224\350\276\203\345\236\213\345\233\276\350\241\250/\345\233\2763-3-1 \344\270\215\347\255\211\345\256\275\346\237\261\345\275\242\345\233\276.R" "b/\347\254\2543\347\253\240_\347\261\273\345\210\253\346\257\224\350\276\203\345\236\213\345\233\276\350\241\250/\345\233\2763-3-1 \344\270\215\347\255\211\345\256\275\346\237\261\345\275\242\345\233\276.R" index cc5d92a..30a8f6c 100644 --- "a/\347\254\2543\347\253\240_\347\261\273\345\210\253\346\257\224\350\276\203\345\236\213\345\233\276\350\241\250/\345\233\2763-3-1 \344\270\215\347\255\211\345\256\275\346\237\261\345\275\242\345\233\276.R" +++ "b/\347\254\2543\347\253\240_\347\261\273\345\210\253\346\257\224\350\276\203\345\236\213\345\233\276\350\241\250/\345\233\2763-3-1 \344\270\215\347\255\211\345\256\275\346\237\261\345\275\242\345\233\276.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轴的终点(最大点) +#鏋勯犵煩褰杞寸殑缁堢偣锛堟渶澶х偣锛 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() \ No newline at end of file +#dev.off()