如何在 R 中用一盒 X 包围字符串？

Question

这是任务：

编写一个函数，该函数打印出盒装句子，如下所示：

s<-"This is a sentence with different word lengths"

框打印以下"

XXXXXXXXXXXXX
X   this    X
X    is     X
X     a     X
X sentence  X
X   with    X
X different X
X   word    X
X  lengths  X
XXXXXXXXXXXXX

诀窍是每个单词都应以X的盒子为中心因此，X的顶部和底部的长度应为4加上最长词的最长词，右边的所有X都应该排成一列。不应该有报价。

开始，我写了这一行：

s<-cat("This","is","a","sentence","with","different","word","lengths",sep=" ",fill=2)

包裹文本，以便每行上有一个单词。我不确定如何让X在包裹的字符串周围形成一个盒子。我认为我应该使用NCHAR，但我不确定它是有用的。任何帮助，将不胜感激！

Answer 1

您可以首先在句子中计算 Max Word的长度，然后" x" 将为 MAX_S> max_word_length 4
并应将空间分为两侧。

s<-"This is a sentence with different word lengths"
library(stringr)
surround_x <- function(string){
  word_vec <- str_split(string, pattern = " ")[[1]]
  max_length <- max(nchar(word_vec))
  cat(str_c(rep("X", max_length + 4), collapse = ""),"n")
  for(i in word_vec){
    space_num <- max_length + 2 - nchar(i)
    start_space_num <- floor(space_num/2)
    end_space_num <- space_num - start_space_num
    string <- str_c(c("X", rep(" ", start_space_num), i ,rep(" ", end_space_num), "X"), collapse = "")
    cat(string, "n")
  }
  cat(str_c(rep("X", max_length + 4), collapse = ""),"n")
}

结果是：

> surround_x(s)
XXXXXXXXXXXXX 
X   This    X 
X    is     X 
X     a     X 
X sentence  X 
X   with    X 
X different X 
X   word    X 
X  lengths  X 
XXXXXXXXXXXXX