问一步下降N/A

EN

data<- read.csv("Spreadsheet.csv") 
data_complete <- data[!(data$pred_ranking=="N/A"),]%>%
data[!(data$precaution_score=="N/A"),]

我试图删除pred_ranking和precaution_score的N/A值。我不知道如何一步到位。

library(dplyr)
data<- read.csv("Spreadsheet.csv")
data_complete <- data %>%
      na_if("N/A") %>%
      filter(complete.cases(pred_ranking, precaution_score))

d4 <- data %>%
              group_by(conference, school)%>% 
  filter(conference %in% c( "SEC"))
  
graph2 <- ggplot(d2, aes(Preseason.Ranking,precaution_score, color=school)) + 
  geom_point() +
  facet_wrap(~conference, ncol = 2) +
  scale_x_discrete(breaks = scales::pretty_breaks(n=2)) +
  scale_y_discrete(breaks = scales::pretty_breaks(n=5)) +
  theme(legend.position="bottom")
graph2

结构(list=c(“空军”、"Akron“、"Alabama”、"App“、”亚利桑那“、”阿肯色州“、”阿肯色州“、”陆军“、"ASU”、"Auburn“、”鲍尔州“、”贝勒“、”博伊西州“、”波士顿学院“、”保龄球州“、”水牛“、"BYU”、“加利福尼亚”、“中密西根”、“夏洛特”科罗拉多州)、州=c(“”)“俄亥俄州”、“阿拉巴马州”、“北卡罗来纳州”、“亚利桑那州”、“阿肯色州”、“阿肯色州”、“纽约”、“亚利桑那州”、“阿拉巴马州”、“印第安纳州”、“德克萨斯州”、“爱达荷州”、“马萨诸塞州”、“俄亥俄州”、“纽约”、“犹他州”、“加利福尼亚”、“密歇根州”、“北卡罗来纳州”)、会议=c(“山区西部”、“美洲中部”、"SEC“、”太阳带“、"PAC 12”、"SEC“、”太阳带“、”独立“、"PAC 12”、"SEC“、”中美洲“、”大12“、”山区西部“、"ACC”、“中美洲”、“中美洲”、“独立”、"PAC 12“、”中美洲“、”会议美国“)，季节=c(2020 L、2020 L、2020 LPreseason.Ranking = c(71L、125 L、1L、43L、94L、61L、108 L、82L、24L、30L、50L、67L、32L、42L、128 L、84L、45L、69L、98L、115 L)，Post.Season.Ranking = c(74L、125 L、1L、39L、98L、56L、101 L、77L、23L、19L、66L、47L、46L、54L、126L、40L、13L、51L、85L、111L)、Difference.in.Ranking = c(-3L、0L、4L、4L -4L、5L、7L、5L、11L、11L、11L、11L、11L)。20L，-14L，-12L，2L，44L，32L，18L，13L，4L)，precaution_score = c("N/A"，"3"，"N/A"，( "N/A“、"N/A”)、row.names = c(NA，20L)、class = "data.frame")