Функция не сохраняет изменения в DataFrame

Question

Здравствуйте, я пытаюсь написать функцию, которая будет принимать фрейм данных, и исправить его соответствующие заголовки столбцов, если в имени есть специальный символ или пробел. Функция, похоже, работает, поскольку результаты печатаются, но, похоже, не сохраняют соответствующие изменения в исходном фрейме. Мысли о том, как это исправить? Данные, которые я использовал для тестирования, были tbl_df, поэтому я не уверен, что это связано с тем, почему он не обновляется правильно. Благодарю.

nameChange <- function(df) { 
    for(i in 1:length(colnames(df)[i])) { 
    if(str_detect(colnames(df[i]),"[:punct:]|[:space:]") == TRUE) { 
    #Could use "\\s" to find space 
    names(df) <- str_replace_all(names(df)," *",'') 
    names(df) <- str_replace_all(names(df),"-",'') 
    #df <- df 
    assign('df',df, envir=.GlobalEnv) 
    #return(df) 
    print("Worked") 
    } 

    else{ 
     print("Function did not replace anything") 
    } 
    } 
} 

Это данные, я использую для тестирования функции:

#data from: http://www.tableau.com/learn/tutorials/on-demand/getting-started-data 
orders_path <- file.path("/Users/petergensler/Desktop/Global Superstore.xls") 
order_table <- read_excel(orders_path, sheet = "Orders") 
nameChange(order_table) 

После того, как я называю COLNAMES на order_table вы должны быть в состоянии видеть, что дефис в продукте Подкатегорий удаляется, и все пробелы внутри каждого имени столбца больше не существуют.

Answer 1

Ваша функция может быть упрощено:

nameChange <- function(df) { 
    names(df) <- str_replace_all(names(df), "[:punct:]|[:space:]", "") 
    return(df) 
} 

Пример:

library(dplyr) 
library(stringr) 

df <- tbl_df(mtcars) 
names(df)[1] <- "m p g" 
names(df)[2] <- "c-y-l" 
names(df) 
# [1] "m p g" "c-y-l" "disp" "hp" "drat" "wt" "qsec" "vs" "am" 
# [10] "gear" "carb" 

df <- nameChange(df) 
names(df) 
# [1] "mpg" "cyl" "disp" "hp" "drat" "wt" "qsec" "vs" "am" "gear" 
# [11] "carb" 

Answer 2

Любые другие вопросы в сторону (упоминается в комментарии, а i в цикле for не определено), то вопрос, как представляется, что вы не назначаете обратно исходный объект данных:

assign('df',df, envir=.GlobalEnv) 

присваивает объекту df, который, как я полагаю, вы найдете в своей среде после успешного запуска функции.

Предположительно вы хотите

dfname <- deparse(substitute(df)) 
assign(dfname, df, envir=.GlobalEnv) 

, который, кажется, работает на тестировании.

Answer 3

Ниже приведен код, который отвечает на мою проблему:

test1 <- function(df){ 
    names(df) <- str_replace_all(names(df), "[:punct:]|[:space:]","") 
    df <<- df 
    return(df) 
} 

Там нет ничего плохого в использовании ФРА в качестве аргумента, но вы потребности использовать глобальное назначение < < - оператор, так что эта функция можно вызвать практически на любом фрейме данных и перезаписать существующий df в рабочей области. Спасибо за вашу помощь.