经济数据分享IMF-World Economic Outlook-October 2012(do-file解法更新)

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

国际货币基金组织(IMF)世界经济展望(World Economic Outlook [WEO])
2012年10月份的数据库
数据源：
http://www.imf.org/external/pubs/ft/weo/2012/02/weodata/download.aspx
引用请注明出处：October 2012 WEO Database
附件 WEOupdate.zip (4.32 MB, 需要: 2 个论坛币) 本附件包括：

• WEOOct2012alla.xls
• weom.csv
• weooct2012.dta
• WEOOct2012all.xls

2013-1-22 08:40:36 上传

需要: 2 个论坛币  [购买]

（已更新，原先的group()用的是var应该用varlab）内含整理好的*.dta-file
(参照sungmoo的标签解法，为便于交流，do-file源码贴到尾部，大家看看有什么更快捷的办法)
以下是变量描述（Stata限定变量标签不得超出80个字符）：

variable name	variable label
country	Country
iso	ISO
estyr	Estimates Start After
year
BCA_NGDPD	current account balance;percent of gdp;
BCA	current account balance;u.s. dollars;billions
LE	employment;persons;millions
GGXWDG	general government gross debt;national currency;billions
GGXWDG_NGDP	general government gross debt;percent of gdp;
GGXWDN	general government net debt;national currency;billions
GGXWDN_NGDP	general government net debt;percent of gdp;
GGXCNL	general government net lending/borrowing;national currency;billions
GGXCNL_NGDP	general government net lending/borrowing;percent of gdp;
GGXONLB	general government primary net lending/borrowing;national
	currency;billions
GGXONLB_NGDP	general government primary net lending/borrowing;percent of gdp;
GGR	general government revenue;national currency;billions
GGR_NGDP	general government revenue;percent of gdp;
GGSB	general government structural balance;national currency;billions
GGSB_NPGDP	general government structural balance;percent of potential gdp;
GGX	general government total expenditure;national currency;billions
GGX_NGDP	general government total expenditure;percent of gdp;
PPPPC	gross domestic product based on purchasing-power-parity (ppp) per capita
	gdp;cur
PPPSH	gross domestic product based on purchasing-power-parity (ppp) share of
	world tot
PPPGDP	gross domestic product based on purchasing-power-parity (ppp) valuation
	of count
NGDP_FY	gross domestic product corresponding to fiscal year, current
	prices;national cur
NGDPRPC	gross domestic product per capita, constant prices;national
	currency;units
NGDPPC	gross domestic product per capita, current prices;national currency;units
NGDPDPC	gross domestic product per capita, current prices;u.s. dollars;units
NGDP_R	gross domestic product, constant prices;national currency;billions
NGDP_RPCH	gross domestic product, constant prices;percent change;
NGDP	gross domestic product, current prices;national currency;billions
NGDPD	gross domestic product, current prices;u.s. dollars;billions
NGDP_D	gross domestic product, deflator;index;
NGSD_NGDP	gross national savings;percent of gdp;
PPPEX	implied ppp conversion rate;national currency per current international
	dollar;
PCPI	inflation, average consumer prices;index;
PCPIPCH	inflation, average consumer prices;percent change;
PCPIE	inflation, end of period consumer prices;index;
PCPIEPCH	inflation, end of period consumer prices;percent change;
NGAP_NPGDP	output gap in percent of potential gdp;percent of potential gdp;
LP	population;persons;millions
FLIBOR6	six-month london interbank offered rate (libor);percent;
NID_NGDP	total investment;percent of gdp;
LUR	unemployment rate;percent of total labor force;
TXGO	value of oil exports;u.s. dollars;billions
TMGO	value of oil imports;u.s. dollars;billions
TX_RPCH	volume of exports of goods and services;percent change;
TXG_RPCH	volume of exports of goods;percent change;
TM_RPCH	volume of imports of goods and services;percent change;
TMG_RPCH	volume of imports of goods;percent change;

