R: how can I do data[[k]] calculation

Question

I have a data set from a sample without replacement look like this:

The picture shows the frequency of each species, and there are 50 data.c[[k]] like this. Now I\