无法在R Markdown中计算t检验函数

Question

我试图从R中的csv数据中读取一些数据，然后计算t检验函数，但我收到一个错误消息，即标签中有意外符号。

这是我的代码：

library(tidyverse)
library(magrittr) 
library(dplyr)    
labels <- list('non-failing heart (NF)', 'failing heart (F)')

data <- read.csv("C:\\Users\\alex\\Downloads\\data.csv", header=T)

data[data == 'NA_integer_'] <- NA
data %>% mutate_all(as.numeric) -> data
t.test(data$NF, data$F)

df <- setNames(do.call(rbind.data.frame, 
                       lapply(data, function(d) data.frame(d[1], d[2]))),
              labels)    

                           
                           
results <- t.test(df$`non-failing heart (NF)`, df$`failing heart (F)`)


                           
results$statistic
results$estimate
results$p.value

这是错误：

Error: unexpected Symbol in:
"              labels)    
results"
> results$statistic
Error: Object 'results' not found

这是我的数据的样子：