Assign one name for one id from similar names - r

Question

I have 1million observations and 4 variables(ID, NAME, COMPANY, TIPS)
My ID values are correctly mapped but in NAME column contains full names and some have an only first name but for sure end of each id (2,3,4) have a full name only, so I want to replace full name to all id so that I display one id and one correct name.
sample data table as below(Dt - Format)
ID Name Company Tips
1 Dave AB 50
2 PAT E DAV ABC 15
2 PAT ERIN DAV(full name) AB 26
3 JIL WIRTH DFG 26
3 JIL K WIRTH EF 45
3 JILL KATH WIRTH(full name) JUI 85
4 MARIANA PO KIL 50
4 MARIANA A PO(full name) LPI 55
5 BRET LLC 52
Expected Output
ID Name Company Tips
1 Dave AB 50
2 PAT ERIN DAV ABC 15
2 PAT ERIN DAV AB 26
3 JIL KATH WIRTH DFG 26
3 JIL KATH WIRTH EF 45
3 JILL KATH WIRTH JUI 85
4 MARIANA A PO KIL 50
4 MARIANA A PO LPI 55
5 BRET LLC 52

Answer 1

One way would be to take the longest name for each ID. Here is a way using dplyr...
library(dplyr)
df <- df %>% group_by(ID) %>% mutate(Name2=Name[which.max(nchar(Name))])
df
ID Name Company Tips Name2
<int> <chr> <chr> <int> <chr>
1 1 Dave AB 50 Dave
2 2 PAT E DAV ABC 15 PAT ERIN DAV
3 2 PAT ERIN DAV AB 26 PAT ERIN DAV
4 3 JIL WIRTH DFG 26 JILL KATH WIRTH
5 3 JIL K WIRTH EF 45 JILL KATH WIRTH
6 3 JILL KATH WIRTH JUI 85 JILL KATH WIRTH
7 4 MARIANA PO KIL 50 MARIANA A PO
8 4 MARIANA A PO LPI 55 MARIANA A PO
9 5 BRET LLC 52 BRET
To overwrite Name with the new values, just change Name2 to Name.

Answer 2

A base R solution would be to sort based on the full name and replace. The final step is the gsub that removes the (full name)
gsub('\\(.*', '', with(df[order(df$ID,
gsub("[\\(\\)]", "", regmatches(df$Name, gregexpr("\\(.*?\\)",
df$Name)))),], ave(Name, ID, FUN = function(i) `<-`(i, tail(i, 1)))))
#[1] "Dave" "PAT ERIN DAV" "PAT ERIN DAV" "JILL KATH WIRTH" "JILL KATH WIRTH" "JILL KATH WIRTH" "MARIANA A PO" "MARIANA A PO"
#[9] "BRET"

Answer 3

A solution uses functions from dplyr and tidyr. It fills the Name using the last one of each ID. dt2 is the final output.
If (full name) is truly in your data frame and you want to remove it, then we can use gsub and regular expression to do that. dt3 is the final output.
# Load packages
library(dplyr)
library(tidyr)
# Create example data frames
dt <- read.table(text = "ID Name Company Tips
1 Dave AB 50
2 'PAT E DAV' ABC 15
2 'PAT ERIN DAV(full name)' AB 26
3 'JIL WIRTH' DFG 26
3 'JIL K WIRTH' EF 45
3 'JILL KATH WIRTH(full name)' JUI 85
4 'MARIANA PO' KIL 50
4 'MARIANA A PO(full name)' LPI 55
5 'BRET' LLC 52",
header = TRUE, stringsAsFactors = FALSE)
dt2 <- dt %>%
group_by(ID) %>%
# Replace names that are not on the last row of each ID to be NA
mutate(Name = ifelse(row_number() != n(), NA, Name)) %>%
# Fill NA with the name from the last row
fill(Name, .direction = "up")
# Remove the string (full name)
dt3 <- dt2 %>% mutate(Name = gsub("\\s*\\([^\\)]+\\)", "", Name))