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-2-1_\346\235\241\345\275\242\345\233\276\347\263\273\345\210\227.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-2-1_\346\235\241\345\275\242\345\233\276\347\263\273\345\210\227.R"
index 5e95d62..c0efce2 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-2-1_\346\235\241\345\275\242\345\233\276\347\263\273\345\210\227.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-2-1_\346\235\241\345\275\242\345\233\276\347\263\273\345\210\227.R"
@@ -1,11 +1,11 @@
 
-#EasyCharts团队出品，如有商用必究，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyCharts鍥㈤槦鍑哄搧锛�
+#濡傛湁闂淇涓庢繁鍏ュ涔狅紝鍙仈绯诲井淇★細EasyCharts
 
 library(ggplot2)       
 library(RColorBrewer)
 
-#---------------------------单数剧系列条形图----------------------------------------------------
+#---------------------------鍗曟暟鍓х郴鍒楁潯褰㈠浘----------------------------------------------------
 mydata<-read.csv("Stackedbar_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 
 mydata$Country <- factor(mydata$Country, levels = mydata$Country[order(mydata$Pensions)])
@@ -22,7 +22,7 @@ ggplot(data=mydata,aes(Country,Pensions))+
     legend.position = "right"# c(0.83,0.15)
   )
 
-#---------------------------双数剧系列条形图----------------------------------------------------
+#---------------------------鍙屾暟鍓х郴鍒楁潯褰㈠浘----------------------------------------------------
 library(reshape)
 mydata<-read.csv("Stackedbar_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 
@@ -44,7 +44,7 @@ ggplot(data=mydata,aes(Country,value,fill=variable))+
   )
 
 
-#-------------------------------堆积条形图-------------------------------------------------------
+#-------------------------------鍫嗙Н鏉″舰鍥�-------------------------------------------------------
 mydata<-read.csv("Stackedbar_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 
 
@@ -66,7 +66,7 @@ ggplot(data=mydata,aes(Country,value,fill=variable))+
     legend.position = "right"# c(0.83,0.15)
   )
 
-#------------------------------百分比堆积柱形图-------------------------------------------------------
+#------------------------------鐧惧垎姣斿爢绉煴褰㈠浘-------------------------------------------------------
 mydata<-read.csv("Stackedbar_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 
 sum<-sort(rowSums(mydata[,2:ncol(mydata)]),index.return=TRUE)