- #barplot做数值条图
- attach(BOD)
- barplot(demand,names.arg=Time)
- ##ggplot2包做数值条图
- #qplot()做数值条图
- library(ggplot2)
- qplot(Time,demand,data=BOD,geom="bar",stat="identity")
- #ggplot()做数值条图
- ggplot(BOD,aes(x=Time,y=demand))+geom_bar(stat="identity")
- #barplot做次数条图
- attach(mtcars)
- barplot(table(factor(cyl)))
- ##ggplot2包做次数条图
- #qplot()做次数条图
- library(ggplot2)
- qplot(factor(cyl),data=mtcars,geom="bar",stat="bin")#geom="bar",stat="bin"可省
- #ggplot()做次数条图
- library(ggplot2)
- ggplot(mtcars,aes(factor(cyl)))+geom_bar(stat="bin")#stat=bin可省略
- ##ggplot()做堆积条图
- ggplot(mtcars,aes(factor(cyl),fill=factor(carb)))+geom_bar(position="stack")




雷达卡





京公网安备 11010802022788号