开源数据，一起分享
*weom.csv消掉了源数据库里的n/a和--insheet using weom.csv, names clearinsheet using weom.csv, names clear
foreach i of numlist 10/47 {
        local j=`i'+1970
        rename v`i' y`j'
}
save weo,replace
rename weosubjectcode varcode
rename subjectdescri~r var
rename weocountrycode countrycode
rename estimatesstar~r estyr
egen varm=concat(var units scale), p(;)
replace varm=strlower(varm)
drop var countrycode subjectnotes units scale countryseriesspecificnotes
order country iso varcode varm estyr
rename varcode var
rename varm varlab
outsheet using work.csv,names comma replace
save weom,replace
reshape long y,i(country iso var varlab estyr) j(year)
save work,replace
use work,clear
sort iso varlab
keep if iso=="AFG"
keep var
duplicates drop
gen n=_n
gen N=_N
reshape wide var, i(N) j(n)
drop N
*字串型变量上限为244字符[只能存入前32个变量名称(共46个)]，所以拆成两断（长度分别为179和146）
*用空格做断点，为后面token做铺垫
*（试过别的不成，比如分号，逗号什么的，token会把这些符号存在positional local macro里）
egen name1=concat(var1-var23),punct(" ")
egen name2=concat(var24-var46),punct(" ")
keep name*
local x=name1
*断点识别符为空格
token `x',parse(" ")
* 因为后面标签也要用到positional local macro，所以这里变量名称要转存在其他local macro名下，
* 此处用nm1-nm46，分成两次（1-23和24-46），因为之前由于字串过长拆过。
forvalues i=1/23{
        local nm`i' ``i''
}
local x=name2
*断点识别符为空格
token `x',parse(" ")
forvalues i=1/23{
        local j=`i'+23
        local nm`j' ``i''
}
use work,clear
*加标签
egen v=group(varlab)
levelsof varlab,l(v)
token `"`v'"',p("' `")
drop varlab var
reshape wide y,i(country iso year estyr) j(v)
forv i=1/46{
        la var y`i' `"``i''"'
}
*标签加完
save new,replace

