Machine Learning基础(统计分析)

以2010年各行业就业调查数据，分析电子行业劳动报酬水平。
从数据集中删选电子行业的劳动报酬，并画成点图：

> read.table("F:/Machine Learning/R Basic/youxiangz.csv",header = TRUE,sep = ",")->jiuye

> jiuye$平均劳动报酬[grepl("电子",jiuye$行业名称)]->jygz

> names(jygz)<-jyhy
> dotchart(jygz)

可以看到，电子计算机制造位于行业薪水的顶端。

下面以饼状图和条形图为手段来分析中介行业：

> jiuye$平均劳动报酬[grepl("中介",jiuye$行业名称)]->jygz
> jiuye$行业名称[grepl("中介",jiuye$行业名称)]->jyhy
> names(jygz)<-jyhy
> barplot(jygz,horiz = TRUE)
> pie(jygz)