Correct way to concatenate lists of strings in R

Question

What is the idiomatic way to do the following string concatenation in R?

Given two vectors of strings, such as the following,

titles <- c("A", "B")
sub.titles <- c("x", "y", "z")

I want to produce the vector

full.titles <- c("A_x", "A_y", "A_z", "B_x", "B_y", "B_z")

Obviously, this could be done with two for-loops. However, I would like to know what an “idiomatic” (i.e., elegant and natural) solution would be in R.

In Python, an idiomatic solution might look like this:

titles = ['A', 'B']
subtitles = ['x', 'y', 'z']
full_titles = ['_'.join([title, subtitle])
               for title in titles for subtitle in subtitles]

Does R allow for a similar degree of expressiveness?

Remark

The consensus among the solutions proposed thus far is that the idiomatic way to do this in R is, basically,

full.titles <- c(t(outer(titles, sub.titles, paste, sep = "_")))

Interestingly, this has an (almost) literal translation in Python:

full_titles = map('_'.join, product(titles, subtitles))

where product is the cartesian-product function from the itertools module. However, in Python, such a use of map is considered more convoluted—that is, less expressive—than the equivalent use of list comprehension, as above.

@brittenb that does not produce the vector as required in the question. — zacdav
– zacdav, Commented Apr 19, 2016 at 11:23
@zacdav Yeah, I'm looking at the output now and am confused as to why it's not producing the expected output. I'll delete the comment. — tblznbits
– tblznbits, Commented Apr 19, 2016 at 11:24
Somewhat direct translation: mapply(function(x,y) sprintf("%s_%s", x, y), rep(titles, each=length(subtitles)), subtitles) — chinsoon12
– chinsoon12, Commented Apr 19, 2016 at 11:43
R is more "colorful" than Python in this example...wonder how many diff ways everyone can think of... — chinsoon12
– chinsoon12, Commented Apr 19, 2016 at 11:45

Miff · Accepted Answer · 2016-04-19 11:28:54Z

5

There are a couple of ways to go about this, either using the 'outer()' function to define your function as the matrix product of two vectors, along the lines of:

outer(titles, sub.titles, paste, sep='_')

and then wrangling it from a matrix into a vector, or converting your input to dataframe, using expand.grid()

do.call(paste, expand.grid(titles, sub.titles, sep='_', stringsAsFactors=FALSE))

answered Apr 19, 2016 at 11:28

Miff

7,99122 silver badges23 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

David Arenburg Over a year ago

You can probably wrap it into c as in c(outer(titles, sub.titles, paste, sep='_'))

egnha Over a year ago

Elegant. This almost produces the correct output. Unfortunately, the resulting components are in the wrong order. (I've updated the question to clarify this.) A transpose fixes this: c(t(outer(...)))

David Arenburg · Accepted Answer · 2016-04-19 13:37:18Z

3

Using do.call combined with paste and expand.grid

sort(do.call(paste, c(sep='_', expand.grid(titles, sub.titles))))
#[1] "A_x" "A_y" "A_z" "B_x" "B_y" "B_z"

Or using tidyr::unite combined with expand.grid

unite(expand.grid(titles, sub.titles), Res, everything()) %>% .$Res

edited Apr 19, 2016 at 13:37

David Arenburg

92.4k18 gold badges145 silver badges202 bronze badges

answered Apr 19, 2016 at 11:26

Colonel Beauvel

31.3k11 gold badges49 silver badges88 bronze badges

2 Comments

Colonel Beauvel Over a year ago

sure it's base R ;) But I tend use Curry quite a lot. Also looking for an elegant one liner using tidyr, but unite_(expand.grid(titles, sub.titles), everything()) does not seem to work

Colonel Beauvel Over a year ago

you can post it as an answer since you solved my question.

Scott Warchal · Accepted Answer · 2016-04-19 11:45:32Z

2

apply(expand.grid(titles, sub.titles), 1, paste, collapse = "_")

expand.grid creates a matrix of combinations between titles and sub.titles.
apply goes down the matrix of combinations and pastes them together.

edited Apr 19, 2016 at 11:45

answered Apr 19, 2016 at 11:27

Scott Warchal

1,02810 silver badges15 bronze badges

Comments

J_F · Accepted Answer · 2016-04-19 11:27:45Z

1

Try this code:

unlist(lapply(1:length(titles), function(x){paste(titles[x], sub.titles, sep="_")}))

answered Apr 19, 2016 at 11:27

J_F

10.4k2 gold badges35 silver badges59 bronze badges

Comments

tblznbits · Accepted Answer · 2016-04-19 11:29:23Z

1

This code also works: as.vector(outer(titles, subtitles, FUN=paste, sep="_"))

outer essentially performs a function element-wise to each element from each vector. So it'll take each element from titles and perform a function with each element from subtitles. The default function is multiplication, but we change that default by passing a new argument to the FUN parameter. Arguments that are used in our new function are appended after a comma. So we're telling R to take the first element from titles and paste it together with each element from subtitles and separate the two elements with a "_". Then do it again with the second element from titles.

answered Apr 19, 2016 at 11:29

tblznbits

6,7767 gold badges42 silver badges70 bronze badges

Comments

Zahiro Mor · Accepted Answer · 2016-04-19 11:29:33Z

1

full.titles  <-  paste0(expand.grid(titles,sub.titles)$Var1,'_',
expand.grid(titles,sub.titles)$Var2)
>full.titles
[1] "A_x" "B_x" "A_y" "B_y" "A_z" "B_z"

answered Apr 19, 2016 at 11:29

Zahiro Mor

1,7181 gold badge17 silver badges30 bronze badges

Collectives™ on Stack Overflow

Correct way to concatenate lists of strings in R

6 Answers 6

2 Comments

2 Comments

Comments

Comments

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

6 Answers 6

2 Comments

2 Comments

Comments

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related