Как поместить символ неравенства (<=) в строки таблицы с помощью Grid.table в R

Я не могу сделать так, чтобы прикрепленная таблица (<=) отображалась как

Таблица является переменной и построена следующим образом:

limites1 <- function (m ){
  h1 <- NULL
  for (i2 in 1: m){
    h1 <-c(h1 , paste0(unique(sort(v))[i2],  c( paste0( "<=  x  < " )) ,unique(sort(v))[i2+1] ))
  }
  h1
}

a <- unique(sort(v))[1]
b <- unique(sort(v))[n18]
prueba <- c(0, cumsum(as.numeric(prop.table(table(v)))) )
intervalos1 <- c( paste0("x<",a) ,limites1((1/(mean(unique(sort(v)))/sum(unique(sort(v)))))-1), paste0("x> = ",b))


tablasolucion <-data.frame (intervalos1 , prueba)
colnames (tablasolucion) <-c(  "x" ,  'F==P(X<=x)' )
tt <- ttheme_default(core = list(fg_params = list(parse=TRUE)),colhead=list(fg_params = list(parse=TRUE)))
grid.newpage()
grid.table(tablasolucion, rows = NULL, theme=tt)