ggplot(mtcars[!mtcars$cyl==4,], aes(cyl))+geom_bar() + scale_x_discrete(drop=F)
2012年3月16日17:37 Bart <bartsm...@gmail.com>:
> library(ggplot2)
> mtcars$cyl<-factor(mtcars$cyl)
> ggplot(mtcars[!mtcars$cyl==4,], aes(cyl))+geom_bar()
> levels(mtcars[!mtcars$cyl==4,]$cyl)
--
--
Kohske Takahashi <takahash...@gmail.com>
Research Center for Advanced Science and Technology,
The University of Tokyo, Japan.
http://www.fennel.rcast.u-tokyo.ac.jp/profilee_ktakahashi.html