使用gsub更改数据框架中的列名

Question

我有一个原子向量:

col_names_to_be_changed <- c("PRODUCTIONDATE", "SPEEDRPM", "PERCENTLOADATCURRENTSPEED", sprintf("SENSOR%02d", 1:18))

我想在单词之间有_，除了单词的第一个字母外，它们都是小写的(遵循高级R的数据框架的R风格)。我想有这样的东西:

new_col_names <- c("Production_Date", "Percent_Load_At_Current_Speed", sprintf("Sensor_%02d", 1:18))

假设我的话仅限于这个列表:

list_of_words <- c('production', 'speed', 'percent', 'load', 'at', 'current', 'sensor')

我正在考虑一种使用gsub的算法，将_放在任何从上面列表中找到单词的地方，然后将每个单词的第一个字母大写。虽然我可以手动执行此操作，但我想了解如何使用gsub更美观地完成此操作。谢谢。

Answer 1

您可以将单词列表粘贴到后面((?<=))。我添加了(?=.{2,})，因为这也将匹配"DATE"中的"AT"，因为"AT"在单词列表中，所以单词列表中的任何内容都需要后跟2个或更多字符，以便用下划线分割。

第二个gsub只是大写

list_of_words <- c('production', 'speed', 'percent', 'load', 'at', 'current', 'sensor')
col_names_to_be_changed <- c("PRODUCTIONDATE", "SPEEDRPM", "PERCENTLOADATCURRENTSPEED", sprintf("SENSOR%02d", 1:18))

(pattern <- sprintf('(?i)(?<=%s)(?=.{2,})', paste(list_of_words, collapse = '|')))
# [1] "(?i)(?<=production|speed|percent|load|at|current|sensor)(?=.{2,})"
(split_words <- gsub(pattern, '_', tolower(col_names_to_be_changed), perl = TRUE))
# [1] "production_date"               "speed_rpm"                     "percent_load_at_current_speed"
# [4] "sensor_01"                     "sensor_02"                     "sensor_03"                    
gsub('(?<=^|_)([a-z])', '\U\1', split_words, perl = TRUE)
# [1] "Production_Date"               "Speed_Rpm"                     "Percent_Load_At_Current_Speed"
# [4] "Sensor_01"                     "Sensor_02"                     "Sensor_03"