From 8813bfba695d86b24d5e69681593e4392528c504 Mon Sep 17 00:00:00 2001
From: EasyChart <easycharts@hotmail.com>
Date: Mon, 3 Jun 2019 11:09:11 +0800
Subject: [PATCH] =?UTF-8?q?Update=20=E5=9B=BE3-1-2=5F=E6=9F=B1=E5=BD=A2?=
 =?UTF-8?q?=E5=9B=BE=E7=B3=BB=E5=88=97.R?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ...275\242\345\233\276\347\263\273\345\210\227.R" | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

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-1-2_\346\237\261\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-1-2_\346\237\261\345\275\242\345\233\276\347\263\273\345\210\227.R"
index 4f129f9..548ff3e 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-1-2_\346\237\261\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-1-2_\346\237\261\345\275\242\345\233\276\347\263\273\345\210\227.R"
@@ -1,12 +1,13 @@
-
+#EasyCharts团队出品，
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
 library(ggplot2) 
 
-#---------------------------������ϵ������ͼ----------------------------------------------------
+#---------------------------单数剧系列柱形图----------------------------------------------------
 
 mydata<-data.frame(Cut=c("Fair","Good","Very Good","Premium","Ideal"), 
                    Price=c(4300,3800,3950,4700,3500)) 
-#���򷽷�1���������ݿ�data.frame
+#排序方法1：基于数据框data.frame
 library(dplyr)
 mydata2<-arrange(mydata,desc(Price))
 mydata$Cut <- factor(mydata$Cut, levels = mydata2$Cut)
@@ -14,14 +15,14 @@ ggplot(data=mydata,aes(Cut,Price))+
   geom_bar(stat = "identity", width = 0.8,
            colour="black",size=0.25,fill="#FC4E07",alpha=1)
 
-#���򷽷�2����������vector
+#排序方法2：基于向量vector
 order<-sort(mydata$Price,index.return=TRUE,decreasing = TRUE) 
 mydata$Cut <- factor(mydata$Cut, levels = mydata$Cut[order$ix]) 
 ggplot(data=mydata,aes(Cut,Price))+ 
   geom_bar(stat = "identity", width = 0.8,
            colour="black",size=0.25,fill="#FC4E07",alpha=1)
 
-#---------------------------˫����ϵ������ͼ----------------------------------------------------
+#---------------------------双数剧系列柱形图----------------------------------------------------
 library(reshape2)
 mydata<-read.csv("MultiColumn_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 
@@ -41,7 +42,7 @@ ggplot(data=mydata,aes(Catergory,value,fill=variable))+
     legend.position = c(0.88,0.88)
   )
 
-#-------------------------------�ѻ�����ͼ-------------------------------------------------------
+#-------------------------------堆积柱形图-------------------------------------------------------
 mydata<-read.csv("StackedColumn_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 
 sum<-sort(rowSums(mydata[,2:ncol(mydata)]),index.return=TRUE)
@@ -64,7 +65,7 @@ ggplot(data=mydata,aes(variable,value,fill=Clarity))+
     legend.position = c(0.85,0.82)
   )
 
-#------------------------------�ٷֱȶѻ�����ͼ-------------------------------------------------------
+#------------------------------百分比堆积柱形图-------------------------------------------------------
 
 mydata<-read.csv("StackedColumn_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 Per<-(as.matrix(mydata[5,2:ncol(mydata)])) / t(as.matrix(colSums(mydata[,2:ncol(mydata)])))