Как удалить все нечисловые строки в R?

Question

У меня есть dataframe like bellow, где ID - числовое значение, и comment1 и comment2 строка, которую я импортирую как csv. Но кадр данных дает результат, похожий на этот ниже, где fifth comment должен быть в comment2, а исходное значение ID заменяется на это. Это происходит случайным образом всего за несколько строк. Более того, эта проблема возникает только тогда, когда я импортирую код R в Azure ML студия, в RStudio Отсутствие данных не происходит. Так что я думал, просто удалите всю строку, где первый столбец ID не является числовым значением. Поскольку неправильное строковое значение является случайным длинным предложением, я не могу выполнить сопоставление строк, чтобы удалить строку. И dataframe достаточно велик, что я просто не могу удалить строки вручную. Предложение, пожалуйста.

ID     Comment1     comment2 
123    This is first comment  this is second 
234    third comment    fourth comment 
fifth comment             
345    sixth comment    seventh comment 

Вы найдете образец dataframe здесь,

df <- 
    read.csv(
    "https://docs.google.com/spreadsheets/d/171YXjzm3FsapXSkqgOSos6UGXNRcd1yxmLyvaRnCX5E/pub?output=csv" 
) 
df <- df[-1,] 
df <- df[, 1:12] 
colnames(df) <- 
    c(
    "ID","Created","Comments","Liked_By","Disliked_By", "Recipient_Number", 
    "Sender","Recipients","Read_By", "Subject","Introduction","Body" 
) 

Answer 1

Subset числовых идентификаторов:

subset(df, grepl('^\\d+$', df$ID)) 

Шаблон должен соответствовать значения ID, которые начинаются и заканчиваются с цифрами, и содержат только цифры.

Answer 2

Это потому, что в вашем описании комментариев есть (,), и он разбивает формат csv. Чтобы этого избежать, вы можете свернуть векторы

Answer 3

Спасибо всем за ценное предложение. Я только что преобразовал dataframe, .xls в файл .csv, где текст по-прежнему включен , разбивает весь файл. преобразование в .tsv сейчас работает нормально.