返回trimws从数据帧中修剪了多少

我使用trimws（x）来修剪数据集中的空白

就像excel中“查找并替换”的输出一样，我想知道trimws做了多少工作；具体来说，从整个数据帧中删除了多少空白——主要是为了让我满意，但也有可能通过其他变量对trimws所做的工作进行进一步分组，以查看是否存在空白向上游蔓延的模式

例如：

x <- "  Some text.  "

trimws(x)

---

x根据您的示例，您可以修改
trimws（）
（可用）的当前代码

您只需使用
grep（）
更改
sub（）
，即可计算在
x
中找到的
空格数

my_trimws = function(x, which = c("both", "left", "right")) {
  which = match.arg(which)
  mysub = function(re, x) grep(re, x, perl = TRUE)

  if (which == "left")
    n <- mysub("^[ \t\r\n]+", x)
  if (which == "right")
    n <- mysub("[ \t\r\n]+$", x)

  n <- sum(mysub("^[ \t\r\n]+", x), mysub("[ \t\r\n]+$", x))

  cat("trimws() removed ", n, " spaces\n") # prints to the console
  return(n)
}

my_trimws=function（x，其中=c（“两个”、“左”、“右”））{
which=match.arg（哪个）
mysub=function（re，x）grep（re，x，perl=TRUE）
如果（哪个==“左”）
n这是删除的空白字符数：

x <- "  Some text.  "
nchar(x) - nchar(trimws(x)) # no of whitespace characters removed
## [1] 4  

xx <- gsub("[\n\r\t]", "", x)
nchar(xx) - nchar(trimws(xx))  # no of spaces removed

x请发布一个可复制的示例。为此，模拟一个小数据集应该是相当容易的。问题已根据编辑。问题应在内部保持一致。显示的输出与输入不一致。此外，受试者说输入是数据框，但样本输入不是数据框。请清理此问题我会起来的。哦，谢谢你，当你这样说的时候，这…有点明显了！
xx <- gsub("[\n\r\t]", "", x)
nchar(xx) - nchar(trimws(xx))  # no of spaces removed