R: create a function that operates on different rows and creates a new column with its value

Question

I have the following dataframe(df1). This dataframe contains a row called "Mean" that has the mean of each column.

         GDP    per_capita 
Franc