From 40c524e4867719350718609ea2fbb37750e7229e Mon Sep 17 00:00:00 2001 From: EasyChart Date: Mon, 3 Jun 2019 11:09:27 +0800 Subject: [PATCH] =?UTF-8?q?Update=20=E5=9B=BE3-2-1=5F=E6=9D=A1=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 --- ...45\275\242\345\233\276\347\263\273\345\210\227.R" | 12 ++++++------ 1 file changed, 6 insertions(+), 6 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-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)