$ operator is invalid for atomic vectors in R after using data.frame()

Question

I have read several posts about this problem in r and I think I have understood the reason behind it. However, after adjusting, my code still shows an error message. This code i