Удалить строки, которые не содержат. (Точка) в определенной переменной с R

Question

У меня есть файл журнала брандмауэра, который включает дату, час, src_address, dest_address и all_attemps, max_byte, avg_byte и уровень активности. Я хочу удалить строки, которые не содержат. (Точка) в столбце src_address в r Вот мой файл;

    src_address  dest_address all_attemps max_byte avg_byte activity_rate
    2       1.11.201.19 172.16.16.100           1       60       60   0.005434783
    3       1.119.43.90 172.16.16.100           1       60       60   0.005434783
    4       1.119.43.90 172.16.16.153           1       60       60   0.005434783
    5       1.119.43.90 192.168.1.112           1       60       60   0.005434783
    6      1.171.43.133   172.16.16.5           2       52       48   0.010869565
    7      1.179.191.82   172.16.16.5           1       60       60   0.005434783
    8      1.179.191.82 192.168.1.111           2       60       60   0.010869565
    9      1.179.191.82 192.168.1.112           2       60       60   0.010869565
    10     1.180.72.186 172.16.16.153           2       60       60   0.010869565
    11     1.202.165.40 172.16.16.153           1       60       60   0.005434783
    12      1.203.84.52   172.16.16.5           1       60       60   0.005434783
    13      1.203.84.52 192.168.1.112           1       60       60   0.005434783
    14      1.209.171.4 192.168.1.111           1       60       60   0.005434783
    15     1.214.34.114 172.16.16.100           2       60       60   0.010869565
    16     1.214.34.114 172.16.16.153           2       60       60   0.010869565
    37   101.53.137.245   172.16.16.5           2       60       60   0.010869565
    47     101100148143 192.168.1.111           2       60       60   0.010869565
    48     101100148143 192.168.1.112           2       60       60   0.010869565
    49     101231185170 172.16.16.100           1       60       60   0.005434783
    50     101231185170 172.16.16.153           1       60       60   0.005434783
    51     101231185170 192.168.1.112           1       60       60   0.005434783
    52     103.1.94.102 192.168.1.112           1       52       52   0.005434783
    53   103.12.195.158   172.16.16.5           1       52       52   0.005434783

и вот мое ожидание;

         src_address  dest_address all_attemps max_byte avg_byte activity_rate
2       1.11.201.19 172.16.16.100           1       60       60   0.005434783
3       1.119.43.90 172.16.16.100           1       60       60   0.005434783
4       1.119.43.90 172.16.16.153           1       60       60   0.005434783
5       1.119.43.90 192.168.1.112           1       60       60   0.005434783
6      1.171.43.133   172.16.16.5           2       52       48   0.010869565
7      1.179.191.82   172.16.16.5           1       60       60   0.005434783
8      1.179.191.82 192.168.1.111           2       60       60   0.010869565
9      1.179.191.82 192.168.1.112           2       60       60   0.010869565
10     1.180.72.186 172.16.16.153           2       60       60   0.010869565
11     1.202.165.40 172.16.16.153           1       60       60   0.005434783
12      1.203.84.52   172.16.16.5           1       60       60   0.005434783
13      1.203.84.52 192.168.1.112           1       60       60   0.005434783
14      1.209.171.4 192.168.1.111           1       60       60   0.005434783
15     1.214.34.114 172.16.16.100           2       60       60   0.010869565
16     1.214.34.114 172.16.16.153           2       60       60   0.010869565
37   101.53.137.245   172.16.16.5           2       60       60   0.010869565
52     103.1.94.102 192.168.1.112           1       52       52   0.005434783
53   103.12.195.158   172.16.16.5           1       52       52   0.005434783

Answer 1

Вы можете использовать stringi, чтобы сделать нечто подобное:

library(stringi)
df[stri_detect_fixed(df$src_address, "."),]

Или, если вы хотите использовать grepl, вы можете использовать fixed = TRUE, поэтому вам не нужно экранировать ".":

df[grepl(".", df$src_address, fixed = TRUE), ]

---

Данные:

 df <-   structure(list(src_address = c("1.11.201.19", "1.119.43.90", 
"1.119.43.90", "1.119.43.90", "1.171.43.133", "1.179.191.82", 
"1.179.191.82", "1.179.191.82", "1.180.72.186", "1.202.165.40", 
"1.203.84.52", "1.203.84.52", "1.209.171.4", "1.214.34.114", 
"1.214.34.114", "101.53.137.245", "101100148143", "101100148143", 
"101231185170", "101231185170", "101231185170", "103.1.94.102", 
"103.12.195.158"), dest_address = c("172.16.16.100", "172.16.16.100", 
"172.16.16.153", "192.168.1.112", "172.16.16.5", "172.16.16.5", 
"192.168.1.111", "192.168.1.112", "172.16.16.153", "172.16.16.153", 
"172.16.16.5", "192.168.1.112", "192.168.1.111", "172.16.16.100", 
"172.16.16.153", "172.16.16.5", "192.168.1.111", "192.168.1.112", 
"172.16.16.100", "172.16.16.153", "192.168.1.112", "192.168.1.112", 
"172.16.16.5"), all_attemps = c(1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L), 
    max_byte = c(60L, 60L, 60L, 60L, 52L, 60L, 60L, 60L, 60L, 
    60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 
    52L, 52L), avg_byte = c(60L, 60L, 60L, 60L, 48L, 60L, 60L, 
    60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 60L, 
    60L, 60L, 52L, 52L), activity_rate = c(0.005434783, 0.005434783, 
    0.005434783, 0.005434783, 0.010869565, 0.005434783, 0.010869565, 
    0.010869565, 0.010869565, 0.005434783, 0.005434783, 0.005434783, 
    0.005434783, 0.010869565, 0.010869565, 0.010869565, 0.010869565, 
    0.010869565, 0.005434783, 0.005434783, 0.005434783, 0.005434783, 
    0.005434783)), .Names = c("src_address", "dest_address", 
"all_attemps", "max_byte", "avg_byte", "activity_rate"), row.names = c(NA, 
-23L), class = "data.frame")

Answer 2

Очень близко к @Mike H. answer.

В пакете stringr есть хорошая функция (str_detect), которая также может быть полезна:

library(stringr)
df[str_detect(df$src_address, "\\."), ]

Answer 3

Мы можем использовать grepl здесь для базовой опции R:

df <- df[grepl("\\.", df$src_address), ]