Попробуйте это решение:
df$percentage<-c(df[1:nrow(df)-1,"Value"]/sum(df[1:nrow(df)-1,"Value"],na.rm = T),1)
df
Country Value percentage
1 UK 50 0.50
2 UK 20 0.20
3 UK 15 0.15
4 UK 10 0.10
5 UK 5 0.05
6 UK NA NA
7 Total 100 1.00
Мой вклад:
df<-data.frame(Country=c("UK","UK","UK","UK","UK","UK","Total"),Value=c(50,20,15,10,5,NA,100))
Примечание: обновлено с использованием информации в комментариях