在R中 试图编写一个使用MarsuPial一词并导致marsupiaL的函数。
当前代码
mycap <- function(mystr = "") {
mystr <- tolower(mystr)
a <- substr(mystr, 1, 1)
b <- substr(mystr, 2, nchar(mystr))
paste(tolower(a), b, sep = "")
}
答案 0 :(得分:0)
您可以使用substr<-
大写最后一个字符。
mycap <- function(mystr = "") {
mystr <- tolower(mystr)
n <- nchar(mystr)
substr(mystr, n, n) <- toupper(substr(mystr, n, n))
return(mystr)
}
mycap('MarsuPial')
#[1] "marsupiaL"
mycap('dummy')
#[1] "dummY"
答案 1 :(得分:0)
mycap <- function(mystr = "") {
# a: the string without the last character
a <- substr(mystr, 1, nchar(mystr)-1)
# b: only the last character
b <- substr(mystr, nchar(mystr), nchar(mystr))
# lower(a) and upper(b)
paste(tolower(a), toupper(b), sep = "")
}
以您的示例为例:
mycap("MarsuPial")
[1] "marsupiaL
答案 2 :(得分:0)
避免字符串子集/拆分的另一种方法是将字符串转换为整数向量以颠倒顺序,以便我们可以使用stringr::str_to_title
。
library(stringr)
library(dplyr)
mycap <- function(mystr = "") {
mystr %>% utf8ToInt %>% rev %>% intToUtf8 %>% str_to_title %>% utf8ToInt %>% rev %>% intToUtf8
}
mycap("MarsuPial")
#[1] "marsupiaL"
mycap("dummy")
#[1] "dummY"
或者另一个快速的选择是使用stringi::stri_reverse
和stringi::stri_trans_totitle
library(stringi)
mycap <- function(mystr = "") stri_reverse(stri_trans_totitle(stri_reverse(mystr)))