Update 图3-1-2_柱形图系列.R

第3章_类别比较型图表/图3-1-2_柱形图系列.R

@@ -1,27 +1,28 @@
-
+#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)
 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)])))