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-6-2 \345\215\227\344\270\201\346\240\274\345\260\224\347\216\253\347\221\260\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-6-2 \345\215\227\344\270\201\346\240\274\345\260\224\347\216\253\347\221\260\345\233\276\347\263\273\345\210\227.R" index b346102..449766d 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-6-2 \345\215\227\344\270\201\346\240\274\345\260\224\347\216\253\347\221\260\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-6-2 \345\215\227\344\270\201\346\240\274\345\260\224\347\216\253\347\221\260\345\233\276\347\263\273\345\210\227.R" @@ -1,9 +1,9 @@ -#EasyCharts团队出品,如有商用必究, -#如需使用与深入学习,请联系微信:EasyCharts +#EasyCharts鍥㈤槦鍑哄搧锛 +#濡傛湁闂淇涓庢繁鍏ュ涔狅紝鍙仈绯诲井淇★細EasyCharts library(ggplot2) -#----------------------------------单数据系列极坐标柱形图----------------------------------------- +#----------------------------------鍗曟暟鎹郴鍒楁瀬鍧愭爣鏌卞舰鍥----------------------------------------- mydata <- data.frame( a=c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"), b=c(50, 60, 70, 20,90,110,30)) myAngle <-seq(-20,-340,length.out =7) @@ -21,7 +21,7 @@ ggplot(mydata) + axis.line.y = element_line(size=0.25), axis.text.x=element_text(size = 13,colour="black",angle = myAngle)) -#--------------------------------多数据系列极坐标柱形图------------------------------------------- +#--------------------------------澶氭暟鎹郴鍒楁瀬鍧愭爣鏌卞舰鍥------------------------------------------- diamonds<-cbind(diamonds,Cou=rep(1,nrow(diamonds))) sum_clarity<-aggregate(Cou~clarity,diamonds,sum)