Re: [問題] paste字串處理

看板R_Language作者celestialgod (天)時間8年前 (2017/03/05 19:33)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

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

03/07 10:17, , 1^F

03/07 10:17, 1^F

是變數沒錯啊... 所以我用[[去取出來阿，再assign回去原本的data.frame ※ 編輯: celestialgod (36.232.184.141), 03/07/2017 18:34:02