How to create a type-token ratio table in R based on two tables?

I have two tables. One is the table of the token frequency:

How to create a type-token ratio table in R based on two tables?

I have two tables. One is the table of the token frequency: