“ pht”模型中不允许重复的“ row.names”

Question

通过面板数据建立pht模型时遇到问题。它显示了重复行名的错误，但是我一直在网上搜索，但没有找到解决我的问题的解决方案。我非常感谢您的帮助！预先感谢。

我检查了我的行名是否是唯一的数据，但是我不确定是什么问题。

我的数据是链接https://www.dropbox.com/s/by1tjtc9h3dqxg8/working1%E5%89%AF%E6%9C%AC.csv?dl=0

library(plm)
library(Ecdat)
mydata <- read.csv("working1.csv",  row.names=NULL)
mydata <- data.table::fread("working1.csv", sep=";")
pdata <- pdata.frame(mydata,
                     index=c("CD.Code","Date"), 
                     row.names = TRUE)
newpdata <- pdata.frame(mydata[3:1438,], 
                        index=c("CD.Code","Date"), 
                        row.names = TRUE)
y <- pdata$lgloans
yz <- diff(y,lag=1,shift="row")
x <- pdata$Interest.Rate
xx <- diff(x,lag=1,shift="row")
a <- lag(pdata Liquidity.Ratio,k=1,shift="row")
b <- lag(pdata$Diversification.Rtio,k=1,shift="row")
c <- lag(pdata$Deposits.to.loan.ratio,k=1,shift="row")
d <- pdata$TOT
e <- pdata$GDP.Growth
f <- pdata$Unemployment
g <- pdata$Crisis
l <- g*x
h <- lag(yz,k=1,shift="row")
ht <- pht(yz~xx+h+a+b+c+d+e+f+l-1|a+b+c,
          data=newpdata,
          model="ht")
summary(ht)

错误：

  

row.names<-.data.frame（*tmp*中的错误，值= c（“ 1001-1926-Q3”，“ 1001-1926-Q4”，     不允许重复的“ row.names”