如何將兩個矢量粘貼在一起並在底部填充？

Question

我想paste兩個字符串在一起，並在另一個字符的末尾墊，使組合一定的長度。我想知道是否有一個選項paste，可以通過或另一個我失蹤的詭計？我可以通過計算出每條線的長度，然後用與paste聯繫，但我想在一行中做這個。

例：墊一起"hi"，和"hello"並用"a"墊使序列長度10的結果將是"hihelloaaa"

Answer 1

可以使用stringr函數str_pad

library(stringr) 
str_pad(paste0('hi','hello'), side = 'right', width = 10 , pad = 'a') 

Answer 2

下面是一個選項：

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"