文档介绍:蚆暨南大学考试试卷芃教肁师莈填螆写蚄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))