上市公司数字经济产业分组指标

///更多stata学习资料尽在丘知数据分析会员之家，网址：www.qqrdata.com
//导入原始数据
use 原始数据,clear
duplicates drop stkcd year, force
label data "更多stata学习资料尽在丘知数据分析会员之家：www.qqrdata.com"

//剔除B股
drop if substr(证券代码, 1, 3)=="200" |  substr(证券代码, 1, 3)=="900"

///更多stata学习资料尽在丘知数据分析会员之家，网址：www.qqrdata.com
//生成STPT、金融业虚拟变量
gen STPT = 0
foreach i in ST PT{
replace STPT = 1 if regexm(证券简称, "`i'")
}
label var STPT "是否ST或PT，是为1；否为0"
gen 金融业 = 0
foreach i in J{
replace 金融业 = 1 if regexm(行业代码, "`i'")
}
label var 金融业 "是否属于金融业，是为1；否为0"

///更多stata学习资料尽在丘知数据分析会员之家，网址：www.qqrdata.com
//生成虚拟变量，是否数字经济产业企业（企业是否属于文献：《企业杠杆行为与技术创新-曾国安》选取的25个数字经济产业大类：C23 C24 C26 C34 C35 C36 C37 C38 C39 C40 E47 E48 E49 F51 F52 I63 I64 I65 L71 L72 M74 M75 O81 R86 R87，是为1；否为0，是为1；否为0）
gen 是否数字经济产业企业 = 0
foreach i in C23 C24 C26 C34 C35 C36 C37 C38 C39 C40 E47 E48 E49 F51 F52 I63 I64 I65 L71 L72 M74 M75 O81 R86 R87{
replace 是否数字经济产业企业 = 1 if regexm(行业代码, "`i'")
}
label var 是否数字经济产业企业"企业是否属于文献：《企业杠杆行为与技术创新-曾国安》选取的25个数字经济产业大类：C23 C24 C26 C34 C35 C36 C37 C38 C39 C40 E47 E48 E49 F51 F52 I63 I64 I65 L71 L72 M74 M75 O81 R86 R87，是为1；否为0，是为1；否为0"
order 证券代码 证券简称 stkcd year 是否数字经济产业企业 金融业 STPT