CODEWITHSUNDEEP
r
R noob
R noob

Reputation: 513

Combine multiple columns keeping variable name as part of data

I have data as below 

      df=data.frame(
     Id=c("001","002","003","004"),
     author=c('John Cage','Thomas Carlyle'),
     circa=c('1988', '1817'),
     quote=c('I cant understand why people are frightened of new ideas. Im frightened of the old ones.',
      'My books are friends that never fail me.')
  )
df

I would like to combine 3 columns to obtain the data frame below

     df2 = data.frame(
          Id=c("001","002"),
          text = c(    
              'Author: 
              John Cage

             Circa:
             1988

             quote: 
             I cant understand why people are frightened of new ideas. Im frightened of the old ones.
             ',
               'Author: 
               Thomas Carlyle

             Circa:
             1817

             quote: 
             My books are friends that never fail me.
              '
         )
         )
     df2

I am aware I can use paste or unite from tidyr, but how can I pass the column names to be within the new created column?

Upvotes: 0

Views: 51

Answers (3)

akrun
akrun

Reputation: 886938

We can use melt in data.table

library(data.table)
melt(setDT(df), id.var = 'Id')[, .(text = paste(variable, 
       value, sep=":", collapse="\n")), Id]
#     Id                                                                                                                         text
#1: 001 author:John Cage\ncirca:1988\nquote:I cant understand why people are frightened of new ideas. Im frightened of the old ones.
#2: 002                                            author:Thomas Carlyle\ncirca:1817\nquote:My books are friends that never fail me.

Upvotes: 1

Ronak Shah
Ronak Shah

Reputation: 388807

You can get the data in long format and then paste by group. 

library(dplyr)

df %>%
  tidyr::pivot_longer(cols = -Id) %>%
  group_by(Id) %>%
  summarise(text = paste(name, value, sep = ":", collapse = "\n"))

# A tibble: 4 x 2
#  Id    text                                                                    
#  <fct> <chr>                                                                   
#1 001   "author:John Cage\ncirca:1988\nquote:I cant understand why people are f…
#2 002   "author:Thomas Carlyle\ncirca:1817\nquote:My books are friends that nev…
#3 003   "author:John Cage\ncirca:1988\nquote:I cant understand why people are f…
#4 004   "author:Thomas Carlyle\ncirca:1817\nquote:My books are friends that nev…

Upvotes: 1

ThomasIsCoding
ThomasIsCoding

Reputation: 101034

Here is a solution with base R, where paste0() is used. Maybe the following code can help you make it

res <- cbind(df[1],text = apply(apply(df[-1], 1, function(v) paste0(names(df[-1]),": ",v)), 2, paste0, collapse = "\n"))

such that

> res
   Id                                                                                                                            text
1 001 author: John Cage\ncirca: 1988\nquote: I cant understand why people are frightened of new ideas. Im frightened of the old ones.
2 002                                            author: Thomas Carlyle\ncirca: 1817\nquote: My books are friends that never fail me.

DATA

df <- structure(list(Id = structure(1:2, .Label = c("001", "002"), class = "factor"), 
    author = structure(1:2, .Label = c("John Cage", "Thomas Carlyle"
    ), class = "factor"), circa = structure(2:1, .Label = c("1817", 
    "1988"), class = "factor"), quote = structure(1:2, .Label = c("I cant understand why people are frightened of new ideas. Im frightened of the old ones.", 
    "My books are friends that never fail me."), class = "factor")), class = "data.frame", row.names = c(NA, 
-2L))

Upvotes: 1

Related Questions