ใช้ตัวพิมพ์ใหญ่สำหรับอักษรตัวแรกของทั้งสองคำในสตริงสองคำ

สมมติว่าฉันมีสตริงคำสองคำและฉันต้องการใช้ทั้งสองอย่าง

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

Hmiscแพคเกจที่มีฟังก์ชั่นcapitalizeซึ่งนิยามคำแรก แต่ผมไม่แน่ใจว่าจะได้คำนิยามที่สอง หน้าช่วยเหลือสำหรับcapitalizeไม่แนะนำให้มันสามารถทำงานได้

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

ฉันอยากจะได้:

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

สิ่งที่เกี่ยวกับสายสามคำ:

name2 <- c("I like pizza")

ฟังก์ชั่นฐาน R toupper(x)เพื่อดำเนินการโครงสร้างเงินทุนคือ จากไฟล์ช่วยเหลือ?toupperมีฟังก์ชั่นนี้ซึ่งทำสิ่งที่คุณต้องการ:

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" 

แก้ไขใช้งานได้กับสตริงใด ๆ โดยไม่คำนึงถึงจำนวนคำ:

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

มีโซลูชัน base-R แบบบิวด์อินสำหรับเคสเคสด้วย:

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

หรือ

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

ตรงกับการแสดงออกปกติที่จะเริ่มต้นที่จุดเริ่มต้น^หรือหลังพื้นที่และตามด้วยตัวอักษรตัวอักษร[[:space:]] [[:alpha:]]ทั่วโลก (g ใน gsub) \\1\\U\\2แทนที่เกิดขึ้นดังกล่าวทั้งหมดที่มีจุดเริ่มต้นที่ตรงกันหรือพื้นที่และรุ่นบนกรณีของตัวละครตัวอักษรจับคู่ สิ่งนี้จะต้องทำด้วยการจับคู่การแสดงออกปกติสไตล์ Perl

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

ในรายละเอียดเล็ก ๆ น้อย ๆ สำหรับอาร์กิวเมนต์ทดแทนgsub(), \\1กล่าวว่า 'ใช้เป็นส่วนหนึ่งของxการจับคู่ครั้งแรกย่อยแสดงออก' คือส่วนหนึ่งของการจับคู่x (^|[[:spacde:]])ในทำนองเดียวกัน\\2ว่าใช้เป็นส่วนหนึ่งของการจับคู่ที่สองย่อยแสดงออกx ไวยากรณ์ที่เปิดใช้งานโดยการใช้และวิธีการที่จะทำให้ตัวอักษรถัดไปบนกรณี ดังนั้นสำหรับ "รหัสไปรษณีย์" คือ "รหัสไปรษณีย์" คือ "รหัส" คือ "รหัส" และ"รหัสไปรษณีย์"([[:alpha:]])\\Uperl=TRUE\\1\\2\\U\\2\\1\\U\\2

?regexpหน้าจะเป็นประโยชน์สำหรับการแสดงออกปกติความเข้าใจ?gsubสำหรับการวางสิ่งที่ร่วมกัน

ใช้ฟังก์ชั่นนี้จากstringiแพ็คเกจ

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"

ทางเลือก:

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

ลอง:

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

จากหน้าช่วยเหลือสำหรับ?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"

แพคเกจนี้มีฟังก์ชั่นBBmisccapitalizeStrings

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!"

ทางเลือกอื่นด้วย substring และ regexpr:

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

คุณสามารถใช้แพ็คเกจ 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

นี่ให้ตัวอักษรพิมพ์ใหญ่ทุกคำ

library(lettercase)
xString = str_title_case(xString)