上市公司知识多元化指标（专利熵指数）

///更多数据尽在丘知数据分析会员之家： www.qqrdata.com
//知识多元化数据处理
//导入原始数据
use 专利面板数据.dta,clear
gen 序号=_n
label variable 丘知数据分析会员之家 "www.qqrdata.com"

//拆分专利变量(此步骤需求配置较高且耗时较长请谨慎运行，配置不够可能会卡死闪退)
split 专利, parse("@")
drop 专利 专利2
ren 专利1 专利
split  专利, parse(",")
save temp.dta, replace

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

use temp1,clear

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