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

为什么会出现这种情况，以及如何处理数据？

Answer 1

使用[进行子设置对小动作有不同的作用。子集数据帧返回一个矢量，而小标题返回小标题。

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_

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

1 个答案: