For better help you all the community, put a reproducible example of data.
Like this:
dput(Mouse[1:30 , ]
copy and paste the result of this code.