作者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/cn.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