How to obtain three R squares?

Question

Let\'s consider the following panel data:

library(plm)
data(EmplUK, package = \'plm\')
> head(EmplUK)
  firm year sector   emp    wage capital   output
1