无法将用户定义的字符串替换函数应用于 tibble 的内容

Question

我有一个用户定义的函数来替换文本模式。 这似乎适用于数据框，但不适用于小标题。

fixcontents <- function(mydf, mypattern1, mypattern2, mycol) {
  mydf[ ,mycol] <- sub(mypattern1, mypattern2, mydf[ ,mycol])
  return(mydf)
}

mydf1 <- data.frame(col1 = c(1,2), col2 = c("aaa", "bbb"))
mytbl1 <- tibble(col1 = c(1,2), col2 = c("aaa", "bbb"))

fixcontents(mydf1, "(b{3})", "\\1X", 2) # works
mydf1

  col1 col2
1    1  aaa
2    2 bbbX

fixcontents(mytbl1, "(b{3})", "\\1_", 2) # does not work (??)
mytbl1

# A tibble: 2 x 2
   col1 col2 
  <dbl> <chr>
1     1 aaa  
2     2 bbb

为什么会出现这种行为，以及如何在 tibble 中操作数据？

Answer 1

使用[对 tibbles 进行子集化的方式不同。 子集数据帧返回一个向量，而 tibble 返回 tibble。

mydf1[, 2]
#[1] aaa bbb
#Levels: aaa bbb

mytbl1[, 2]
# A tibble: 2 x 1
#  col2 
#  <chr>
#1 aaa  
#2 bbb  

尝试使用[[子集

fixcontents <- function(mydf, mypattern1, mypattern2, mycol) {
  mydf[[mycol]] <- sub(mypattern1, mypattern2, mydf[[mycol]])
  return(mydf)
}

fixcontents(mydf1, "(b{3})", "\\1X", 2)
#  col1 col2
#1    1  aaa
#2    2 bbbX

fixcontents(mytbl1, "(b{3})", "\\1_", 2)
# A tibble: 2 x 2
#   col1 col2 
#  <dbl> <chr>
#1     1 aaa  
#2     2 bbb_