убрать пробелы и преобразовать символы в более низкие для всего кадра данных

Question

Я использую это:

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

удаление пробелов и преобразование символов в нижние для всего кадра данных.

К сожалению, такие записи как:

  Hello world

являютсяне преобразовано в:

hello world

есть идеи?Спасибо!

Answer 1

Возможно, я бы также использовал trimws, если бы RLave не был быстрее.

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)))

Answer 2

используйте это:

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(.)))