r - Group by combined with matching -


small rep of data set:

team1 <- c("atl", "chi", "cle", "det", "gsw", "nop", "bkn","atl", "phi","chi") home.away <- c("vs.", "vs.", "@", "@", "vs.", "@", "vs.","vs.", "@","@") team2 <- c("det", "cle", "chi", "atl", "nop", "gsw", "chi","phi", "atl","bkn") date <- as.date(c("2015-05-14", "2015-05-14", "2015-05-14",            "2015-05-14","2015-05-14", "2015-05-14", "2015-05-15","2015-05-15",            "2015-05-15","2015-05-15")) pts <- c(94, 97, 95, 106, 111, 95, 100,112,87, 94) df <- data.frame(team1,home.away,team2,pts,date)  df     team1 home.away team2 pts       date    atl       vs.   det  94 2015-05-14    chi       vs.   cle  97 2015-05-14    cle         @   chi  95 2015-05-14    det         @   atl 106 2015-05-14    gsw       vs.   nop 111 2015-05-14    nop         @   gsw  95 2015-05-14    bkn       vs.   chi 100 2015-05-15    atl       vs.   phi 112 2015-05-15    phi         @   atl  87 2015-05-15    chi       vs.   bkn  94 2015-05-15

the dataframe organized team level. each game, create 2 rows of data. example, atlanta vs detroit (first row) , detroit vs atlanta (fourth row). dataframe includes boxscore (pts, reb, ast...) team1. example included points scored variable. create new variable "points scored opponent team".

output this:

   team1 home.away team2 pts       date  pts.oppt    atl       vs.   det  94 2015-05-14    106    chi       vs.   cle  97 2015-05-14    95    cle         @   chi  95 2015-05-14    97    det         @   atl 106 2015-05-14    94    gsw       vs.   nop 111 2015-05-14    95    nop         @   gsw  95 2015-05-14    111    bkn       vs.   chi 100 2015-05-15    94    atl       vs.   phi 112 2015-05-15    87    phi         @   atl  87 2015-05-15    112    chi       vs.   bkn  94 2015-05-15    100

i tried using group date , sort of matching couldn't figure out matching part.

> team1 <- c("atl", "chi", "cle", "det", "gsw", "nop", "bkn","atl", "phi","chi") > home.away <- c("vs.", "vs.", "@", "@", "vs.", "@", "vs.","vs.", "@","@") > team2 <- c("det", "cle", "chi", "atl", "nop", "gsw", "chi","phi", "atl","bkn") > date <- as.date(c("2015-05-14", "2015-05-14", "2015-05-14", +                   "2015-05-14","2015-05-14", "2015-05-14", "2015-05-15","2015-05-15", +                   "2015-05-15","2015-05-15")) > pts <- c(94, 97, 95, 106, 111, 95, 100,112,87, 94) > df <- data.frame(team1,home.away,team2,pts,date) >  > df<-merge(df, df,  by.x=c("team1", "team2", "date"), by.y=c("team2", "team1", "date")) > df<-df[,c("team1", "home.away.x", "team2", "pts.x","date", "pts.y" )] > names(df)<-c("team1", "home.away", "team2","pts", "date", "pts.oppt") > df    team1 home.away team2 pts       date pts.oppt 1    atl       vs.   det  94 2015-05-14      106 2    atl       vs.   phi 112 2015-05-15       87 3    bkn       vs.   chi 100 2015-05-15       94 4    chi         @   bkn  94 2015-05-15      100 5    chi       vs.   cle  97 2015-05-14       95 6    cle         @   chi  95 2015-05-14       97 7    det         @   atl 106 2015-05-14       94 8    gsw       vs.   nop 111 2015-05-14       95 9    nop         @   gsw  95 2015-05-14      111 10   phi         @   atl  87 2015-05-15      112

Comments

Post a Comment

Popular posts from this blog

javascript - jQuery: Add class depending on URL in the best way -

i have html progress meter: <div class="col-md-3" style="margin-left: -20px;"> <div class="progress-pos active" id="progess-1"> <div class="progress-pos-inner"> login </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-2"> <div class="progress-pos-inner"> scan items </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-3"> <div class="progress-pos-inner"> confirm address </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-4"> <div class="progress-pos-in...
Read more

caching - How to check if a url path exists in the service worker cache -

i need check if particular url path exists in service worker cache. example, suppose url is: /myserviceworker/service?a=110&b=70 this url exists in cache, there many of them different values of , b. now, suppose want refresh of these urls, how can that? i want know how access key values service worker cache. if know key, plan follows: var url = new url(key); if(url.pathname === "\/myserviceworker/service") refetch key but not sure how cache key , in format is. mean, string or url? cache api has match() method returns promise resolving in response object if match or undefined if no match exists. second parameter object can specify ignoresearch not take account url parameters. the ignoresearch option supported firefox ( chrome status here ). in other hand, retrieve cache entries, can use keys() method.
Read more

Redirect to a HTTPS version using .htaccess -

i need modify .htaccess file redirect urls https version without "www". http://example.com --> https://example.com http://www.example.com --> https://example.com https://www.example.com --> https://example.com this how .htaccess file looks like: rewriteengine on rewritecond %{request_filename} !-d rewritecond %{request_filename} !-f rewriterule ^(.*)$ redirect.php?id=$1&page=$2 [qsa,l] what modifications need make .htaccess in order forward https without "www"? it depends on doing current code. looks file called redirect trying display php page seo friendly url. think might confusing people. anyway, need , force https without www, need 1 more rule above. also second rule needs two capture groups in rewriterule test string because wanting 2 different values using $1 , $2 references. rewriteengine on #rediect www non www and/or http https --- combinations. rewritecond %{http_host} !^example\.com [nc,or] rewritecond %{https} !^...
Read more