use new,clear
*重命名
forvalues i=1/46{
        rename y`i' `nm`i''
}
save weooct2012,replace
以上办法可实现系统自动完成标签+命名（无需在rename或renvars中手动贴入变量名称）
经测，可行，不知有没有更好的办法，求解。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：Economic Outlook October do-file econom 2012 分享

好资料，多谢楼主

22691000 发表于 2013-1-21 09:36
好资料，多谢楼主

多谢支持

请问楼主：
      egen varm=concat(var units scale), p(;)
     token `"`v'"',p("' `")

请问楼主：红色的函数和命令是何含义？期待您的回复

另外，批量改名字我常用renvars命令，而您用的是rename （）（），我的stata11.2并不能执行。您用rename能批量改变量名吗？

sewind_tj 发表于 2013-1-21 16:47
请问楼主：
      egen varm=concat(var units scale), p(;)
     token `"`v'"',p("' `")

concat 即concatenate，连接的意思，该函数属egen系列，
就是说，如果想详细了解的话，可以help concat，然后egen -> ctrl+f -> concat，即可找到相应的help file
即 concat(varlist) [, format(%fmt) decode maxlength(#) punct(pchars)]            may not be combined with by.  It concatenates varlist to produce a string variable.  Values of string variables are unchanged.  Values of numeric variables are
            converted to string, as is, or are converted using a numeric format under the format(%fmt) option or decoded under the decode option, in which case maxlength() may
            also be used to control the maximum label length used.  By default, variables are added end to end: punct(pchars) may be used to specify punctuation, such as a
            space, punct(" "), or a comma, punct(,).
功能就是合并（连接）几个变量，
比如有变量var, vardescription, units,scale

var	vardescription	units	scale
NGDP_D	Gross domestic  product, current prices	national currency	billions

concat的option里有个 punct(pchars)， 这个的作用就是设定连接几个变量所用的连接符，我用的是分号;

所以其结果就是
varm的在观测值上的值为Gross domestic product, current prices;national currency;billions
之所以要连接，是因为每个国家的变量描述vardescription里有重复的，而他们之间的区别在于度量单位units不同，或是规模/级别scale不同，如果用unique函数显示var中的不同值，有46个，但是vardescription 只有 30多个，
那么在重新给变量加标签的时候，就不足了，但是通过concat，合并vardescription,units,scale后，新生成的（用来给新变量v1-v46贴标签的）变量就有46个不同值啦。
所以这都是给后面加标签做铺垫。

以下是token的help -file:
    [P] tokenize -- Divide strings into tokens 分隔字串为若干子字串

    tokenize [[`]"][string]["[']] [, parse("pchars") ]
Description
    tokenize divides string into tokens, storing the result in `1', `2', ... (the positional local macros).  Tokens are determined based on the parsing characters pchars,
    which default to a space if not specified.
Option
    parse("pchars") specifies the parsing characters.  If parse() is not specified, parse(" ") is assumed, and string is split into words.
之前在levelsof varm, local(v) 是把所有varm里的不同标签值存在v这个local macro 里（一整条长字串）
所以token `"`v'"',p("' `") 就是把 v这个local macro里的那一个长字串，根据parse设定的分隔符(' `)判定[默认分隔识别符为空格]， 断开拆成一个个子字串（46个），并存在positional位置型local macro 1-46里面。看实例：
. levelsof varlab,l(v)
`"Current account balance;Percent of GDP;"' `"Current account balance;U.S. dollars;Billions"'
`"Employment;Persons;Millions"'

只截取部分，所以看到 每个断点 特征是 ` ' (即右单引号+空格+左单引号)
如果一起execute两条命令（因为是local macro）
levelsof varlab,l(v)
macro list

可以看到macro list里的v:
_v:             `"Current account balance;Percent of GDP;"' `"Current account balance;U.S. dollars;Billions"'
                `"Employment;Persons;Millions"' (截取部分)……

v里面是个长字串（由46个子字串构成，分隔判定是` '）
连续执行3条命令：
levelsof varlab,l(v)
tokenize `"`v'"',p("' `")
display "1=|`1'|, 2=|`2'|, 3=|`3'|"

得到：
1=|Current account balance;Percent of GDP;|, 2=|Current account balance;U.S. dollars;Billions|, 3=|Employment;Persons;Millions|

最后，
forvalues i=1/46{
        label variable y`i' `"``i''"'
}
forvalues: loop over consecutive values
label variable varname ["label"]
那几个引用符就是为了["label"] 这些个label两边要加双引号"label"的

`        "         `      `i'      '         "        '
所以一共4层：
1. `i'       提取label
2. `'       引用label这个字串
3. ""       加双引号
4. `'       引用整体（加完双引号的label字串）

另外用levelsof + token这个办法要么用于贴标签，要么用于换名字，
换名字的话：
指令为：（当然之前几步也有所变化）
forvalues i=1/46{
        rename y`i' ``i''
}
不能兼顾，原因有以下几个：
1、token只存1-46一次[不能给这种positional local macro更名]，第二次就覆盖掉了；
2、不过问题不在token，那个可以在后面forvalues i=1/4{local lab`i'=``i'' }然后加标签的时候
forvalues i=1/46{label variable y`i' `"``lab`i'''"'}，问题在于levelsof，它存变量独立值的时候，自动用升序排序，所以如果标签和变量名的升序不一致的话，就乱了；

3、如果第二次reshape 的时候带着var[即i(...)里有var]做varlab的标签 +var对y1-y46的重命名，
那就会造成冗余项过多[即便是duplicates drop之后]）

目前还没想到更好的办法实现标签+命名（标签是变量的详细描述，所以较之命名更重要些，所以我是先标签，后手动命名的）

sewind_tj 发表于 2013-1-21 16:53
另外，批量改名字我常用renvars命令，而您用的是rename （）（），我的stata11.2并不能执行。您用rename能批 ...

还是用Stata12吧，论坛上有下，也不要很多币的，印象里貌似2个。
help rename group

Rename groups of variables
        rename (old1 old2 ...) (new1 new2 ...) [, options1]
help file还有很多好例子

renvars也不错，功能很全面（还可更改大小写，也可y1-y46）。
哦，rename group里有个例子之前没看到
之前的
(y1 y2 y3 y4 y5 y6 y7 y8 y9 y10
y11 y12 y13 y14 y15 y16 y17 y18 y19 y20
y21 y22 y23 y24 y25 y26 y27 y28 y29 y30
y31 y32 y33 y34 y35 y36 y37 y38 y39 y40  
y41 y42 y43 y44 y45 y46
) 可以替换为y# [功能同renvars的y1-y46]
（已测，可行，原帖已更新）
然后那些个变量名：是在work.csv里按iso, varlab排序完后提取某一国的var列表，贴出来的。

22691000 发表于 2013-1-21 09:36
好资料，多谢楼主

之前文件有硬伤，group()用的var，应该用varlab，请重新下载weoupdate.zip

谢谢楼主的详细介绍，非常清楚，收益了。
近三年痴迷stata，每天不动手就痒。加了你的粉丝和短消息，希望我们能常交流。

sewind_tj 发表于 2013-1-22 09:54
谢谢楼主的详细介绍，非常清楚，收益了。
近三年痴迷stata，每天不动手就痒。加了你的粉丝和短消息，希望我 ...

原帖do-file解法更新：
变量名称也用local做了重命名，
已实现系统自动完成加标签和重命名
（无需在rename或renvars中手动贴入变量名称）