人脑一小步,电脑一大步。只要换个思路,就能多快好省地解决问题——两个月前,已经有人做出来了!yihui Cloud2016
devtools::install_github('tidyss/rroughviz')
library(rroughviz)
rough_bar(iris$Species)
rough_barh(iris$Species)
rough_donut(iris$Species)
rough_pie(iris$Species)
rough_line(iris)
rough_scatter(iris$Sepal.Length,iris$Sepal.Width)
data <- data.frame(
month = c('Jan','Fre'),
A = c(10,20),
B = c(5,10)
)
rough_stackedbar(data,labels = 'month')