我有一个如下数据框：

ColA ColB

djdn- 3

dn-dn 5

ndmc- 8

nd-nd-md 9

预期产出：

ColA ColB New_Col

djdn- 3 djdn

dn-dn 5 dn-dn

ndmc- 8 ndmc

nd-nd-md 9 nd-nd-md

使用sqldf，我想删除值末尾的“ - ”，如果它存在于结尾。

这是我尝试的代码：

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