选择并退出联接：错误：找不到函数，语法问题？

Question

我认为我可能会遇到语法问题。我将left_join和select一起使用，如下所示：

df<- df %>% left_join(select(df2, matchcode, 
tottax, indiv, corp, indirect, gst, trade), by="matchcode")

这没有问题。接下来，我想添加其他数据集中的列。该数据集的列中包含肮脏的名称和空格，因此我按以下方式“清理”了名称：

names(df3) <- gsub(" ", "_", names(df3))
names(df3) <- gsub("%", "p", names(df3))

然后我尝试应用完全相同的公式。下面是实际的语法：

df1 <- df1 %>% left_join(select(df3, matchcode, 
Firms_that_do_not_report_all_sales_for_tax_purposes_(p_of_firms),
Firms_visited_or_required_meetings_with_tax_officials_(p_of_firms)), by="matchcode")

错误如下：

Error in Firms_that_do_not_report_all_sales_for_tax_purposes_(p_of_firms) : 
  could not find function "Firms_that_do_not_report_all_sales_for_tax_purposes_"

我的列名是否还有语法问题？