R中的Sprintf不計算變音符號

Question

我有矢量字符，我想確保矢量的所有元素都具有相同的長度。因此，我用空格填充短元素，如下所示：

vec <- c("fjdlksa01dada","rau","sjklf") 
x <- sprintf("%-15s", vec) 
nchar(x) 
# returns 
[1] 15 15 15 

像我的previous question建議的答案一樣。這很好，但它似乎有困難與元音變音。例如，如果我的向量看起來像這樣：

vec2 <- c("fjdlksa01dada","rauü","sjklf") 
y <- sprintf("%-15s", vec) 
nchar(y) 
# returns 
[1] 15 14 15 

我在Mac OS X（10.6）上運行R.我怎樣才能解決這個問題？

編輯： 請注意，我不打算修復nchar的輸出，因爲它是正確的。問題是sprintf失去了變音。

編輯：更新R，更改爲德文語言環境 - 根本沒有變化。但是：

vec2 <- c("fjdlksa01dada","rauü","sjklf") 
Encoding(vec2) 
# returns 
[1] "unknown" "UTF-8" "unknown" 

奇怪。

Answer 1

有可能是一個更清潔的方式......但這個工程：

sapply(vec, function(x){ 
     paste(x, paste(rep(" ", 13-nchar(x)), collapse=""), "") 
     }) 

（見下文評論的[非] -explication爲13）

Answer 2

我發現這個?sprintf頁：

如果FMT或任何字符參數的任何元素被聲明爲UTF-8，結果的元件將是UTF-8和具有聲明爲UTF-8編碼。否則它將以當前語言環境的編碼。

輸入從Rgui的區域設置（我認爲）它的語言環境;見下文。

在Windows上，幸好已經打印：

> vec2 <- c("fjdlksa01dada","rauü","sjklf") 
> y <- sprintf("%-15s", vec) 
> nchar(y) 
[1] 15 15 15 

我認爲在MacOS你可以像下面開幕[R實現這一點，但我沒有任何的Mac這裏實際測試：

Rgui --encoding=utf-8