выражения R в нескольких лейбл

Question

Я попытался выражение и bquote, но не могу понять это ...

У меня есть непрерывный переменный, назовет его x. Я отрезал его, используя cut(...), чтобы создать коэффициент с двумя уровнями. Я хочу, чтобы обозначить эти уровни <=10 и >10, но я хотел бы использовать выражение или bquote функции (см plotmath функцию), чтобы заменить <= с более хорошей версии: ≤

Например:

x <- rnorm(100,10,5) 
x.10 <- cut(x, breaks=c(-Inf,10,Inf), labels=*expression*) 

Что я должен поставить в качестве аргумента для меток, чтобы, когда я делаю штрих-код в x.10, метки появляются под столбцами?

barplot(table(x.10)) 

я могу получить эту работу:

labs <- expression(x <= ...) 

plot(1, main=labs) 

но как icorporate что в barplot этикетки?

Answer 1

Не пытайтесь делать выражения как метки для факторов. Применить выражение метки на сам сюжет, что-то вроде:

set.seed(42) # always include a seed in questions with randomness 
x <- rnorm(100,10,5) 
x.10 <- cut(x, breaks=c(-Inf,10,Inf), labels = FALSE) 

labels <- c(expression(paste(x <= 10)), expression(paste(x > 10))) 
barplot(table(x.10), names.arg = labels)