Разделение кадра данных, если строки числовые или нет в R

Question

У меня есть фрейм данных (давайте назовем его 'DF'), он состоит из двух столбцов

 Name   Contact
 A      34552325
 B      423424
 C      4324234242
 D      [e-mail]

Я хочу разбить фрейм данных на два фрейма в зависимости от того, является ли строка в столбце "Контакт" числовой или нет

Ожидаемый результат:

 Name   Contact
 A      34552325
 B      423424
 C      4324234242

а также

 Name   Contact
 D      [e-mail]

Я устал использовать:

   df$IsNum <- !(is.na(as.numeric(df$Contact))) 

Но это классифицируется как [e-mail] также как числовое.

В принципе, если в столбце "Контакт" есть хотя бы одно нечисловое значение, код должен классифицировать его как нечисловое

Answer 1

Вы можете использовать grepl..

x <- " Name   Contact
 A      34552325
 B      423424
 C      4324234242
 D      [e-mail]"
df <- read.table(text=x, header = T)
x <- df[grepl("^\\d+$",df$Contact),]
y <- df[!grepl("^\\d+$",df$Contact),]
x
#   Name    Contact
# 1    A   34552325
# 2    B     423424
# 3    C 4324234242
y
#  Name            Contact
# 4    D [e-mail]

Answer 2

Мы можем создать группирующую переменную с grepl (так же, как @Avinash Raj создал), split датафрейм с этим, чтобы создать list data.frames.

split(df, grepl('^\\d+$', df$Contact))