Session 6

Example 1

table_6b

# A tibble: 20 x 4
      mrn sequence type       value 
    <int>    <int> <chr>      <chr> 
 1 289034        1 age        47    
 2 289034        1 tumor_size 0.9 cm
 3 289034        2 age        47    
 4 289034        2 tumor_size 999 mm
 5 290660        1 age        49    
 6 290660        1 tumor_size 30 mm 
 7 290660        2 age        49    
 8 290660        2 tumor_size 999 mm
 9 341050        1 age        61    
10 341050        1 tumor_size 999 mm
11 341050        2 age        70    
12 341050        2 tumor_size 2.1 cm
13 385615        1 age        71    
14 385615        1 tumor_size 12 mm 
15 385615        2 age        71    
16 385615        2 tumor_size 2 cm  
17 550955        1 age        43    
18 550955        1 tumor_size 2.5 cm
19 550955        2 age        43    
20 550955        2 tumor_size 998 mm

Example 2

table_6c

# A tibble: 10 x 4
      mrn age    tumor_size tumor_unit
    <int> <chr>       <dbl> <chr>     
 1 289034 47 (1)        0.9 cm        
 2 289034 47 (2)      999   mm        
 3 290660 49 (1)       30   mm        
 4 290660 49 (2)      999   mm        
 5 341050 61 (1)      999   mm        
 6 341050 70 (2)        2.1 cm        
 7 385615 71 (1)       12   mm        
 8 385615 71 (2)        2   cm        
 9 550955 43 (1)        2.5 cm        
10 550955 43 (2)      998   mm        

Example 3

table_6d1 # age

# A tibble: 5 x 3
     mrn   `1`   `2`
   <int> <int> <int>
1 289034    47    47
2 290660    49    49
3 341050    61    70
4 385615    71    71
5 550955    43    43

table_6d2 # tumor_size

# A tibble: 5 x 3
     mrn `1`    `2`   
   <int> <chr>  <chr> 
1 289034 0.9 cm 999 mm
2 290660 30 mm  999 mm
3 341050 999 mm 2.1 cm
4 385615 12 mm  2 cm  
5 550955 2.5 cm 998 mm

Example 4

table_6e

# A tibble: 4 x 11
  var   `289034` `289034` `290660` `290660` `341050` `341050` `385615`
  <chr> <chr>    <chr>    <chr>    <chr>    <chr>    <chr>    <chr>   
1 sequ… 1        2        1        2        1        2        1       
2 age   47       47       49       49       61       70       71      
3 tumo… 0.9      999.0    30.0     999.0    999.0    2.1      12.0    
4 tumo… cm       mm       mm       mm       mm       cm       mm      
# ... with 3 more variables: `385615` <chr>, `550955` <chr>,
#   `550955` <chr>

gather()

gather(data, key, value, ...)

Use gather() to gather the values of a variable that are spread across columns.

The key is the name of the variable that will hold the values that are currently used as column names. The value is the name of the variables that holds the values in those columns.

table_6d1

# A tibble: 5 x 3
     mrn   `1`   `2`
   <int> <int> <int>
1 289034    47    47
2 290660    49    49
3 341050    61    70
4 385615    71    71
5 550955    43    43

gather(table_6d1, sequence, age, `1`, `2`)

# A tibble: 10 x 3
      mrn sequence   age
    <int> <chr>    <int>
 1 289034 1           47
 2 290660 1           49
 3 341050 1           61
 4 385615 1           71
 5 550955 1           43
 6 289034 2           47
 7 290660 2           49
 8 341050 2           70
 9 385615 2           71
10 550955 2           43

spread()

spread(data, key, value)

spread() is the inverse of gather(). The values of the variable given as key will be the new column names that will contain the values in value.

table_6b

# A tibble: 20 x 4
      mrn sequence type       value 
    <int>    <int> <chr>      <chr> 
 1 289034        1 age        47    
 2 289034        1 tumor_size 0.9 cm
 3 289034        2 age        47    
 4 289034        2 tumor_size 999 mm
 5 290660        1 age        49    
 6 290660        1 tumor_size 30 mm 
 7 290660        2 age        49    
 8 290660        2 tumor_size 999 mm
 9 341050        1 age        61    
10 341050        1 tumor_size 999 mm
11 341050        2 age        70    
12 341050        2 tumor_size 2.1 cm
13 385615        1 age        71    
14 385615        1 tumor_size 12 mm 
15 385615        2 age        71    
16 385615        2 tumor_size 2 cm  
17 550955        1 age        43    
18 550955        1 tumor_size 2.5 cm
19 550955        2 age        43    
20 550955        2 tumor_size 998 mm

spread(table_6b, type, value)

# A tibble: 10 x 4
      mrn sequence age   tumor_size
    <int>    <int> <chr> <chr>     
 1 289034        1 47    0.9 cm    
 2 289034        2 47    999 mm    
 3 290660        1 49    30 mm     
 4 290660        2 49    999 mm    
 5 341050        1 61    999 mm    
 6 341050        2 70    2.1 cm    
 7 385615        1 71    12 mm     
 8 385615        2 71    2 cm      
 9 550955        1 43    2.5 cm    
10 550955        2 43    998 mm    

Animated