r - Add a calculated column to data frame based on another data frame -


i have 2 data frames in r:

  1. tvnationalsale: each row 1 tv ad placement
  2. workingnational: each row total web sessions minute

i want add calculated column tvnationalsale contains sum of sessions in 5 minutes prior ad showing. using dplyr package basic formatting.

> glimpse(tvnationalsale) observations: 1443 variables: $ sort.date        (fctr) 5/8/2015, 5/8/2015, 5/8/2015, 5/8/2015, 5/8/2015, 5/8/2015, 5/8/2015, 5/8... $ before.time      (time) 2015-08-05 06:03:00, 2015-08-05 21:12:00, 2015-08-05 08:49:00, 2015-08-05... $ ad.time          (time) 2015-08-05 06:08:00, 2015-08-05 21:17:00, 2015-08-05 08:54:00, 2015-08-05... $ after.time       (time) 2015-08-05 06:13:00, 2015-08-05 21:22:00, 2015-08-05 08:59:00, 2015-08-05... $ market.long.desc (fctr) national, national, national, national, national, national, national, nat... $ campaign.name    (fctr) europe-sale, europe-sale, europe-sale, europe-sale, europe-sale, europe-s...  > glimpse(workingnational) observations: 44616 variables: $ date     (date) 2015-05-01, 2015-05-01, 2015-05-01, 2015-05-01, 2015-05-01, 2015-05-01, 2015-05-0... $ hour     (fctr) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ... $ minute   (fctr) 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,... $ sessions (dbl) 161, 71, 65, 58, 63, 58, 56, 41, 56, 45, 58, 57, 37, 48, 37, 41, 43, 44, 36, 38, 4... $ time     (chr) "01:01:00", "01:02:00", "01:03:00", "01:04:00", "01:05:00", "01:06:00", "01:07:00"... $ datetime (time) 2015-05-01 01:01:00, 2015-05-01 01:02:00, 2015-05-01 01:03:00, 2015-05-01 01:04:0...

this example shows how calculate period metrics within 1 data frame can't figure out how calculate similar metric separate data frame.

i tried code think doesn't work because trying reference separate data frame in mutate() command.

tvnationalsale <- tvnationalsale %>% mutate(before.sessions=sum(filter(workingnational, datetime>=tvnationalsale$before.time & datetime<=tvnationalsale$ad.time)$sessions))

any ideas on how append calculated metrics data frame?

assuming workingnational data doesn't have gaps or other irregularities, location of each ad time in workingnational , take 5 entries leading time:

indices <- match(tvnationalsale$ad.time, workingnational$datetime) tvnationalsale$fiveminutesbefore <- rowsums(sapply(1:5, function(x) workingnational$sessions[indices-x])) head(tvnationalsale) #               ad.time fiveminutesbefore # 1 2015-01-03 04:02:00              3126 # 2 2015-01-05 02:57:00              2221 # 3 2015-01-04 14:53:00              4269 # 4 2015-01-07 01:17:00              1916 # 5 2015-01-06 15:37:00              2484 # 6 2015-01-03 14:23:00              3092

data:

set.seed(144) workingnational=data.frame(datetime=seq(from=isodate(2015, 1, 1), to=isodate(2015, 1, 8), by="min")) workingnational$sessions <- sample(1:1000, nrow(workingnational), replace=true) tvnationalsale=data.frame(ad.time=sample(workingnational$datetime, 100))

Comments

Post a Comment

Popular posts from this blog

javascript - Google App Script ContentService downloadAsFile not working -

i have web app developed using google app script htmlservice , html form, populating excel sheet in google drive using spreadsheetapp . , 1 section calling contentservice download data excel file. function doget(e) { // read excel sheet //getappfile(); // render application html template return htmlservice.createtemplatefromfile('index').evaluate() .settitle('go smart') .setsandboxmode(htmlservice.sandboxmode.iframe); } function downloaddoublequatecsvfile() { var sheetid = propertiesservice.getscriptproperties().getproperty('sheetid'); var ss = spreadsheetapp.openbyid(sheetid).getactivesheet(); //var ss = spreadsheetapp.getactivespreadsheet().getactivesheet(); var maxcolumn = ss.getlastcolumn(); var maxrow = ss.getlastrow(); var data = ss.getrange(1, 1, maxrow, maxcolumn).getvalues(); if (data.length > 1) { var csv = ""; (var row = 0; row < data.length; row++) { (var c...
Read more

javascript - Function overwritting -

is there way overwrite function or event handling in function? using addeventlistener, can have many event handlers on element want var test=document.getelementbyid("div"); test.addeventlistener("click",function(){alert("im first");},false); test.addeventlistener("click",function(){alert("im second");},false); // alerts "im first" , after "im second" but if want overwrite function/event example based on client width example this function one() { alert("first"); } function two() { alert("second"); } window.onresize = function() { var test = document.getelementbyid("div"); if (window.innerwidth > 500) { test.onclick = 1 } else { test.onclick = two; } } is possible in javascript? in case use effective little known approach. addeventlistener can accept object property handleevent event handler. in case it's easy overwr...
Read more

php - Find a regex to take part of Email -

i have following emails need extract part from: bestellnummer xxx: 1 von xxx, 1er pack ------------- anfang der nachricht ------------- foo bar baz foo bar baz // <<<<< need text here ------------- ende der nachricht ------------- ------------- anfang der nachricht ------------- foo bar baz foo bar baz ------------- ende der nachricht ------------- there 0 unlimited occurences of ------------- anfang der nachricht ------------- ------------- ende der nachricht ------------- and i'm able extract first part regex: $re = "/------------- .*? -------------.?(.*?).?------------- .*? -------------/s"; but, i'm quite new on learning regex, i'm pretty sure there must better regex extract part (foo bar baz foo bar baz) of text between ------------- anfang der nachricht ------------- ------------- ende der nachricht ------------- as can in different languages, i'm using .? to match between hyphens. i...
Read more