У меня есть сложный вопрос относительно того, что я пытаюсь сделать. У меня есть сюжет с двумя строками (среднее из двух условий) на нем. Я хочу добавить на том же участке квадрат, отражающий t-значения (и по цвету в соответствии с этими значениями градиентно). Как я могу добавить этот квадрат?
Ну, так как я не знаю, ясно ли я, вот цифра, которую я пытаюсь достичь.
Спасибо за помощь!
Попробуйте это для ggplot2:
x <- seq(-10, 10, 0.1)
df <- data.frame(x, y1 = pnorm(x), y2 = pnorm(x) * 2)
df$t <- df$y2 - df$y1
dfm <- melt(df, id = "x")
ggplot(NULL, aes(x, value)) +
geom_line(aes(colour = variable),
droplevels(subset(dfm, variable %in% c("y1", "y2")))) +
geom_rect(aes(xmin = x - 0.05, xmax = x + 0.05, ymin = -0.5, ymax = -0.4, fill = value),
subset(dfm, variable == "t"))
ОБНОВЛЕНО
Вы можете использовать scale_fill_XXX. Вот версия струйного цвета:
jet.colors <- colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan","#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000"))
# panel on the left side
p <- ggplot(NULL, aes(x, value)) +
geom_line(aes(colour = variable),
droplevels(subset(dfm, variable %in% c("y1", "y2")))) +
geom_rect(aes(xmin = x - 0.05, xmax = x + 0.05, ymin = -0.5, ymax = -0.4, fill = value),
subset(dfm, variable == "t")) +
scale_fill_gradientn(colours = jet.colors(7))
p
а в следующей версии ggplot2 вы можете использовать colorbar как легенду.
# panel on the right side
p + guides(fill = "colourbar")
Для базовой графики вы можете использовать функцию rasterImage, чтобы добавить прямоугольник с градиентом в нем к графику.