Question

我有一个如下数据框：

    Col1    Col2   Col3
ten: end       5     10
five: nb       7     11
    12:4      12     10
   13:56      15     16

使用R中的sqldf包，我要执行以下操作：

用Col1和character: space替换-中的值。破折号的开头和结尾都有空格。

用Col1和number:number替换-中的值。破折号的开头和结尾没有空格。

预期输出：

     Col1    Col2   Col3
ten - end       5     10
five - nb       7     11
     12-4      12     10
    13-56      15     16

以下是使用sqldf的示例语法：

df <- sqldf("SELECT *, replace([Col1], [character: space], ' - ') [New Col generated] from df")

df <- sqldf("SELECT *, replace([Col1], [number:number], '-') [New Col generated_num] from df")

我尝试引用此文档，但还是没有运气：https://www.rexegg.com/regex-quickstart.html

Answer 1

1）假设仅允许问题中显示的形式，用减号替换冒号，然后用空格，减号，空格替换减号和空格。

library(sqldf)
sqldf("select *, replace(replace([Col1], ':', '-'), '- ', ' - ') as New from df")

给予：

      Col1 Col2 Col3       New
1 ten: end    5   10 ten - end
2 five: nb    7   11 five - nb
3     12:4   12   10      12-4
4    13:56   15   16     13-56

2）如果可以假设唯一的形式是数字：数字或字符：字符，第二种形式不包含数字。

sqldf("select *, 
  case when strFilter(Col1, '0123456789') = '' 
         then replace(Col1, ':', ' -')
       else replace(Col1, ':', '-')
       end as New
  from df")

给予：

      Col1 Col2 Col3       New
1 ten: end    5   10 ten - end
2 five: nb    7   11 five - nb
3     12:4   12   10      12-4
4    13:56   15   16     13-56

3）：首先检查数字：数字，然后检查字符：字符只能是数字或小写字母的字符。

dig <- "0123456789"
diglet <- "0123456789abcdefghijklmnopqrstuvwxyz"

fn$sqldf("select *,
  case when trim(Col1, '$dig') = ':'
         then replace(Col1, ':', '-')
  when trim(Col1, '$diglet') = ': '
          then replace(Col1, ': ', ' - ')
  else Col1 end as New
  from df")

给予：

      Col1 Col2 Col3       New
1 ten: end    5   10 ten - end
2 five: nb    7   11 five - nb
3     12:4   12   10      12-4
4    13:56   15   16     13-56

4）此函数提取x：y并检查x和y是否为数字，如果是，则进行适当的替换；如果不匹配，则提取x：yz，其中y为空格，如果x和z是数字或小写字母，然后执行适当的替换，否则返回Col1。 dig和diglet来自上方。

fn$sqldf("select *, 
  case when trim(substr(Col1, instr(Col1, ':')-1, 3), '$dig') = ':'
         then replace(Col1, ':', '-')
       when trim(substr(Col1, instr(Col1, ':') -1, 4), '$diglet') = ': '
         then replace(Col1, ': ', ' - ')
       else Col1 end as New
  from df")

注意

可重复输入的形式是：

Lines <- "Col1,Col2,Col3
ten: end,5,10
five: nb,7,11
12:4,12,10
13:56,15,16"
df <- read.csv(text = Lines, as.is = TRUE, strip.white = TRUE)

替换sqldf中的字符串模式

1 个答案:

注意