简单条形图的制作
install.packages("vcd")#安装含有类风湿性关节炎新疗法研究数据集的R包“vad”
>library(vcd)#加载改包的数据
>counts<-table(Arthritis$Improved)#获用table函数取目标数据并且赋予给新的对象counts
>counts
>barplot(counts,main="Horizontal Bar Plot",xlab="Frequency",ylab="Improvement",horiz=TRUE)#简单（垂直）条形图
>barplot(counts,main="Simple Bar Plot",xlab="Improvement",ylab="Frequency")
当height是一个向量时，则会生成简单垂直条形图（默认），加上horiz=TRUE则会生成一幅水平条形图
输出结果如下
> install.packages("vcd")#安装含有类风湿性关节炎新疗法研究数据集的R包“vad”
WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:
https://cran.rstudio.com/bin/windows/Rtools/
Installing package into ‘C:/Users/qupeng/Documents/R/win-library/4.0’
(as ‘lib’ is unspecified)
试开URL’https://mirrors.tuna.tsinghua.edu.cn/CRAN/bin/windows/contrib/4.0/vcd_1.4-8.zip'
Content type 'application/zip' length 1519118 bytes (1.4 MB)
downloaded 1.4 MB
package ‘vcd’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\qupeng\AppData\Local\Temp\Rtmp0YlUCc\downloaded_packages
> library(vcd)#加载改包的数据
载入需要的程辑包：grid
> counts<-table(Arthritis$Improved)#获用table函数取目标数据并且赋予给新的对象counts
> counts
None Some Marked
42 14 28
> barplot(counts,main="Horizontal Bar Plot",xlab="Frequency",ylab="Improvement",horiz=TRUE)#简单（垂直）条形图
> barplot(counts,main="Simple Bar Plot",xlab="Improvement",ylab="Frequency")
>
