使用模式匹配在 R 数据框中创建一个新列

Question

我正在尝试基于使用模式匹配的现有列创建一个新列。现有列是用户代理字段，例如

"Mozilla/5.0 (iPad; U; CPU OS 3_2 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Version/4.0.4 Mobile/7B367 Safari/531.21.10"

我想创建一个使用模式匹配来识别设备的新列。

-所以如果 user_agent 像 '%iPad%' 和 user_agent 像 '%WebKit%' 那么设备就是 iPad。 - 如果用户代理 user_agent 像 '%Android%' 而 user_agent 不像 '%Mobile%' 那么设备是一个 android - 如果 (user_agent like '%Silk%' and user_agent like '%WebKit%') 那么设备是 kindle -if (user_agent like '%Playbook%') then device is Other

我想尝试使用 dplyr 中的 mutate 函数来创建新列，但需要有关如何构造正则表达式的帮助

即 mutate(data,device = ....)

Answer 1

这样的？

x <- c("Mozilla/5.0 (iPad; stuff AppleWebKit more stuff",
        "Android",
        "stuff Silk more stuff and WebKit",
        "stuff Playbook more stuff", 
        "unknown")

y <- ifelse(grepl("iPad", x) & grepl("WebKit", x), "iPad", 
        ifelse(grepl("Android", x) & !grepl("Mobile", x), "android", 
                ifelse(grepl("Silk", x) & grepl("WebKit", x), "kindle", 
                        ifelse(grepl("Playbook", x), "other", 
                                "don't know")
                )
        )
)

data.frame(x, y)
                                                x          y
1 Mozilla/5.0 (iPad; stuff AppleWebKit more stuff       iPad
2                                         Android    android
3                stuff Silk more stuff and WebKit     kindle
4                       stuff Playbook more stuff      other
5                                         unknown don't know

编辑

或者这更容易：

device <- rep(NA_character_, length(x))

device[grepl("iPad", x) & grepl("WebKit", x)] <-  "iPad"
device[grepl("Android", x) & !grepl("Mobile", x)] <-  "android"
device[grepl("Silk", x) & grepl("WebKit", x)] <-  "kindle"
device[grepl("Playbook", x)] <-  "other"

data.frame(x, device)

                                                x  device
1 Mozilla/5.0 (iPad; stuff AppleWebKit more stuff    iPad
2                                         Android android
3                stuff Silk more stuff and WebKit  kindle
4                       stuff Playbook more stuff   other
5                                         unknown    <NA>