要在R语言中提取数据并生成一个Excel表格，你可以使用 readxl 包来读取数据，然后使用 openxlsx 包来写入数据到Excel表格。

下面是一个示例代码，演示了如何提取两个数据框并将它们合并成一个Excel表格：

# 安装并加载必要的包
install.packages("readxl")
install.packages("openxlsx")
library(readxl)
library(openxlsx)
# 读取数据框
df1 <- read_excel("path_to_file1.xlsx")
df2 <- read_excel("path_to_file2.xlsx")
# 合并数据框
merged_df <- merge(df1, df2, by = "common_column")
# 写入数据到Excel表格
write.xlsx(merged_df, file = "output_file.xlsx", rowNames = FALSE)
在上面的代码中，你需要将path_to_file1.xlsx和path_to_file2.xlsx替换为你要读取的数据文件的路径，将common_column替换为两个数据框中要合并的共同列名，将output_file.xlsx替换为要生成的Excel表格的文件名。
运行上面的代码后，你将会在工作目录中看到生成的Excel表格文件。