How to do inner joins

inner_joining.R

library(dplyr)
library(readr)
Df <- read_csv("data/AV_usereventsR_new.csv")

# create a table with correct responses
correct_responses <- with(Df,
                          tibble(stimulus = rep(key_config_1[1:8],2),
                                 key_config = as.integer(c(rep(1,8), rep(2,8))),
                                 correct_response = c(correct[1:8], correct.1[1:8])
                          )
)

# Selected variables from the data. 
# I selected the variables I guessed were important.
# Then inner join with correct_responses.
# Then see if response == correct_response.
Df_new <- Df %>%
  mutate(stim_type = gsub(".*AV_", "", Stimulus),
         stim_type = tolower(gsub("_.*", "", stim_type)),
         response_num = as.integer(gsub("[A-Z]*", "", response))
  ) %>% select(subject = Subject, 
               stimulus = stim_type, 
               key_config = Key_config, 
               response = response_num,
               rt = `RT..ms.`) %>% 
  inner_join(correct_responses, 
             by = c('stimulus', 'key_config')) %>% 
  mutate(accuracy = response == correct_response)