Name     No1   No2   No3   No4  No5   No6   No7
Gregg    4     11    53    11    0    23    52
Monica   2     1     31    6     2    1      4
Finn     54    3     13    2    165   53     3
Elijah   1     43    31    16    5    2      1

df <- read.table(text="Name     No1   No2   No3   No4  No5   No6   No7
Gregg    4     11    53    11    0    23    52
Monica   2     1     31    6     2    1      4
Finn     54    3     13    2    165   53     3
Elijah   1     43    31    16    5    2      1  ", header=TRUE)