NA введены по принуждению (без пропущенных значений)

Question

У меня есть твиты с координатами. Я хочу прикрепить их к карте в соответствии с местоположениями. Когда я пытаюсь запустить этот блок кода, он выдает ошибку «NAs введены путем принуждения». Я думаю, что есть проблема с разделителем или функцией as.numeric. Возможно, проблема вызвана по этому я прочитал все другие темы, но я не нашел решения.

    library(dplyr)
    library(tidyr)


    options(stringsAsFactors = FALSE)

    json_file <- "db1.json"

    boulder_flood_tweets <- stream_in(file(json_file))

    tweet_data <- data.frame(date_time = boulder_flood_tweets$created_at,
                     username = boulder_flood_tweets$user$screen_name,
                     tweet_text = boulder_flood_tweets$text,
                     coords = boulder_flood_tweets$coordinates)

    start_date <- as.POSIXct('2013-09-13 00:00:00')
    end_date <- as.POSIXct('2019-05-12 00:00:00')

    flood_tweets <- tweet_data %>%
     mutate(coords.coordinates = gsub("\\)|c\\(", "", coords.coordinates),
     date_time = as.POSIXct(date_time, format = "%a %b %d %H:%M:%S +0000 %Y")) %>%
     separate(coords.coordinates, c("long", "lat"), sep = ", ") %>%
     mutate_at(c("lat", "long"), as.numeric) %>%
     filter(date_time >= start_date & date_time <= end_date )

Изображение образца координат: https://ibb.co/NV5PKzQ

Изображение моего набора данных: https://ibb.co/0K68sc5