Блог

как ни странно, я не наткнулся на это во время просмотра онлайн. По сути, я пытаюсь применить функцию sub (…) к простому фрейму данных. Пожалуйста, обратитесь к следующему примеру:

 x <- data.frame(name=c("Hans", "Dieter", "Peter"), age=c(25,26,27))
data <- data.frame(sub("e", "a", x)) #subbing an e for an a
 

Вывод полностью изменяет фрейм данных, первая строка теперь содержит:

c («Hans», «Diater», «Peter»)

Второй:

c(25, 26, 27)

Может кто-нибудь быть таким добрым и помочь мне, чтобы я мог понять, что происходит? Большое спасибо!

sub() Функция предназначена не для работы с целыми фреймами данных, а только с отдельными векторами.

Это должно сработать:

 x <- data.frame(name=c("Hans", "Dieter", "Peter"), age=c(25,26,27))
x
#>     name age
#> 1   Hans  25
#> 2 Dieter  26
#> 3  Peter  27

library(tidyverse)
data <- x %>% mutate(name = str_replace(name, "e", "a")) #subbing an e for an a
data
#>     name age
#> 1   Hans  25
#> 2 Diater  26
#> 3  Pater  27
 

или немного короче без каналов

 data <- mutate(x, name = str_replace(name, "e", "a"))
 

^{Создано 2021-01-05 пакетом reprex (версия 0.3.0)}

Вы можете использовать базовый подход R lapply для повторного построения фрейма данных с измененными значениями:

 ## With regex enabled:
df[] <- lapply(df, gsub, pattern='a', replacement='e')
## Without regex, fixed string replacement:
df[] <- lapply(df, gsub, pattern='a', replacement='e', fixed=TRUE)
 

Смотрите демонстрацию R онлайн, вывод:

     name age
1   Hens  25
2 Dieter  26
3  Peter  27
 

ПРИМЕЧАНИЕ: поскольку age в результате тип столбца изменяется на char , вы должны вернуть тип столбца обратно к числовому:

 df$age <- as.numeric(df$age)
 

Если вы хотите выполнить замены только для всех столбцов типа char , используйте

 df <- data.frame(name=c("Hans", "Dieter", "Peter"), age=c(25,26,27), stringsAsFactors=FALSE)
chr_idx <- sapply(df, is.character)
df[chr_idx] <- lapply(df[chr_idx], gsub, pattern='a', replacement='e', fixed=TRUE)
 

Посмотрите эту демонстрацию R.