if statement - R- Conditional calculation based on values in other row and column -

-

my data has following format: - first column: indication if machine running - second column: total time machine running

see here below dataset:

structure(c("", "running", "running", "running", "", "", "",  "running", "running", "", "10", "15", "30", "2", "5", "17", "47",  "12", "57", "87"), .dim = c(10l, 2l), .dimnames = list(null,      c("c", "v")))

i add third column gives total time machine has been running (by adding times since machine started run). see here below desired output:

 [1,] ""        "10" "0"     [2,] "running" "15" "15"    [3,] "running" "30" "45"    [4,] "running" "2"  "47"    [5,] ""        "5"  "0"     [6,] ""        "17" "0"     [7,] ""        "47" "0"     [8,] "running" "12" "12"    [9,] "running" "57" "69"   [10,] ""        "87" "0"

i tried write code in r in elegant way, programming skills limited moment. there knows solution problem? thank on beforehand!

first transform data more appropriate data structure can contain mixed data types:

m <- structure(c("", "running", "running", "running", "", "", "",                   "running", "running", "", "10", "15", "30", "2", "5", "17", "47",                   "12", "57", "87"), .dim = c(10l, 2l), .dimnames = list(null,                                                                          c("c", "v"))) df <- as.data.frame(m, stringsasfactors = false) df[] <- lapply(df, type.convert, as.is = true)

then can package data.table:

library(data.table) setdt(df) df[, total := cumsum(v), = rleid(c)] df[c == "", total := 0] #          c  v total # 1:         10     0 # 2: running 15    15 # 3: running 30    45 # 4: running  2    47 # 5:          5     0 # 6:         17     0 # 7:         47     0 # 8: running 12    12 # 9: running 57    69 #10:         87     0

Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di...
Read more

css - Can I use the :after pseudo-element on an input field? -

-
i trying use :after css pseudo-element on input field, not work. if use span , works ok. <style type="text/css"> .mystyle:after {content:url(smiley.gif);} .mystyle {color:red;} </style> this works (puts smiley after "buu!" , before "some more") <span class="mystyle">buuu!</span>a more this not work - colors somevalue in red, there no smiley. <input class="mystyle" type="text" value="somevalue"> what doing wrong? should use pseudo-selector? note: cannot add span around input , because being generated third-party control. :after , :before not supported in internet explorer 7 , under, on elements. it's not meant used on replaced elements such form elements (inputs) , image elements . in other words it's impossible pure css. however if using jquery can use $(".mystyle").after("add smiley here"); api docs on .after to ...
Read more