PTT數位生活區 / R_Language

[問題] paste字串處理

看板R_Language作者 (JI3)時間8年前 (2017/03/02 17:31), 編輯推噓0(0推 0噓 10→)
留言10則, 3人參與, 最新討論串1/2 (看更多)
因要到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
→
03/02 18:03, , 1F
paste0("'", as.character(data[,paste0(column.name
03/02 18:03, 1F
→
03/02 18:03, , 2F
, collapse="','")]), "'")
03/02 18:03, 2F
→
03/03 09:32, , 3F
還是ㄧ樣的結果耶...沒辦法每個字串都有上引號
03/03 09:32, 3F
→
03/03 18:12, , 4F
paste("\'", gsub(",", "','", as.character(data[,pas
03/03 18:12, 4F
→
03/03 18:12, , 5F
te(column.name, sep=""))), "\'", sep="")
03/03 18:12, 5F
→
03/05 22:24, , 6F
sorry 一開始誤解你的問題 重新回一下
03/05 22:24, 6F
→
03/05 22:25, , 7F
library(stringr)
03/05 22:25, 7F
→
03/05 22:26, , 8F
data[, bb := paste0("'", str_replace_all(RM_NO,
03/05 22:26, 8F
→
03/05 22:26, , 9F
",", "','"), "'")]
03/05 22:26, 9F
→
03/05 22:28, , 10F
要注意的是 data須是data.table
03/05 22:28, 10F
‣ 更多 CAPPON 的文章
文章代碼(AID): #1Oj-PXjH (R_Language)
R_Language 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 CAPPON 的文章
文章代碼(AID): #1Oj-PXjH (R_Language)