根据你的问题修改以下程序：

xuexile!

学写了！

use "D:\My Documents\grunfeld.dta", clear
set matsize 6000

matrix R2=J(10,1,0)

forval j=1/10 {
reg inv cap val if firmcode==`j'
scalar  rt = e(r2)
matrix R2[`j',1]=rt
}

svmat R2
matrix list R2
histogram R2, kdensity

請試試（類似）：所有迴歸（每一公司）之 $R^2$ 會存在 "r2.dta" 中。