如何not.camel.case转换为驼峰匹配中的R(How to convert not.came

在R，我想转换

t1 <- c('this.text', 'next.text')
"this.text" "next.text"

至

'ThisText' 'NextText'

我试过了

gsub('\\..', '', t1)

但是，这给了我

"thisext" "nextext"

因为它不更换期后的字母。

也许真的很容易，但我不能工作了。

Answer 1:

这里有一个方法，但用正则表达式有可能是更好的：

t1 <- c('this.text', 'next.text')

camel <- function(x){ #function for camel case
    capit <- function(x) paste0(toupper(substring(x, 1, 1)), substring(x, 2, nchar(x)))
    sapply(strsplit(x, "\\."), function(x) paste(capit(x), collapse=""))
}

camel(t1)

这产生了：

> camel(t1)
[1] "ThisText" "NextText"

编辑： 作为一个好奇，我microbenchmarked的4个答案（TOM =原始的海报，TR =自己，JMS = jmsigner＆SB = sebastion;评论jmsigner的职位），发现非正则表达式的答案会更快。 我会认为他们慢。

   expr     min      lq  median      uq      max
1 JMS() 183.801 188.000 197.796 201.762  349.409
2  SB()  93.767  97.965 101.697 104.963  147.881
3 TOM()  75.107  82.105  85.370  89.102 1539.917
4  TR()  70.442  76.507  79.772  83.037  139.484

Answer 2:

可替代地基于正则表达式的解决方案：

t1 <- c('this.text', 'next.text')

# capitalize first letter
t2 <- sub('^(\\w?)', '\\U\\1', t1, perl=T)

# remove points and capitalize following letter
gsub('\\.(\\w?)', '\\U\\1', t2, perl=T)
[1] "ThisText" "NextText"

编辑：一些解释

sub('^(\\w?)', '\\U\\1', t1, perl=T) sub ，因为我们只在第一场比赛感兴趣的是足够在这里。 然后，第一字母数字字符在与每个字符串的开头相匹配^(\\w?) 需要用于在函数的替换部分后面参考括号。 对于更换\\U被用来利用自带之后（也就是第一个字符）的一切。

相同的原理被施加gsub('\\.(\\w?)', '\\U\\1', t2, perl=T)与该第一个字符不在被匹配的唯一差别，但每一个. 。

Answer 3:

tocamel从rapportools包你想要做什么：

> library(rapportools)
> example(tocamel)

tocaml> tocamel("foo.bar")
tocaml>     ## [1] "fooBar"
tocaml> 
tocaml>     tocamel("foo.bar", upper = TRUE)
tocaml>     ## [1] "FooBar"
tocaml> 
tocaml>     tocamel(c("foobar", "foo.bar", "camel_case", "a.b.c.d"))
tocaml>     ## [1] "foobar"    "fooBar"    "camelCase" "aBCD"
tocaml> 

更新：

另一种简单，快速的解决方案（如@rengis）：

camel2 <- function(x) {
    gsub("(^|[^[:alnum:]])([[:alnum:]])", "\\U\\2", x, perl = TRUE)
}
camel2(t1)
#> [1] "ThisText" "NextText"

比较与@TylerRinker的解决方案：

identical(camel(t1), camel2(t1))
#> [1] TRUE
microbenchmark::microbenchmark(camel(t1), camel2(t1))
#> Unit: microseconds
#>        expr    min      lq     mean  median      uq     max neval cld
#>   camel(t1) 76.378 79.6520 82.21509 81.5065 82.7095 151.867   100   b
#>  camel2(t1) 15.864 16.9425 19.76000 20.9690 21.9735  38.246   100  a

Answer 4:

其实我觉得我只是从TOUPPER帮助文件制定了这一点：

camel <- function(x) {     
     s <- strsplit(x, "\\.")[[1]]     
     paste(toupper(substring(s, 1,1)), substring(s, 2),           
     sep="", collapse="") 
 }    

camel(t1) 
sapply(t1,camel)  
this.text  next.text  
"ThisText" "NextText"  

Answer 5:

经由snakecase包这里另一种解决方案：

install.packages("snakecase")
library(snakecase)

to_upper_camel_case(t1)
#> [1] "ThisText" "NextText"

Githublink： https://github.com/Tazinho/snakecase

文章来源: How to convert not.camel.case to CamelCase in R