上市公司高管创新认知指标（年报文本分析）

//更多数据尽在丘知数据分析会员之家： www.qqrdata.com
//导入原始数据
use 原始数据,clear
label variable 丘知数据分析会员之家 "www.qqrdata.com"
split 文件名, parse(",")

//更多数据尽在丘知数据分析会员之家 ：www.qqrdata.com
//生成年份变量
generate 年份=substr(文件名1,8,4)

//生成证券代码变量
generate 证券代码=substr(文件名1,1,6)

//剔除B股，仅保留A股数据
drop if substr(证券代码, 1, 3)=="200" |  substr(证券代码, 1, 3)=="900" 

//更多数据尽在丘知数据分析会员之家，www.qqrdata.com
//参考文献以关键词的总字数占年报总字数的比例表征高管创新认知水平。其数值越高，代表高管创新认知水平越高。
gen 高管创新认知关键词总字数=发明*2+实用新型*4+新业务*3+创新*2+新产品*3+研究*2+工艺*2+设计*2+研制*2+专利*2+科技成果*4+预研*2+软件*2+研发*2+资本化*3+新项目*3+R_D*3+实验*2+技术*2+创造*2
gen 高管创新认知水平=(高管创新认知关键词总字数/年报总字数)*100

//更多数据尽在丘知数据分析会员之家 www.qqrdata.com
//剔除无用变量
keep 证券代码 年份 高管创新认知水平 丘知数据分析会员之家
order 证券代码 年份 高管创新认知水平 丘知数据分析会员之家
label data "更多数据尽在丘知数据分析会员之家：www.qqrdata.com"

//生成数值型年份与代码
gen stkcd=real(substr(证券代码,1,6))
gen year=real(substr(年份,1,4))