上市公司技术快速更迭行业分组指标

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

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

//更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//生成虚拟变量，参考文献选择战略性新兴产业上市公司作为研究样本。初始样本选自中国战略新兴产业综合指数（简称“新兴综指”）样本股。企业属于新兴综指样本股的，是否技术快速更迭行业企业取值为1，否则为0。
gen 是否技术快速更迭行业企业 = 0
foreach i in C39 C40 C38{
replace 是否技术快速更迭行业企业 = 1 if regexm(行业代码, "`i'")
}
label var 是否技术快速更迭行业企业 "是为1；否为0"
order 证券代码 证券简称 stkcd year 是否技术快速更迭行业企业

///更多stata学习资料尽在丘知数据分析会员之家，网址：www.qqrdata.com
//保存结果
label data "更多数据尽在丘知数据分析会员之家：www.qqrdata.com"
label variable 丘知数据分析会员之家 "www.qqrdata.com"
save 是否技术快速更迭行业企业（未剔除金融STPT）.dta, replace
export excel 是否技术快速更迭行业企业（未剔除金融STPT）.xlsx, firstrow(var) keepcellfmt replace

//剔除金融业与STPT样本
drop 丘知数据分析会员之家
drop if 证券简称==""
drop if regexm(行业代码, "J")
foreach i in ST PT{
drop if regexm(证券简称, "`i'")