经管之家送您一份
应届毕业生专属福利!
求职就业群
感谢您参与论坛问题回答
经管之家送您两个论坛币!
+2 论坛币
> y=c(1931.3,2194.97,2214.895,2455.55,2587.17,2832.835,3200.855,3070.505,
+ 2853.895,2979.04,3142.455,3186.935,3135.32,2978.775,3048.01,3001.305,
+ 2672.265,2490.63,2488.075,2633.385,2639.28,2875.685,2972.82,2830.265,
+ 2764.73,2852.295,2931.495,2969.235,2811.335,2692.68,2752.04,2575.285,
+ 2466.51,2395.455,2428.11,2278.79,2228.56,2370.86,2359.28,2333.57,2381.4,
+ 2288.405,2172.54);##上证指数数据,2012.1——2015.7?
> x1=c(496135.31,506708.07,530626.71,540481.21,548263.51,568916.20,573102.85,
+ 576698.95,585405.34,586643.29,594604.72,610224.52,625606.29,636072.26,
+ 649947.46,656561.72,663351.37,673921.72,674051.48,687506.92,696471.5,
+ 699776.74,710339.03,725851.79,733884.83,736130.86,758130.88,757384.56,
+ 763409.22,780820.85,772923.65,780852.30,787406.20,816829.25,825493.94,
+ 851590.90,855898.89,867171.42,895565.50,889604.04,900048.77,924991.20,
+ 919072.40);##货币供应量数据,2012.1——2015.7?
> x2=c(98.3,98.4,98.8,98.5,98.6,98.3,98.2,98.8,99.2,99.5,100.6,101.9,101.5,
+ 102.7,102.4,102.8,103.1,102.9,103.3,103.5,103.6,104.4,105.1,104.6,
+ 104.9,104.9,105.4,105.3,105.5,106.4,106.5,106.2,106.1,105.5,104.2,
+ 104.1,104.5,103.2,103.6,103.4,103,102.2,101.8);##居民消费价格指数 2012.1——2015.7?
> x3=c(683.82,683.57,683.41,683.12,682.45,683.32,683.20,683.22,682.89,682.75,
+ 682.71,682.79,682.76,682.70,682.64,682.62,682.74,681.65,677.75,679.01,
+ 674.62,667.32,665.58,665.15,660.27,658.31,656.62,652.92,649.88,647.78,
+ 646.14,640.9,638.33,635.66,634.08,632.81,631.68,630,630.81,629.66,630.62,
+ 631.78,632.35);##人民币100外币兑美元汇率2012.1——2015.7?
> x4=c(17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,17.1,
+ 17.1,17.1,17.1,17.1,17.1,17.1,17.1,19.1,19.1,22.5,22.5,26,26,28.5,
+ 28.5,28.5,31,31,31,31,31,31,31,31,31,31,31,28.5,26)/10;##人民币存款利率2012.1——2015.7?
> data=cbind(y,x1,x2,x3,x4)
> data=as.data.frame(data)
> attach(data)
The following objects are masked _by_ .GlobalEnv:
x1, x2, x3, x4, y
> colnames(data)=c("上证指数数据","货币供应量数据","居民消费价格指数","美元汇率","人民币存款利率")
> plot(data)
> par(mfrow=c(2,2))
> plot(货币供应量数据,上证指数数据)
Error in plot(货币供应量数据, 上证指数数据) : 找不到对象'货币供应量数据'
>
扫码加我 拉你入群
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
|