R 为什么缺少拟合值？

我想计算变量stfdem上的Enep和PR的预测值。为了做到这一点，我运行了一个回归，但不知何故，我只得到了24个预测值

对于我正在观察的25个国家，Enep和PR是25个不同的变量（无NA），stfdem（y）来自一个包含45k个观察值的数据集（在同一25个国家）。 同样的总结过程也适用于另一组变量。因此，我认为原始数据集出了问题。 请在下面找到我的代码和带有Enep和PR的数据集（我也将其集成到我的主数据集ESS_子集中）

你知道我错过了什么吗

代码：

---

问题似乎来自

stfdem

，但未提供。能否请您提供

ESS_subset

？由于数据集有47000多个观测值，我如何以合理的方式提供这些值？也许，碰巧您有两个相同的拟合值，而您最后一行中的

unique

语句正在删除其中一个。

mod_swd_elec <- lm (stfdem~Enep+PR, data = ESS_subset)
summary(mod_swd_elec)

fitted.values.elec <- as.data.frame(predict(mod_swd_elec))
fitted.values.elec <- as.data.frame(unique(fitted.values.elec[,1]))

   cntry  Enep PR
1     BE 10.04  1
2     BG   4.4  1
3     CH  6.35  1
4     CY   3.9  1
5     CZ  6.75  1
6     DE  5.58  1
7     DK  5.72  1
8     EE  4.73  1
9     ES  2.79  1
10    FI  6.46  1
11    FR  4.32  0
12    GB  3.71  0
13    HU  2.82  1
14    IE  4.43  1
15    IL  7.37  1
16    IS  4.55  1
17    IT  3.82  1
18    LT   8.9  1
19    NL  6.97  1
20    NO  4.56  1
21    PO  3.72  1
22    PT  3.96  1
23    SE  4.78  1
24    SI  5.47  1
25    SK  5.53  1