r - Best practice for handling different datasets with same type of data but different column names -


for example, suppose want build package analyzing customer transactions. in nice world, every transactions dataset like

   transactionid customerid transactiondate 1:             1          1      2017-01-01 2:             2          2      2017-01-15 3:             3          1      2017-05-20 4:             4          3      2017-06-11

then make nice functions like

num_customers <- function(transactions){   length(unique(transactions$customerid)) }

in reality, column names people use vary. (e.g. "customerid", "customerid", , "cust_id" might used different companies).

my question is, best way me deal this? plan on relying heavily on data.table, instinct make users provide mapping column names ones use attribute of table like

mytransactions <- data.table(   transaction_id = c(1l, 2l, 3l, 4l),   customer_id = c(1l, 2l, 1l, 3l),   transaction_date = as.date(c("2017-01-01", "2017-01-15", "2017-05-20", "2017-06-11")) ) setattr(   mytransactions,    name = "colmap",   value = c(transactionid="transaction_id", customerid="customer_id", transactiondate="transaction_date") ) attributes(mytransactions)

however, unfortunately, subset data attribute gets removed.

attributes(mytransactions[1:2])

if expect data have specific shape , set of attributes, define class. it's easy in r using s3 system, since need change class attribute.

the best way let users create s3 objects through function. keep original "feel" of adapting existing datasets, have users provide dataset , name columns use different values. default argument values can keep package code succinct , reward standards-respecting users.

transaction_table <- function(dataset,                               cust_id    = "customerid",                               trans_id   = "transactionid",                               trans_date = "transactiondate") {   keep_columns <- c(     customerid      = cust_id,     transactionid   = trans_id,     transactiondate = trans_date   )   out_table <- dataset[, keep_columns, = false]   setnames(out_table, names(keep_columns))   setattr(out_table, "class", c("transaction_table", class(out_table)))   out_table }   standardized <- transaction_table(   mytransactions,   cust_id    = "customer_id",   trans_id   = "transaction_id",   trans_date = "transaction_date" ) standardized #    customerid transactionid transactiondate # 1:          1             1      2017-01-01 # 2:          2             2      2017-01-15 # 3:          1             3      2017-05-20 # 4:          3             4      2017-06-11

as bonus, can take full advantage of s3 system, defining class-specific methods generic functions.

print.transaction_table <- function(x, ...) {   time_range <- range(standardized[["transactiondate"]])   formatted_range <- strftime(time_range)   cat("transactions from", formatted_range[1], "to", formatted_range[2], "\n")   nextmethod() }   print(standardized) # transactions 2017-01-01 2017-06-11  #    customerid transactionid transactiondate # 1:          1             1      2017-01-01 # 2:          2             2      2017-01-15 # 3:          1             3      2017-05-20 # 4:          3             4      2017-06-11

Comments

Post a Comment

Popular posts from this blog

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m
Read more

javascript - Z-index in d3.js -

i have map , when hover effect on region of map below yellow line , circle, last ones disappear. how can solve problem? http://jsfiddle.net/ot21n9qx/ var arc = g.append("path") .style("fill", "none") .style("stroke", "yellow") .style("stroke-width", 2) .attr("d", "m" + pathorigin[0] + "," + pathorigin[1] + " q" + svgpoint[0] + "," + pathorigin[1] + " " + svgpoint[0] + "," + svgpoint[1]); var circlesize = d3.scale.linear() .domain([0, 0.5, 1]) .range([4, 10, 4]); svg not have z order draws objects in order created. need create path , circle after create highlight regions. here forked fiddle: http://jsfiddle.net/o00fzgaf/1/
Read more