r - Replace values in a data.frame column based on values in a different column -

-

i have data.frame:

df <- data.frame(id = rep(c("one", "two", "three"), each = 10), week.born = na) df$week.born[c(5,15,28)] <- c(23,19,24)  df     id week.born 1    1        na 2    1        na 3    1        na 4    1        na 5    1        23 6    1        na 7    1        na 8    1        na 9    1        na 10   1        na 11   2        na 12   2        na 13   2        na 14   2        na 15   2        19 16   2        na 17   2        na 18   2        na 19   2        na 20   2        na 21 3        na 22 3        na 23 3        na 24 3        na 25 3        na 26 3        na 27 3        na 28 3        24 29 3        na 30 3        na

for one week.born values should 23. two week.born values should 19. one week.born values should 24.

whats best way this?

i create data.frame containing mapping , simple join:

require(dplyr) map <- data.frame(id=c("one","two","three"), new.week.born=c(23,19,24)) left_join(df, map, by="id")  # id week.born new.week.born # 1    1        na            23 # 2    1        na            23 # ... # 16   2        na            19 # 17   2        na            19 # 18   2        na            19 # 19   2        na            19 # 20   2        na            19 # 21 3        na            24 # 22 3        na            24 # 23 3        na            24 # ...

see benchmark below.

library(microbenchmark) library(dplyr) # v 0.4.1 library(data.table) # v 1.9.5  df <- data.frame(id = rep(c("one", "two", "three"), each = 1e6)) df2 <- copy(df) map <- data.frame(id=c("one","two","three"), new.week.born=c(23,19,24))  dplyr_join <- function() {    left_join(df, map, by="id") }  r_merge <- function() {   merge(df, map, by="id") }  data.table_join <- function() {   setkey(setdt(df2))[map] }  unit: milliseconds               expr         min         lq       mean     median         uq       max neval       dplyr_join()   409.10635   476.6690   910.6446   489.4573   705.4021  2866.151    10          r_merge() 41589.32357 47376.0741 55719.1752 50133.0918 54636.3356 83562.931    10  data.table_join()    94.14621   132.3788   483.4220   225.3309  1051.7916  1416.946    10

Comments

Post a Comment

Popular posts from this blog

c++ - No viable overloaded operator for references a map -

-
i trying use map can make tag names reference number. when try , use it, in code error (6 in total every time reference map): src/main.cpp:25:45: error: no viable overloaded operator[] type 'std::map<std::string, std::string>' const char* idcs = node.child_value(tagmap[3]); this code: #include "pugi/pugixml.hpp" #include <iostream> #include <string> #include <map> int main() { pugi::xml_document doca, docb; std::map<std::string, pugi::xml_node> mapa, mapb; std::map<std::string, std::string> tagmap {{"1", "data"}, {"2", "entry"}, {"3", "id"}, {"4", "content"}}; if (!doca.load_file("a.xml") || !docb.load_file("b.xml")) { std::cout << "can't find input files"; return 1; } (auto& node: doca.child(tagmap[1]).children(tagmap[2])) { co
Read more

java - Custom OutputStreamAppender not run: LOGBACK: No context given for <MYAPPENDER> -

-
i wish write custom appender on basis of outputstreamappender . wrote following class package tests; import java.io.ioexception; import java.io.outputstream; import ch.qos.logback.core.outputstreamappender; public class myappender<e> extends outputstreamappender<e> { public myappender() { system.out.println("myappender created"); setoutputstream(new outputstream() { @override public void write(int b) throws ioexception { throw new unsupportedoperationexception(); } }); } } then wrote following runner: package tests; import org.slf4j.loggerfactory; import ch.qos.logback.classic.logger; public class runner { private static final logger log = (logger) loggerfactory.getlogger(runner.class); public static void main(string[] args) { //log.addappender(new myappender<iloggingevent>()); log.info("hello world"); } } finall
Read more

java - Cannot secure connection using TLS -

-
i'm trying establish secure socket connection between java client applet (built jdk 1.7.0_75-b13) , vc++ server application. as test vehicle, used vc++ client/server sample found in msdn forums, modified use schannel , able establish socket using cipher suite tls_rsa_with_aes_128_cbc_sha. works of tls 1.0/1.1/1.2. when try opening socket java applet same server application, connection rejected server reporting following: tls 1.0 acceptsecuritycontext failed: 0x80090327 tls 1.1 acceptsecuritycontext failed: 0x80090331 tls 1.2 acceptsecuritycontext failed: 0x80090331 this java code used create socket: debugprint("setting secure connection"); sslsocketfactory sslsocketfactory = (sslsocketfactory) sslsocketfactory.getdefault(); sslsocket sslsocket = (sslsocket) sslsocketfactory.createsocket("127.0.0.1", socketnumber); debugprint("starting handshake"); sslsocket.settcpnodelay(true); sslsocket.setsolinger(false, 0); sslsocket.s
Read more