删除空格并将整个数据帧的字符转换为下沉字符

Question

我正在使用这个：

OriginalData <- data.frame(lapply(OriginalData, function(x) lower(trim(x))))

删除空格并将整个数据帧的字符转换为下层。

不幸的是，像这样的条目：

Hello world

不会转换为：

hello world

有什么想法吗？谢谢！

Answer 1

使用这个：

tolower(trimws("  Hello world"))
[1] "hello world"

对于一个list你说得对：

lapply(list("  Hello world", "  Hello world", "  Hello world"), function(x) tolower(trimws(x)))

purrr包的另一种解决方案：

purrr::map(list("  Hello world", "  Hello world", "  Hello world"), 
function(x) tolower(trimws(x)))

较短的通话时间map：

purrr::map(list("  Hello world", "  Hello world", "  Hello world"), ~tolower(trimws(.)))

Answer 2

如果 RLave 不是更快，我可能也会使用trimws。

OriginalData <- data.frame( A = I(c("Hehe huhu","  Hehe huhu  ", "  Hehe Huhu")), B = I(c("Funny Lol","  Funny Lol  ", "  Funny Lol")))
OriginalData[] <- lapply(OriginalData, function(x) gsub("^\s+|\s+$", "" , tolower(x)))