我有一個(gè)如下數(shù)據(jù)框：

ColA ColB

djdn- 3

dn-dn 5

ndmc- 8

nd-nd-md 9

預(yù)期產(chǎn)出：

ColA ColB New_Col

djdn- 3 djdn

dn-dn 5 dn-dn

ndmc- 8 ndmc

nd-nd-md 9 nd-nd-md

使用sqldf，我想刪除值末尾的“ - ”，如果它存在于結(jié)尾。

這是我嘗試的代碼：

library(sqldf)

df_new<- sqldf("select CASE(RIGHT([ColA], 1) = '-', LEFT([ColA], LEN([ColA])-1),

[ColA]) [New_Col] from df")

Error in result_create(conn@ptr, statement) : near "(": syntax error

解決辦法：rtrim

library(sqldf)

df_new<- sqldf("select ColB,rtrim(ColA,'-') as ColA from df")

ColB ColA

1 3 djdn

2 5 dn-dn

3 8 ndmc

4 9 nd-nd-md