How to create a column with largest size string value in rows in an R data frame?

To create a column with largest size string value in rows, we can use apply function and define the size of the string for the largest value by creating a function as shown in the below examples. If the number of characters in all the columns are same or there exists some ties then the output will be the first one.

Example1

y1<−sample(c("Female","Male"),20,replace=TRUE)
y2<−sample(c("Female","Male"),20,replace=TRUE)
df2<−data.frame(y1,y2)
df2

Output

y1 y2
1 Male Female
2 Male Female
3 Female Male
4 Female Male
5 Female Female
6 Female Male
7 Male Male
8 Female Female
9 Female Female
10 Female Female
11 Male Male
12 Male Female
13 Male Male
14 Male Female
15 Female Male
16 Female Female
17 Male Female
18 Female Female
19 Female Male
20 Female Female

Creating a column with largest text in each row of df2 −

Example

df2$LargeText<−apply(df2,1, function(x) x[which.max(nchar(x))])
df2

Output

y1 y2 LargeText
1 Male Female Female
2 Male Female Female
3 Female Male Female
4 Female Male Female
5 Female Female Female
6 Female Male Female
7 Male Male Male
8 Female Female Female
9 Female Female Female
10 Female Female Female
11 Male Male Male
12 Male Female Female
13 Male Male Male
14 Male Female Female
15 Female Male Female
16 Female Female Female
17 Male Female Female
18 Female Female Female
19 Female Male Female
20 Female Female Female