> 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(货币供应量数据, 上证指数数据) : 找不到对象'货币供应量数据'
>