r - dplyr split by semi colon in case_when -


suppose have dataframe df

library(dplyr) df <- data.frame(id = c(1:10), type = c('a', 'a;b','b','a','b','b','c','a;c','b;c','c'))

and want add column called color, based on values appear in type. (this example, in code there many more variations of type, i.e. d;f, e;q,a;z etc)

df %>%    mutate(color = case_when(     type == 'a' ~ 'red',     type == 'b' ~ 'blue',     type == 'c' ~ 'green',     true        ~ as.character(type)   ))

as stands, returns 

   id type color 1   1      red 2   2  a;b   a;b 3   3    b  blue 4   4      red 5   5    b  blue 6   6    b  blue 7   7    c green 8   8  a;c   a;c 9   9  b;c   b;c 10 10    c green

i curious if there way split semi-colon within case_when(), in order produce output

   id type color 1   1      red 2   2  a;b   red;blue 3   3    b  blue 4   4      red 5   5    b  blue 6   6    b  blue 7   7    c green 8   8  a;c red;green 9   9  b;c blue;green 10 10    c green

you can split type column separate rows, map colors , paste them together:

library(dplyr); library(tidyr); df %>%      separate_rows(type) %>%      mutate(color = case_when(         type == 'a' ~ 'red',         type == 'b' ~ 'blue',         type == 'c' ~ 'green',         true        ~ as.character(type)    )) %>%     group_by(id) %>%     summarise_all(funs(paste0(., collapse=";")))  # tibble: 10 x 3 #      id  type      color #   <int> <chr>      <chr> # 1     1            red # 2     2   a;b   red;blue # 3     3     b       blue # 4     4            red # 5     5     b       blue # 6     6     b       blue # 7     7     c      green # 8     8   a;c  red;green # 9     9   b;c blue;green #10    10     c      green

besides case_when, can put character color maps in vector , retrieve colors later:

map <- c(a = 'red', b = 'blue', c = 'green') df %>%      separate_rows(type) %>%      mutate(color = map[type]) %>%      group_by(id) %>%      summarise_all(funs(paste0(., collapse=";")))

Comments

Post a Comment

Popular posts from this blog

What is happening when Matlab is starting a "parallel pool"? -

running parallel cpu processes in matlab starts command parpool() according documentation , function: [creates] special job on pool of workers, , [connects] matlab client parallel pool. this function takes bit of time execute, on order of 30 seconds. in other multi-cpu paradigms openmp, parallel execution seems totally transparent -- i've never noticed behavior analogous matlab (granted i'm not experienced parallel programming). so, happening between time parpool() called , when finishes executing? takes long? parallel computing toolbox enables run matlab code in parallel using several different paradigms (e.g. jobs , tasks, parfor , spmd , parfeval , batch processing), , run either locally (parallelised across cores in local machine) or remotely (parallelised across machines in cluster - either 1 own, or 1 in cloud). in of these cases, code run on matlab workers , copies of matlab without interactive desktop. if you're intending run on remo...
Read more

angular - DownloadURL return null in below code -

when change file updated in firebase storage when try downloadurl show null. filechange(event: any) { const imagefolder: string = this.employee.id; const filelist: filelist = event.target.files; const file: file = filelist[0]; const storageref = firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file); console.log(storageref.snapshot.downloadurl); } the put() asynchronous. if want url after file uploaded have this: firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file).then((snapshot) => { storageref = snapshot.downloadurl: console.log(snapshot.downloadurl); });
Read more

php - Cannot override Laravel Spark authentication with own implementation -

during login process of laravel spark need request token of remote api. api stores exact same users , passwords laravel spark application. therefore need username , non hashed password of user during authentication process. i thought overriding authenticated method solution problem. in routes/web.php override post /login endpoint , pointing endpoint own logincontroller: <?php namespace app\http\controllers\auth; use illuminate\support\facades\log; use illuminate\http\request; use laravel\spark\http\controllers\auth\logincontroller sparklogincontroller; class logincontroller extends sparklogincontroller { /** * create new login controller instance. * * @return void */ public function __construct() { parent::__construct(); } /** * handle successful authentication attempt. * * @param request $request * @param \illuminate\contracts\auth\authenticatable $user * @return response */ public fu...
Read more