R：データフレームの列にセミコロンで区切られた各単語の最初の文字を大文字にするにはどうすればいいですか？

Question

私はデータフレームdfがあるとします。各疾患のエントリは、各エントリの最初の文字を除いてすべて小文字になるように

> df <- data.frame(Disease = c('Disease Entry1; disease Entry2', 'disease Entry4','disease Entry5; disease entry6'), ID = c(1,2,3)) 
> df 
         Disease ID 
1 Disease Entry1; disease Entry2 1 
2     disease Entry4 2 
3 disease Entry5; disease entry6 3 

どのように私はそれを操作することができますか？すなわち

> df 
         Disease ID 
1 Disease entry1; Disease entry2 1 
2     Disease entry4 2 
3 Disease entry5; Disease entry6 3 

私は何とかtolower機能の使用を取るだろうと仮定しますが、どのようにセミコロンを考慮に入れますか？

Answer 1

あなたはまず小文字にすべての文字を変換した後、一緒に\\Uを参照\\1をバック使用して大文字にBOS時または;後に文字を変換するためにgsubを使用することができます。

df$Disease <- gsub("(?<=^|;)([a-z])", "\\U\\1", tolower(df$Disease), perl = T) 

df 
#       Disease ID 
#1 Disease entry1; Disease entry2 1 
#2     Disease entry4 2 
#3 Disease entry5; Disease entry6 3