r - Reordering a list by element in list and remove specified rows in list -

-

continuation question: add row in r dataframe unique factor in column showing percent change month 

testing <- data.frame(   month = c("mtd: 12", "mtd: 12", "mtd: 11", "mtd: 12", "mtd: 12", "mtd: 12"),    year = c(2012, 2013, 2014, 2015, 2013, 2014),    client = c("a.", "a.", "a.", "b.", "b.", "b."),    revenue = c(320, 205, 166l, 152, 150, 138),   col1 = c(651, 485, 533, 3932, 171, 436),    col2 = c(478, 335, 305, 238, 115, 251),    col3 = c(73, 69, 57, 6, 67, 57),    col4 = c(6.7, 6.1, 5.5, 6.4, 13.1, 5.5) )  # subset month=12 rows test12 <- testing[testing$month=="mtd: 12", ] test12 <- test12[order(test12$client, test12$year), ]  # define function calculate percent change pctchange <- function(x) {   l <- length(x)   c(na, 100 * (x[-1] - x[-l]) / x[-l]) }  # calculate percent change columns, client change <- apply(test12[, c("revenue", "col1", "col2", "col3", "col4")], 2,   function(y) unlist(tapply(y, test12$client, pctchange))) change <- data.frame(change) names(change) <- paste0("d", names(change)) test12b <- cbind(test12[, c("month", "year", "client")], change)  # merge monthly data merge(testing, test12b, all=true)

so after running code list has been splitted client.

i want run following code remove 2nd row if number of rows factor (the client) greater 2.

i tried , didn't work: 

testing<-ifelse(length(splitresult)>2,splitresult[-2,],splitresult)

ultimate goal out of of this:

1) percent change of last year previous year , don't show inbetween stuff na previous year. if new client want na there specify new client. why tried out code above didn't work.

2) want reorder clients in split revenue in mtd: 12 2014. 

splitlist[order(sapply(splitlist, function(x) (x[["revenue"]])))]

(didn't work: assume splitlist name of list)

if can me either question extremely helpful. thanks!

i think plyr package here. example, instead of last line of code use ifelse, try

library(plyr) out = ddply(splitresult, "client", function(x){   if(dim(x)[1] > 2) x = x[-2,]   return(x) })

here, x client-specific data frame, , out result of combining rows of bunch of client-specific data frames.

you might check out lubridate, make dates , times easier deal with. mentioned in comments, dplyr helpful, rest of "hadleyverse" of packages cleaning , plotting data. solutions questions 1 , 2, along whole process of cleaning , summarizing, cleaner , easier right tools.


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