fork download 
  1. library(magrittr)
  2. library(data.table)
  3. set.seed(1234)
  4. d0 <-
  5.   data.frame(name = LETTERS[1:10],
  6.              referrer1 = sample(c(letters[1:4], NA), 10, replace = T))
  7. print(d0)
  8. dcast(d0, name ~ referrer1, fun = length) %>%
  9.   subset(select = -`NA`)
  10.  
Success #stdin #stdout #stderr 0.38s 207104KB
comments (?)
stdin 
Standard input is empty
stdout 
   name referrer1
1     A         a
2     B         d
3     C         d
4     D         d
5     E      <NA>
6     F         d
7     G         a
8     H         b
9     I         d
10    J         c
   name a b c d
1     A 1 0 0 0
2     B 0 0 0 1
3     C 0 0 0 1
4     D 0 0 0 1
5     E 0 0 0 0
6     F 0 0 0 1
7     G 1 0 0 0
8     H 0 1 0 0
9     I 0 0 0 1
10    J 0 0 1 0
stderr 
Using 'referrer1' as value column. Use 'value.var' to override
https://ideone.com/HBy8eD
language:
R (R 3.5.2)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!