Как построить категориальные данные с числовыми

Question

У меня есть два столбца из кадра данных, которые я хотел бы построить. Одним из них является b выигрышей и проигрышей, которые были преобразованы в двоичные 1 и 0. Другое расстояние от стадиона. Однако я преобразовал расстояния в категориальные категории: «600 км и менее», «601–1200 км», «1201–1800 км» и т. Д. До> 4500 км. Я сделал это, потому что есть много игр, и я пытаюсь увидеть, есть ли связь между поражением вдали от дома и расстоянием от дома.

Однако, я теперь застрял на том, как построить его, потому что его нечисловой аргумент к ошибке двоичного оператора.

Я в Rstudio.

Расчет расстояния в километрах между стадионом Окленда и всеми выездными играми.

lat1 <- 37.75028
long1 <- -122.2029
lat2 <- OaklandAwayGamesM$latitude
long2 <- OaklandAwayGamesM$longitude

earth.dist <- function (long1, lat1, long2 , lat2)
{
  rad <- pi/180
  a1 <- lat1 * rad
  a2 <- long1 * rad
  b1 <- lat2 * rad
  b2 <- long2 * rad
  dlon <- b2 - a2
  dlat <- b1 - a1
  a <- (sin(dlat/2))^2 + cos(a1) * cos(b1) * (sin(dlon/2))^2

преобразовал расстояние в дискретные значения и классы.

OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>0 & OaklandAwayGamesM$Distance_From_Oakland<= 600 ] = 
  "600km and under"
OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>601 
                                        & OaklandAwayGamesM$Distance_From_Oakland<= 1200 ] = "601km to 1200km"
OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>1201 
                                        & OaklandAwayGamesM$Distance_From_Oakland<= 1800 ] = "1201km to 1800km"
OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>1801 
                                        & OaklandAwayGamesM$Distance_From_Oakland<= 2400 ] = "1801km to 2400km"
OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>2401 
                                        & OaklandAwayGamesM$Distance_From_Oakland<= 3000 ] = "2401km to 3000km"
OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>3001 
                                        & 
   OaklandAwayGamesM$Distance_From_Oakland<= 3600 ] = "3001km to 3600km"


 OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From . _Oakland>3601 
                                        & 
   OaklandAwayGamesM$Distance_From_Oakland<= 4200 ] = "3601km to 4200km"


 OaklandAwayGamesM$Distance_From_Oakland1[OaklandAwayGamesM$Distance_From_Oakland>4201 
                                        & 
   OaklandAwayGamesM$Distance_From_Oakland<= 4500 ] = "4201km and above"

часть, в которой я застрял

 boxplot(OaklandAwayGamesM$Distance_From_Oakland1, 
          OaklandAwayGamesM$Win1_loss0, 
         ylab = "Wins Away from Home", xlab = "Distance from Home Stadium", 
         main = "Wins Away Vs Distance", col ="blue", pch=16)

Error in x[floor(d)] + x[ceiling(d)] : 
 non-numeric argument to binary operator

Я просто хотел бы иметь возможность составить график чего-то, чтобы увидеть победы и расстояние до домашнего стадиона.