Converting author_id to author_username with R

There is an "sourcetweet_author_id" column in my dataset (of around 30000 tweets) which includes the twitter id of quoted and retweeted users. I want to convert the twitter id to twitter user name.

I managed to gather user names of the "sourcetweet_author_id" with rtweet package's lookup_users function.

data.with.usernames <- lookup_users(as_userid(mydata$sourcetweet_author_id))

sample output:

sample data:

But this function only returned the list of unique users. It is quite normal because my dataset includes many retweets from the same tweet.

Now, I need a function to match each sourcetweet_author_id with its user name and use that function to convert all the ids in "user_id" column to usernames in a new column.

sample data table of my original dataset:

This should add the screen_name column to original_dataset:

library(dplyr)
original_dataset %>%
  left_join(
    select(data.with.usernames, sourcetweet_author_id = user_id, screen_name)
  )