Re: [問題] paste字串處理

[celestialgod (天)]

※ 引述《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'

dat <- read.table(textConnection("
RM_NO
AB7003K,A6B7004M,A6B7003X
B6C80077,B6C8007U,B6C8007S
A6CQ0007,A6CQ0003,A6CQ0008
"), header = TRUE)

column.name <- "RM_NO"
dat$bb <- gsub("([A-Z0-9]+)(,?)", "'\\1'\\2", dat[[column.name]])
dat

#                        RM_NO                               bb
# 1  AB7003K,A6B7004M,A6B7003X  'AB7003K','A6B7004M','A6B7003X'
# 2 B6C80077,B6C8007U,B6C8007S 'B6C80077','B6C8007U','B6C8007S'
# 3 A6CQ0007,A6CQ0003,A6CQ0008 'A6CQ0007','A6CQ0003','A6CQ0008'


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.232.184.141
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1488713633.A.9D2.html
推 CAPPON: 謝謝C大，RM_NO的內容是變數，這邊看不太懂怎麼使用～
是變數沒錯啊... 所以我用[[去取出來阿，再assign回去原本的data.frame
※ 編輯: celestialgod (36.232.184.141), 03/07/2017 18:34:02