Можно ли использовать индексы в легендах ggplot2? Я вижу этот вопрос по греческим буквам в легендах и в других местах, но я не могу понять, как его адаптировать.
Я думал, что использование expression(), которое работает с метками оси, сделает трюк. Но моя попытка ниже терпит неудачу. Спасибо!
library(ggplot2)
temp <- data.frame(a = rep(1:4, each = 100), b = rnorm(4 * 100), c = 1 + rnorm(4 * 100))
names(temp)[2:3] <- c("expression(b[1])", "expression(c[1])")
temp.m <- melt(temp, id.vars = "a")
ggplot(temp.m, aes(x = value, linetype = variable)) + geom_density() + facet_wrap(~ a)
Следующее должно работать (удалите свою строку с помощью names(temp) <-...):
ggplot(temp.m, aes(x = value, linetype = variable)) +
geom_density() + facet_wrap(~ a) +
scale_linetype_discrete(breaks=levels(temp.m$variable),
labels=c(expression(b[1]), expression(c[1])))
См. help(scale_linetype_discrete) для доступной настройки (например, название легенды через name=).
Если вы хотите включить греческие символы и т.д. в основные метки ярлыков, используйте неоценимый expression.
Для гистограммы я сделал следующее:
library(ggplot2)
data <- data.frame(names=tolower(LETTERS[1:4]),mean_p=runif(4))
p <- ggplot(data,aes(x=names,y=mean_p))
p <- p + geom_bar(colour="black",fill="white")
p <- p + xlab("expressions") + scale_y_continuous(expression(paste("Wacky Data")))
p <- p + scale_x_discrete(labels=c(a=expression(paste(Delta^2)),
b=expression(paste(q^n)),
c=expression(log(z)),
d=expression(paste(omega / (x + 13)^2))))
p
