2011研究生R语言考题.docVIP

暨 南 大 学 考 试 试 卷 教 师 填 写 2010 - 2011_ 学年度第____2___学期 课程名称： 数据分析与R语言应用 授课教师姓名：________王斌会______________ 考试时间:__2011__年__11__月___8___日 课程类别 必修[ ] 选修[ ? ] 考试方式 开卷[ ? ] 闭卷[ ] 试卷类别(A、B) [ A ] 共 4 页 考 生 填 写 经济学院 学院(校) 数量经济学 专业 班(级) 姓名 刘伟 学号 1130111008 内招[ ] 外招[ ] 题 号 一 二 三 四 五 六 七 八 九 十 总 分 得 分 得分 评阅人 一、统计图表（共1小题，共20分） 1．应用R图表对各类产品供货走势图分析 类别\月份 1 2 3 4 5 6 7 8 9 10 11 12 彩电A1 冰箱A2 空调A3 洗衣机A4 要求：数据由R随机数函数生成，产生[20,50]间的均匀随机数。 解：首先对R进行初始化，设定参数，再生成随机数，代码如下： rm(list=ls()) options(digits=4) par(mar=c(4,4,2,1)+0.1,cex=0.75) A1=runif(12,20,50);A1 A2=runif(12,20,50);A2 A3=runif(12,20,50);A3 A4=runif(12,20,50);A4 （2）分析（图形要进行一定修饰）： 1）绘制各类产品的月份趋势线图。 解：趋势线图如下 代码如下： par(mfrow=c(2,2)) plot(A1,type=l,ylab=销售量,xlab=月份,main=彩电(A1),xlim=c(1,12),ylim=c(0,50)) plot(A2,type=l,ylab=销售量,xlab=月份,main=冰箱(A2),xlim=c(1,12),ylim=c(0,50)) plot(A3,type=l,ylab=销售量,xlab=月份,main=空调(A3),xlim=c(1,12),ylim=c(0,50)) plot(A4,type=l,ylab=销售量,xlab=月份,main=洗衣机(A4),xlim=c(1,12),ylim=c(0,50)) 2）绘制各类产品的季度的柱形图。 解：首先对数据进行整理，得出各自的季度数据。柱状图如下 代码如下： dat=data.frame(A1,A2,A3,A4) q1=c(dat[1,1]+dat[2,1]+dat[3,1],dat[4,1]+dat[5,1]+dat[6,1],dat[7,1]+dat[8,1]+dat[9,1], dat[10,1]+dat[11,1]+dat[12,1]) q2=c(dat[1,2]+dat[2,2]+dat[3,2],dat[4,2]+dat[5,2]+dat[6,2],dat[7,2]+dat[8,2]+dat[9,2], dat[10,2]+dat[11,2]+dat[12,2]) q3=c(dat[1,3]+dat[2,1]+dat[3,3],dat[4,3]+dat[5,1]+dat[6,3],dat[7,3]+dat[8,3]+dat[9,3], dat[10,3]+dat[11,3]+dat[12,3]) q4=c(dat[1,4]+dat[2,4]+dat[3,4],dat[4,4]+dat[5,4]+dat[6,4],dat[7,4]+dat[8,4]+dat[9,4], dat[10,4]+dat[11,4]+dat[12,4]) dat1=data.frame(q1,q2,q3,q4);dat1 par(mfrow=c(2,2)) barplot(dat1[,1],xlab=季度,ylab=销售量,main=彩电(A1),ylim=c(0,150)) barplot(dat1[,2],xlab=季度,ylab=销售量,main=冰箱(A2),ylim=c(0,150)) barplot(dat1[,3],xlab=季度,ylab=销售量,main=空调(A3),ylim=c(0,150)) barplot(dat1[,4],xlab=季度,ylab=销售量,main=洗衣机(A4),ylim=c(0,150)) 3）绘制各类产品的年度的饼图。 解：饼图如下 代码如下： par(mfrow=c(1,1)) y1=dat1[1,1]+dat1[2,1]+dat1[3,1]+dat1[4,1]