用句号替换所有非字母数字

问题描述：

我试图在从*机构收到的数据框中重命名所有这些残酷的列名。用句号替换所有非字母数字

> colnames(thedata) 
[1] "Region"          "Resource Assessment Site ID"     
[3] "Site Name/Facility"       "Design Head (feet)"       
[5] "Design Flow (cfs)"       "Installed Capacity (kW)"      
[7] "Annual Production (MWh)"      "Plant Factor"        
[9] "Total Construction Cost (1,000 $)"   "Annual O&M Cost (1,000 $)"     
[11] "Cost per Installed Capacity ($/kW)"   "Benefit Cost Ratio with Green Incentives" 
[13] "IRR with Green Incentives"     "Benefit Cost Ratio without Green Incentives" 
[15] "IRR without Green Incentives"

列标题包含特殊的非字母数字字符和空格，因此不可能引用它们，因此我必须重命名它们。我想用句号替换所有非字母数字字符。但我想：

old.col.names <- colnames(thedata) 
new.col.names <- gsub("^a-z0-9", ".", old.col.names)

的^是一个“不”的划分，所以我认为这将取代一切，是不是字母与在old.col.names一个时期。

任何人都可以帮忙吗？

你需要'[^ [：alnum：] ] +' – akrun

你可以尝试'make.names（colnames（thedata），allow_ = FALSE）' – Jimbou

试试'pattern =“[^ a-zA-Z0-9]”'。显示正则表达式是非常重要的，你需要'['和']'之间的任何组合。 '^'也必须在该模式旁边。祝你好运！ –

答

这里有三个问题需要考虑：

make.names(x) 
gsub("[^A-Za-z0-9]", ".", x) 
names(janitor::clean_names(setNames(data.frame(matrix(NA, ncol = length(x))), x)))

这里的每一个样子：

make.names(x) 
## [1] "Region"          "Resource.Assessment.Site.ID"     
## [3] "Site.Name.Facility"       "Design.Head..feet."       
## [5] "Design.Flow..cfs."       "Installed.Capacity..kW."      
## [7] "Annual.Production..MWh."      "Plant.Factor"        
## [9] "Total.Construction.Cost..1.000..."   "Annual.O.M.Cost..1.000..."     
## [11] "Cost.per.Installed.Capacity....kW."   "Benefit.Cost.Ratio.with.Green.Incentives" 
## [13] "IRR.with.Green.Incentives"     "Benefit.Cost.Ratio.without.Green.Incentives" 
## [15] "IRR.without.Green.Incentives"    

gsub("[^A-Za-z0-9]", ".", x) 
## [1] "Region"          "Resource.Assessment.Site.ID"     
## [3] "Site.Name.Facility"       "Design.Head..feet."       
## [5] "Design.Flow..cfs."       "Installed.Capacity..kW."      
## [7] "Annual.Production..MWh."      "Plant.Factor"        
## [9] "Total.Construction.Cost..1.000..."   "Annual.O.M.Cost..1.000..."     
## [11] "Cost.per.Installed.Capacity....kW."   "Benefit.Cost.Ratio.with.Green.Incentives" 
## [13] "IRR.with.Green.Incentives"     "Benefit.Cost.Ratio.without.Green.Incentives" 
## [15] "IRR.without.Green.Incentives"    

library(janitor) 
names(clean_names(setNames(data.frame(matrix(NA, ncol = length(x))), x))) 
## [1] "region"          "resource_assessment_site_id"     
## [3] "site_name_facility"       "design_head_feet"       
## [5] "design_flow_cfs"        "installed_capacity_kw"      
## [7] "annual_production_mwh"      "plant_factor"        
## [9] "total_construction_cost_1_000"    "annual_o_m_cost_1_000"      
## [11] "cost_per_installed_capacity_kw"    "benefit_cost_ratio_with_green_incentives" 
## [13] "irr_with_green_incentives"     "benefit_cost_ratio_without_green_incentives" 
## [15] "irr_without_green_incentives"

的样本数据：

x <- c("Region", "Resource Assessment Site ID", "Site Name/Facility", 
    "Design Head (feet)", "Design Flow (cfs)", "Installed Capacity (kW)", 
    "Annual Production (MWh)", "Plant Factor", "Total Construction Cost (1,000 $)", 
    "Annual O&M Cost (1,000 $)", "Cost per Installed Capacity ($/kW)", 
    "Benefit Cost Ratio with Green Incentives", "IRR with Green Incentives", 
    "Benefit Cost Ratio without Green Incentives", "IRR without Green Incentives")

用句号替换所有非字母数字

相关推荐