《数据统计分析及R语言编程（第二版）》练习题总结（一）

将教材第30页习题4的我国财政1978-2008的数据输入到电子表格中，并完成如下操作。
（1）用R语言read.table和read.csv函数读取数据；分别显示前6行和后6行数据。

用R语言read.table函数读取数据，并显示前6行。

table = read.table(file = "dstatR2data.csv", header = T)
head(table)
                           t.y.x1.x2.x3.x4
1   1978,11.3262,36.241,5.1928,3.55,406.82
2   1979,11.4638,40.382,5.3782,4.12,415.92
3     1980,11.5993,45.178,5.717,5.7,429.03
4  1981,11.7579,48.603,6.2989,8.904,441.65
5 1982,12.1233,53.018,7.0002,12.801,456.74
6 1983,18.6695,59.574,7.5559,15.903,467.07

用R语言read.csv函数读取数据，并显示后6行。

table = read.csv(file = "dstatR2data.csv", header = T)
tail(table,6)
      t        y       x1       x2       x3     x4
26 2003 217.1525 1358.228 200.1731  704.835 760.75
27 2004 263.9647 1598.783 241.6568  955.391 768.23
28 2005 316.4929 1832.174 287.7854 1169.218 778.77
29 2006 387.6020 2119.235 348.0435 1409.714 782.44
30 2007 513.2178 2495.299 456.2197 1667.402 786.45
31 2008 613.3035 3006.700 542.1962 1778.898 790.48

（2）用R函数获取1978-2002的六项数据，以及1993-2008的国民生产总值和经济活动人口数据。并顺序显示前3行和逆序显示后3行。

用R函数获取1978-2002的六项数据，并顺序显示前3行和逆序显示后3行。

table = read.csv(file = "dstatR2data.csv", header = T)
subdata = subset(table, t>=1978 & t<=2002)
print(subdata[1:3,])
     t       y     x1     x2   x3     x4
1 1978 11.3262 36.241 5.1928 3.55 406.82
2 1979 11.4638 40.382 5.3782 4.12 415.92
3 1980 11.5993 45.178 5.7170 5.70 429.03

table = read.csv(file = "dstatR2data.csv", header = T)
subdata = subset(table, t>=1978 & t<=2002)
print(subdata[25:23,])
      t        y       x1       x2      x3     x4
25 2002 189.0364 1203.327 176.3645 513.782 753.60
24 2001 163.8604  943.464 153.0138 421.933 744.32
23 2000 133.9523  882.281 125.8151 392.742 739.92

用R函数获取1993-2008的国民生产总值和经济活动人口数据，并顺序显示前3行和逆序显示后3行。

table = read.csv(file = "dstatR2data.csv", header = T)
subdata = subset(table, t>=1993 & t<=2008, c('x1', 'x4'))
print(subdata[1:3,])
print(subdata[16:14,])
        x1     x4
16 345.605 674.68
17 466.700 681.35
18 574.949 688.55
         x1     x4
31 3006.700 790.48
30 2495.299 786.45
29 2119.235 782.44

（3）写出提取2000年数据的R命令及显示提取结果，写出提取税收(x2)数据的R命令及显示提取结果。

提取2000年数据的R命令，及显示提取结果。

table = read.csv(file = "dstatR2data.csv", header = T)
subdata = subset(table, t==2000)
print(subdata)
      t        y      x1       x2      x3     x4
23 2000 133.9523 882.281 125.8151 392.742 739.92

提取税收(x2)数据的R命令，及显示提取结果。

table = read.csv(file = "dstatR2data.csv", header = T)
subdata = subset(table, t==2000,c('x2'))
print(subdata)
         x2
23 125.8151

（4）提取1986-2005年经济活动人口（x4）大于600的国民生产总值（x1）和进出口贸易值（x3），及显示提取结果。

提取1986-2005年经济活动人口（x4）大于600的国民生产总值（x1）和进出口贸易值（x3），及显示提取结果。

table = read.csv(file = "dstatR2data.csv", header = T)
subdata = subset(table, x4>600,c('x1','x3'))
print(subdata)
         x1       x3
13  185.984   55.601
14  216.625   72.258
15  266.519   91.196
16  345.605  112.710
17  466.700  203.819
18  574.949  234.999
19  668.505  241.338
20  731.427  269.672
21  769.672  268.577
22  805.794  298.963
23  882.281  392.742
24  943.464  421.933
25 1203.327  513.782
26 1358.228  704.835
27 1598.783  955.391
28 1832.174 1169.218
29 2119.235 1409.714
30 2495.299 1667.402
31 3006.700 1778.898