Looking at your original image, It looks like TotalVotes has commas as the thousands separator. This will cause the values to be read as characters. You can check this with the str() function which shows, among other things, the type of data in each column. Is TotalVotes of the type chr or num?
str(Fixed.Presidential.2020.State.Voting.Data$TotalVotes)
If it is of the type chr, you can fix that with the parse_number function from the readr package.
library(readr)
Fixed.Presidential.2020.State.Voting.Data$TotalVotes <- parse_number(Fixed.Presidential.2020.State.Voting.Data$TotalVotes)
Finally, I am not sure a box plot makes sense for your data. Does each Area only appear once in the data set? If so, a boxplot is not appropriate. A bar plot would be better, using barplot() or the ggplot2 package.