[問題] paste字串處理

[CAPPON (JI3)]

因要到SQL抓資料
需要先做資料的轉換, 但是要如何從RM_NO 轉換成要的格式　
每個字串都要有上引號
謝謝


  data <- data
  column.name <- "RM_NO"
  cat("column.name = ", column.name, "\n", sep="")
  data$bb <- paste("\'", as.character(data[,paste(column.name, sep="")]), "\'"
, sep="")

RM_NO                                                   bb
AB7003K,A6B7004M,A6B7003X                'AB7003K,A6B7004M,A6B7003X'
B6C80077,B6C8007U,B6C8007S                'B6C80077,B6C8007U,B6C8007S'
A6CQ0007,A6CQ0003,A6CQ0008         'A6CQ0007,A6CQ0003,A6CQ0008'

需要的格式
'AB7003K','A6B7004M','A6B7003X'
'B6C80077','B6C8007U','B6C8007S'
'A6CQ0007',A6CQ0003','A6CQ0008'




--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.139.94.24
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1488447073.A.B51.html
→ carl090105: paste0("'", as.character(data[,paste0(column.name
→ carl090105: , collapse="','")]), "'")
→ CAPPON: 還是ㄧ樣的結果耶...沒辦法每個字串都有上引號
→ kilfu0701: paste("\'", gsub(",", "','", as.character(data[,pas
→ kilfu0701: te(column.name, sep=""))), "\'", sep="")
→ carl090105: sorry 一開始誤解你的問題 重新回一下
→ carl090105: library(stringr)
→ carl090105: data[, bb := paste0("'", str_replace_all(RM_NO,
→ carl090105: ",", "','"), "'")]
→ carl090105: 要注意的是 data須是data.table