R: edit column values by using if condition -


i have data frame several columns. 1 of contains plotids aeg1, aeg2,..., aeg50, heg1, heg2,..., heg50, seg1, seg2,..., seg50. so, data frame has 150 rows. want change of these plotids, there aeg01, aeg02,... instead of aeg1, aeg2, ... so, want add "0" of column entries. tried using lapply, loop, writing function,... nothing did job. there error message:

in if (nchar(as.character(dat_merge$ep_plotid)) == 4) paste(substr(dat_merge$ep_plotid,  ... : condition has length > 1 , first element used

so, last try:

plotid_func <- function(x) { if(nchar(as.character(dat_merge$ep_plotid))==4) paste(substr(dat_merge$ep_plotid, 1, 3), "0", substr(dat_merge$ep_plotid, 4, 4), sep="") }  dat_merge$plotid <- sapply(dat_merge$ep_plotid, plotid_func)

therewith, wanted select column entries 4 digits. , selected entries, wanted add 0. can me? dat_merge name of data frame , ep_plotid column want edit. in advance

just extract "string" portion , "numeric" portion , paste them after using sprintf on numeric portion.

an example:

## "x" "column" of plot ids. here go 12 ##    demonstrate 0 padding sounds ##    you're looking x <- c(paste0("aeg", 1:12), paste0("heg", 1:12))  ## extract string values strings <- gsub("([a-z]+)(.*)", "\\1", x)  ## extract numeric values nums <- gsub("([a-z]+)(.*)", "\\2", x)  ## put them paste0(strings, sprintf("%02d", as.numeric(nums))) #  [1] "aeg01" "aeg02" "aeg03" "aeg04" "aeg05" "aeg06" #  [7] "aeg07" "aeg08" "aeg09" "aeg10" "aeg11" "aeg12" # [13] "heg01" "heg02" "heg03" "heg04" "heg05" "heg06" # [19] "heg07" "heg08" "heg09" "heg10" "heg11" "heg12"

Comments

Post a Comment

Popular posts from this blog

bash - How do you programmatically add a bats test? -

i'd have bats test created every file in directory, i'm not sure best way done is. approach below creates single test when there many files in directory. #!/usr/bin/env bats in $(ls) @test "testing $i" { pwd } done to extract ls output not batter solution go wrong on filenames spaces. you can below shopt -s nullglob file in /dir/* //test command on $file done shopt -u nullglob you can using find command also find /some/directory -maxdepth 1 -type f -exec cmd option {} \;
Read more

Unable to open serial port using Putty to bluetooth device on windows 7 64 bit -

i working on dell windows 7 pro 64 bit machine. trying use on board bluetooth adapter comm homegrown bluetooth device using putty , serial port... device pairs computer. hoever, putty unable open serial port bluetooth device mapped/assigned to. tried putty 0.60 , 0.63. suggestions/help appreciated. thanks! pertinent details: baud: 57600 port: outgoing: com3 'spp dev' incoming: com4 adapter: intel wireless bluetooth adapter 4.0 has called microsoft bluetooth enumerator... putty version 0.60: 57600 com3 8 bits 1 stop bit no parity xon/xoff line discipline options: force on , force on putty version 0.63: 57600 com3 8 bits 1 stop bit no parity xon/xoff line discipline options: force on , force on when run putty 0.63, notice ssh selected connection type on right panel. have tried changing serial , updating com port configuration?
Read more

java - Getting exception in JDBC thin driver -

i try run query using java , below mentioned program import java.sql.connection; import java.sql.drivermanager; import java.sql.resultset; import java.sql.statement; import javax.naming.spi.dirstatefactory.result; public class oracleconn { public static void main(string[] args) { try { class.forname("oracle.jdbc.driver.oracledriver"); connection con = drivermanager.getconnection("jdbc:oracle:thin:@localhost:1521:yglobal","user","user"); statement stmt = con.createstatement(); resultset rs = stmt.executequery("select empid empmaster"); while(rs.next()) system.out.println(rs.getint(1)); con.close(); } catch (exception e) { e.printstacktrace(); }} } but when tried run program getting exception java.sql.sqlexception: ora-01756: quoted string not terminated @ oracle.jdbc.driver.databasee...
Read more