我有一个名为data.txt的数据表
2001 109428 2002 117034 2003 147405 2004 142642 2005 148161 2006 145700 2007 125617 2008 139669 2009 90575 2010 111989 2011 126130 2012 111258 2013 103455 2014 106235 2015 108819 2016 119000 2017 21908
我希望将它们放在一个集合中，第一列是年份，第二列是当年注册的汽车数量。我使用了for循环和rep（）函数来执行此操作
carAge<- read.table('data.txt',header=FALSE)
for (i in 1:17){
set <- rep(carAge[i,1],carAge[i,2])
}
print(mean(set))
我得到的结果是
[1] 2017