R之条形图

> chooseCRANmirror()
> install.packages("vcd")  #vcd包是探索类风湿性关节炎新疗法研究的结果，我们使用它的数据
试开URL’https://cloud.r-project.org/bin/windows/contrib/3.3/vcd_1.4-3.zip'
Content type 'application/zip' length 1266364 bytes (1.2 MB)
downloaded 1.2 MB

程序包‘vcd’打开成功，MD5和检查也通过

下载的二进制程序包在
        C:\Users\Administrator\AppData\Local\Temp\RtmpK6ZKXL\downloaded_packages里

> library(vcd)
载入需要的程辑包：grid
> counts <- table(Arthritis$Improved)
> counts 

  None   Some Marked 
    42     14     28 
> barplot(counts,    #简单条形图
+ main="Simple Bar Plot",
+ xlab="Improvement",ylab="Frequency")
> 

> barplot(counts,             #水平条形图
+ main="Horizontal Bar Plot",
+ xlab="Frequency",ylab="Improvement",
+ horiz=TRUE)
> 

堆砌条形图

> library(vcd)
> counts <- table(Arthritis$Improved,Arthritis$Treatment)
> counts

         Placebo Treated
  None        29      13
  Some         7       7
  Marked       7      21

> dev.new()
> barplot(counts,main="Stacked Bar Plot",xlab="Treatment",ylab="Frequency",col=c("red","yellow","blue"),legend=rownames(counts))
> 

分组条形图

> barplot(counts,main="Grouped Bar Plot",xlab="Treatment",ylab="Frequency",col=c("red","yellow","green"),legend=rownames(counts),beside=TRUE)