上市公司颠覆性技术创新指标

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

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

///更多数据尽在丘知数据分析会员之家 ：www.qqrdata.com
//整理企业颠覆性技术创新
gen 颠覆性技术创新（发明、实用）=ln(颠覆性技术创新发明专利数+颠覆性技术创新实用专利数+1)
gen 颠覆性技术创新（发明）=ln(颠覆性技术创新发明专利数+1)
gen 颠覆性技术创新（实用）=ln(颠覆性技术创新实用专利数+1)

///更多数据尽在丘知数据分析会员之家： www.qqrdata.com
//整理结果
order 证券代码 证券简称 stkcd year
local var 证券代码 证券简称 stkcd year 颠覆性技术创新（发明、实用） 颠覆性技术创新（发明） 颠覆性技术创新（实用）
foreach v of varlist `var' {
   	   label var `v' "`v'"
}
sort stkcd year
order 证券代码 证券简称 stkcd year 颠覆性技术创新（发明、实用） 颠覆性技术创新（发明） 颠覆性技术创新（实用） 颠覆性技术创新发明专利数 颠覆性技术创新实用专利数 行业代码 行业名称 所属省份 所属省份代码 所属城市 所属城市代码 丘知数据分析会员之家
keep 证券代码 证券简称 stkcd year 颠覆性技术创新（发明、实用） 颠覆性技术创新（发明） 颠覆性技术创新（实用） 颠覆性技术创新发明专利数 颠覆性技术创新实用专利数 行业代码 行业名称 所属省份 所属省份代码 所属城市 所属城市代码 丘知数据分析会员之家

///更多数据尽在丘知数据分析会员之家，www.qqrdata.com
//保存结果
label data "更多数据尽在丘知数据分析会员之家：www.qqrdata.com"
label variable 丘知数据分析会员之家 "www.qqrdata.com"
save 企业颠覆性技术创新（未剔除未缩尾）.dta, replace