编辑代码

myString <- "城市广告市场案例     - from R"
#城市广告市场
print ( myString)
x=c(112, 51, 9, 16, 10, 2);
namex=c("商业广告","服务广告", "金融广告", "房地产广告", "招生招聘广告","其他广告");
pie(x,labels=namex,main="广告类型饼形图");    #绘制饼形图  
#绘制条形图
width=c(4,4,4,4,4,4);    		#边框宽度
space=c(1,1,1,1,1,1);    		#边框间距
barplot(x,names.arg=namex,width=width,space=space,main="广告类型条形图");