上市公司专利质量与知识宽度指标

////////////////////////////////////////////////////////
//////////////////////计算申请专利质量/////////////////////
////////////////////////////////////////////////////////
use 申请面板数据.dta,clear
label variable 丘知数据分析会员之家 "www.qqrdata.com"
gen 序号=_n

///更多数据尽在丘知数据分析会员之家： www.qqrdata.com
//拆分专利变量(此步骤需求配置较高且耗时较长请谨慎运行，配置不够可能会卡死闪退)
split 专利, parse("@")
drop 专利 专利2
ren 专利1 专利
split 专利, parse(",")
save temp.dta, replace

///更多数据尽在丘知数据分析会员之家 ：www.qqrdata.com
//循环处理专利及大组变量(此步骤需求配置较高且耗时较长请谨慎运行，配置不够可能会卡死闪退)
forv i=1/1703{
    use 股票代码 会计年度 专利 序号 专利`i' using temp.dta, clear
	rename 专利`i' 专利细分
	drop if 专利细分==""
	save temp`i'.dta, replace
	
}

//更多数据 尽在丘知数据分析会员之家：www.qqrdata.com
use temp1,clear
//纵向合并1/100(此步骤需求配置较高且耗时较长请谨慎运行，配置不够可能会卡死闪退)
forv i=2/100 {
	append using temp`i'.dta