文档介绍：聿暨南大学考试试卷羄教莄师聿填聿写莅2010-2011_学年度第____2___学期袂课程名称:数据分析与R语言应用肂授课教师姓名:________王斌会______________腿考试时间:__2011__年__11__月___8___日螆课程类别薃必修[]选修[Ö]***考试方式肁开卷[Ö]闭卷[]莃试卷类别(A、B)螃[A]共4页莈考葿生螄填膁写蒁蕿经济学院学院(校)数量经济学专业班(级)膅羃姓名刘伟学号1130111008内招[]外招[]膀蚈题号薆一莁二罿三蚈四羇五肃六羂七螈八肄九螅十螁总分袈得分蒅节薀羈袅羄芈肈芆蒂莁膈蒃得分膄评阅人肀一、统计图表(共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))b5E2RGbCAP芃plot(A2,type="l",ylab="销售量",xlab="月份",main="冰箱(A2)",xlim=c(1,12),ylim=c(0,50))p1EanqFDPw肈plot(A3,type="l",ylab="销售量",xlab="月份",main="空调(A3)",xlim=c(1,12),ylim=c(0,50))DXDiTa9E3d蚆plot(A4,type="l",ylab="销售量",xlab="月份",main="洗衣机(A4)",xlim=c(1,12),ylim=c(0,50))RTCrpUDGiT蒅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],5PCzVD7HxA芇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],jLBHrnAILg薅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],xHAQX74J0X罿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],LDAYtRyKfE蚅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))Zzz6ZB2Ltk螅barplot(dat1[,2],xlab="季度",ylab="销售量",main="冰箱(A2)",ylim=c(0,150))dvzfvkwMI1肃barplot(dat1[,3],xlab="季度",ylab="销售量",main="空调(A3)",ylim=c(0,150))rqyn14ZNXI腿barplot(dat1[,4],xlab="季度",ylab="销售量",main="洗衣机(A4)",ylim=c(0,150))