作者CAPPON (JI3)
看板R_Language
標題[問題] paste字串處理
時間Thu Mar 2 17:31:10 2017
因要到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://webptt.com/m.aspx?n=bbs/R_Language/M.1488447073.A.B51.html
1F：→ carl090105: paste0("'", as.character(data[,paste0(column.name 03/02 18:03
2F：→ carl090105: , collapse="','")]), "'") 03/02 18:03
3F：→ CAPPON: 還是ㄧ樣的結果耶...沒辦法每個字串都有上引號 03/03 09:32
4F：→ kilfu0701: paste("\'", gsub(",", "','", as.character(data[,pas 03/03 18:12
5F：→ kilfu0701: te(column.name, sep=""))), "\'", sep="") 03/03 18:12
6F：→ carl090105: sorry 一開始誤解你的問題 重新回一下 03/05 22:24
7F：→ carl090105: library(stringr) 03/05 22:25
8F：→ carl090105: data[, bb := paste0("'", str_replace_all(RM_NO, 03/05 22:26
9F：→ carl090105: ",", "','"), "'")] 03/05 22:26
10F：→ carl090105: 要注意的是 data須是data.table 03/05 22:28