求回答！！

library(plm)
data(Grunfeld)
grun.fe1<-plm(inv~value+capital,data=Grunfeld,model="within",type="dmean")
summary(fixef(grun.fe1,type="level"))
summary(fixef(grun.fe1,type="dmean"))

然后两个summary结果相减就是，楼主仔细看下fixef的帮助文件。