文档介绍：羃暨南大学考试试卷莁教袈师芅填肄写蒀2010-2011_学年度第____2___学期芇课程名称:数据分析与R语言应用羅授课教师姓名:________王斌会______________膆考试时间:__2011__年__11__月___8___日袂课程类别螇必修[]选修[Ö]羀考试方式蒀开卷[Ö]闭卷[]莃试卷类别(A、B)衿[A]共4页芆考螂生蒁填艿写羇袃经济学院学院(校)数量经济学专业班(级)蕿蚈姓名刘伟学号08内招[]外招[]蚇袄题号羂一膈二蒈三蚂四肀五薇六膈七螃八莃九芀十蚄总分螅得分薁蚀蒅薂虿聿膅蚃羂薈袅螅膀得分羈评阅人蚆一、统计图表(共1小题,共20分)\月份薁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)+,cex=)袈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=(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=(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]薁y2=dat1[1,2]+dat1[2,2]+dat