p1 <- ggplot(mtcars) + geom_bar(aes(x=as.factor(am), fill=as.factor(am))) + theme(legend.margin = margin(0,unit="pt")) p2 <- ggplot(mtcars) ...
確定! 回上一頁