Viết hoa chữ cái đầu tiên của cả hai từ trong một chuỗi hai từ

Hãy nói rằng tôi có một chuỗi hai từ và tôi muốn viết hoa cả hai từ đó.

name <- c("zip code", "state", "final count")

Các Hmiscgói có một chức năng capitalizemà vốn từ đầu tiên, nhưng tôi không chắc chắn làm thế nào để có được chữ thứ hai viết hoa. Trang trợ giúp capitalizekhông đề xuất rằng nó có thể thực hiện nhiệm vụ đó.

library(Hmisc)
capitalize(name)
# [1] "Zip code"    "State"       "Final count"

Tôi muốn có được:

c("Zip Code", "State", "Final Count")

Những gì về chuỗi ba từ:

name2 <- c("I like pizza")

Hàm R cơ sở để thực hiện viết hoa là toupper(x). Từ tệp trợ giúp cho ?touppercó chức năng này thực hiện những gì bạn cần:

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

name <- c("zip code", "state", "final count")

sapply(name, simpleCap)

     zip code         state   final count 
   "Zip Code"       "State" "Final Count" 

Chỉnh sửa Điều này hoạt động cho bất kỳ chuỗi, bất kể đếm từ:

simpleCap("I like pizza a lot")
[1] "I Like Pizza A Lot"

Cũng có một giải pháp cơ sở R tích hợp cho trường hợp tiêu đề:

tools::toTitleCase("demonstrating the title case")
## [1] "Demonstrating the Title Case"

hoặc là

library(tools)
toTitleCase("demonstrating the title case")
## [1] "Demonstrating the Title Case"

Khớp một biểu thức chính quy bắt đầu từ đầu ^hoặc sau dấu cách [[:space:]]và được theo sau bởi một ký tự chữ cái [[:alpha:]]. Trên toàn cầu (g trong gsub) thay thế tất cả các lần xuất hiện như vậy bằng phần bắt đầu hoặc dấu cách trùng khớp và phiên bản chữ hoa của ký tự chữ cái phù hợp , \\1\\U\\2. Điều này phải được thực hiện với kết hợp biểu thức chính quy theo kiểu perl.

gsub("(^|[[:space:]])([[:alpha:]])", "\\1\\U\\2", name, perl=TRUE)
# [1] "Zip Code"    "State"       "Final Count"

Chi tiết hơn một chút cho đối số thay thế thành gsub(), \\1nói 'sử dụng phần xkhớp với biểu thức phụ đầu tiên', nghĩa là phần xkhớp (^|[[:spacde:]]). Tương tự, \\2nói sử dụng phần xkhớp với biểu thức con thứ hai ([[:alpha:]]). Các \\Ulà cú pháp kích hoạt bằng cách sử dụng perl=TRUE, và phương tiện để làm cho nhân vật tiếp theo Upper hợp cụ thể. Vì vậy, đối với "Mã Zip", \\1là "Zip", \\2là "mã", \\U\\2là "Mã" và \\1\\U\\2là "Mã Zip".

Các ?regexptrang là hữu ích trong việc tìm hiểu biểu thức thông thường, ?gsubcho đưa mọi thứ trở lại với nhau.

Sử dụng chức năng này từ stringigói

stri_trans_totitle(c("zip code", "state", "final count"))
## [1] "Zip Code"      "State"       "Final Count" 

stri_trans_totitle("i like pizza very much")
## [1] "I Like Pizza Very Much"

Thay thế:

library(stringr)
a = c("capitalise this", "and this")
a
[1] "capitalise this" "and this"       
str_to_title(a)
[1] "Capitalise This" "And This"   

Thử:

require(Hmisc)
sapply(name, function(x) {
  paste(sapply(strsplit(x, ' '), capitalize), collapse=' ')
})

Từ trang trợ giúp cho ?toupper:

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


> sapply(name, .simpleCap)

zip code         state   final count 
"Zip Code"       "State" "Final Count"

Các gói BBmiscbây giờ có chức năng capitalizeStrings.

library("BBmisc")
capitalizeStrings(c("the taIl", "wags The dOg", "That Looks fuNny!")
    , all.words = TRUE, lower.back = TRUE)
[1] "The Tail"          "Wags The Dog"      "That Looks Funny!"

Cách khác với chuỗi con và regexpr:

substring(name, 1) <- toupper(substring(name, 1, 1))
pos <- regexpr(" ", name, perl=TRUE) + 1
substring(name, pos) <- toupper(substring(name, pos, pos))

Bạn cũng có thể sử dụng gói snakecase:

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

name <- c("zip code", "state", "final count")
to_title_case(name)
#> [1] "Zip Code"    "State"       "Final Count"

# or 
to_upper_camel_case(name, sep_out = " ")
#> [1] "Zip Code"    "State"       "Final Count"

https://github.com/Tazinho/snakecase

Điều này cung cấp chữ in hoa cho tất cả các từ chính

library(lettercase)
xString = str_title_case(xString)