Download mixedL.csv 

(see “CSV format” under “Files used in the examples”)

mixed_left <- read.csv('mixedL.csv')

mixed_left

   First Last Age Group    Veggie      Fruit

1  John Sims  30     A Artichoke      Apple

2  Mary Sims  25     A Asparagus    Apricot

3  John Kent  40     A              Avocado

4  John Sims  30     B  Broccoli     Banana

5  Mary Sims  25     B                    

6  John Kent  40     B            Blueberry

7  John Sims  30     C    Carrot     Cherry

8  Mary Sims  25     C    Celery  Cranberry

9  John Kent  40     C           Clementine

Option 1: Transform using reshape        

Option 2: Transform using reshape2 library        

Option 3: Transform using tidyr library        

Option 1: Transform using reshape

# From mixed_left to long

long <- reshape(mixed_left,

                idvar = c('First','Last','Age','Group'),

                varying = c('Veggie','Fruit'),

                v.names = 'Plant',

                times = c('Veggie','Fruit'),

                timevar = 'Type',

                direction = 'long')

# Rename the rows

rownames(long) <- 1:nrow(long)

long

   First Last Age Group   Type      Plant

1   John Sims  30     A Veggie  Artichoke

2   Mary Sims  25     A Veggie  Asparagus

3   John Kent  40     A Veggie          

4   John Sims  30     B Veggie   Broccoli

5   Mary Sims  25     B Veggie          

6   John Kent  40     B Veggie          

7   John Sims  30     C Veggie     Carrot

8   Mary Sims  25     C Veggie     Celery

9   John Kent  40     C Veggie          

10  John Sims  30     A  Fruit      Apple

11  Mary Sims  25     A  Fruit    Apricot

12  John Kent  40     A  Fruit    Avocado

13  John Sims  30     B  Fruit     Banana

14  Mary Sims  25     B  Fruit          

15  John Kent  40     B  Fruit  Blueberry

16  John Sims  30     C  Fruit     Cherry

17  Mary Sims  25     C  Fruit  Cranberry

18  John Kent  40     C  Fruit Clementine

library(reshape2)

# From mixed_left to long

long <- melt(mixed_left,

             id.vars = c('First','Last','Age','Group'),

             measure.vars = c('Veggie','Fruit'),

             variable.name = 'Type',

             value.name = 'Plant')

long

   First Last Age Group   Type      Plant

1   John Sims  30     A Veggie  Artichoke

2   Mary Sims  25     A Veggie  Asparagus

3   John Kent  40     A Veggie          

4   John Sims  30     B Veggie   Broccoli

5   Mary Sims  25     B Veggie          

6   John Kent  40     B Veggie          

7   John Sims  30     C Veggie     Carrot

8   Mary Sims  25     C Veggie     Celery

9   John Kent  40     C Veggie          

10  John Sims  30     A  Fruit      Apple

11  Mary Sims  25     A  Fruit    Apricot

12  John Kent  40     A  Fruit    Avocado

13  John Sims  30     B  Fruit     Banana

14  Mary Sims  25     B  Fruit          

15  John Kent  40     B  Fruit  Blueberry

16  John Sims  30     C  Fruit     Cherry

17  Mary Sims  25     C  Fruit  Cranberry

18  John Kent  40     C  Fruit Clementine

library(tidyr)

# From mixed_left to long

long <- mixed_left %>%

  gather(key = 'Type',value = 'Plant',Veggie:Fruit)

long

   First Last Age Group   Type      Plant

1   John Sims  30     A Veggie  Artichoke

2   Mary Sims  25     A Veggie  Asparagus

3   John Kent  40     A Veggie          

4   John Sims  30     B Veggie   Broccoli

5   Mary Sims  25     B Veggie          

6   John Kent  40     B Veggie          

7   John Sims  30     C Veggie     Carrot

8   Mary Sims  25     C Veggie     Celery

9   John Kent  40     C Veggie          

10  John Sims  30     A  Fruit      Apple

11  Mary Sims  25     A  Fruit    Apricot

12  John Kent  40     A  Fruit    Avocado

13  John Sims  30     B  Fruit     Banana

14  Mary Sims  25     B  Fruit          

15  John Kent  40     B  Fruit  Blueberry

16  John Sims  30     C  Fruit     Cherry

17  Mary Sims  25     C  Fruit  Cranberry

18  John Kent  40     C  Fruit Clementine