Update 图3-4-1 克利夫兰点图系列.R

EasyChart · Jun 3, 2019 · 0f2f5e5 · 0f2f5e5
1 parent 5ac842e
commit 0f2f5e5
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/第3章_类别比较型图表/图3-4-1 克利夫兰点图系列.R b/第3章_类别比较型图表/图3-4-1 克利夫兰点图系列.R
@@ -1,14 +1,11 @@
 
-#EasyCharts团队出品，如有商用必究，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyCharts团队出品，
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
 library(ggplot2)
 library(reshape2)
 
-setwd("F:/1.学术图表绘制指南/1. R语言数据可视化之美/R-类别比较/")
-
-
-#-------------------------------- (a)棒棒糖图 ----------------------------------------------
+#-------------------------------- (a)棒棒糖图 ----------------------------------------------
 
 mydata<-read.csv("DotPlots_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 mydata$sum<-rowSums(mydata[,2:3])
@@ -28,7 +25,7 @@ ggplot(mydata, aes(sum, City)) +
     legend.title=element_text(size=14,face="plain",color="black")
   )
 
-#-------------------------------- (b) 克利夫兰点图  ----------------------------------------------
+#-------------------------------- (b) 克利夫兰点图  ----------------------------------------------
 
 mydata<-read.csv("DotPlots_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 mydata$sum<-rowSums(mydata[,2:3])
@@ -44,7 +41,7 @@ ggplot(mydata, aes(sum, City)) +
     legend.title=element_text(size=14,face="plain",color="black")
   )
 
-#----------------------------------(c) 哑铃图------------------------
+#----------------------------------(c) 哑铃图------------------------
 mydata<-read.csv("DotPlots_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
 mydata$City <- factor(mydata$City, levels = mydata$City[order(mydata$Female)])
 mydata<-melt(mydata,id.vars='City')