R代码：

library(ggplot2)
data1<-read.table(file = "cons_spec_gene.xls",header = TRUE,sep = "\t")
p<-ggplot(data = http://www.mamicode.com/data1,mapping = aes(x = Group,y = Gene.number,fill = Legend))+geom_bar(stat = ‘identity‘,width = 0.5)
q<-p+labs(x="Genome",y="Gene number")+theme_bw()+theme(panel.grid=element_blank(),panel.border=element_blank())
a<-q+theme(panel.border=element_rect(fill=‘transparent‘, color=‘black‘),axis.text.x =element_text (angle=45,hjust=1))
b<-a+coord_cartesian(ylim=c(0,8000))
b

library查看是否安装ggplot；
将目录放入session设置的文件夹，，用read.table打开xls格式的文件，双击tab，自动补充header=TRUE,需要title。分隔符设置为\t读入。
使用ggplot(),双击tab补充参数，依次为读入文件，映射x=group的名，y为gene number数字，fill=Legend的数据，读入y数值属于什么gene的名字，颜色以区分; stat="identity"用来identity提取横坐标x对应的y值，默认一个x对应一个y，width指定宽度。ggplot 的geom_bar 有三种position : stack（默认上下）, dodge（左右）,fill(百分之百1来作为纵坐标的衡量）。
Labs(x=””,y=””)修改横纵坐标名字+去掉灰色背景+panel.grid/panel.border去掉网格线(所有线都没有了)，
Pandel.border加入黑色边框，x轴坐标轴刻度倾斜45度，hjust使刻度下调0.5，
将y轴设置范围为0-8000

8.

先加载包（不加载找不到看不了mpg），查看数据集mpg/mpg$class,以向量取0-36行存入ne‘wdata，无引号，有列名写入x‘l‘s。

像第七题那样读入x‘l‘s文件，加载包，用数据data1,x=displ,y=hwycolor=trans，si‘ze=class，然后+散点图geom_point()
p
输出p

R ggplot 作图