如何消除强制引入的＆＃34; NAs。＆＃34;警告？

Question

对于coursera项目，我需要提取具有特定列中最小值的数据帧的行。为此，我编码：

 else if (outcome=="heart failure") {
    df1 <- subset(df, State == state)
    df1C<- df1[complete.cases(df1),]
    df2<- df1C[df1C$Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure==min(as.numeric(df1C$Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure), na.rm=TRUE),]
    print(df2[,2])
}

虽然我得到了正确答案，但我也收到了警告：＆＃34;强制引入的NAs。＆＃34;

我有两个问题：

我。我怎样才能改进代码以消除警告？

II。有没有办法让这不那么麻烦 - 我觉得有必要使用＆＃34; as.numeric＆＃34;长列标题让事情变得非常混乱？