点图,条形图,饼图,箱形图
> read.table("youxiangz.csv",,header=TRUE,sep=",")->jiuye
> jiuye$行业名称[grepl("电子",jiuye$行业名称)]->jyhy
> jiuye$平均劳动报酬[grepl("电子",jiuye$行业名称)]->jygz
> names(jygz)<-jyhy
#点图
> dotchart(jygz)
#条形图
> barplot(jygz,horiz=TRUE)
#饼图
> pie(jygz)
#箱形图
> boxplot(jiuye$平均教育经费)




茎叶图
> read.table("cp.csv",,header=TRUE,sep=",")->cp
> stem(cp$单机成本.元.台.,scale=2)
# 5个点概要
> fivenum(cp$单机成本.元.台.)

网友评论