4

paste2 つの文字列をまとめて、最後に別の文字を埋め込んで、組み合わせを一定の長さにしたいと思います。pasteパスできるオプションや、見逃している別のトリックがあるかどうか疑問に思っていましたか? それぞれの長さを把握してから呼び出すことで、複数の行でこれを行うことができますが、pasteこれrep(my_pad_character,N)を1行で行いたいと思います。

例: を一緒"hi"に"hello"パディングし、 をパディングし"a"て、シーケンスの長さを 10 にします。結果は次のようになります。"hihelloaaa"

4

2 に答える 2

8

1 つのオプションを次に示します。

s1 <- "hi"
s2 <- "hello"

f <- function(x, y, pad = "a", length = 10) {
   out <- paste0(x, y)
   nc <- nchar(out)
   paste0(out, paste(rep(pad, length - nc), collapse = ""))
}

> f(s1, s2)
[1] "hihelloaaa"
于 2012-10-22T22:12:42.790 に答える
5

stringr機能を使用できますstr_pad

library(stringr)
str_pad(paste0('hi','hello'), side = 'right', width = 10 , pad = 'a')
于 2012-10-22T22:09:46.023 に答える