关于我要做什么,我有一个棘手的问题。
我在上面有两条线(两个条件的平均值)的图。我想在同一图上添加一个反射(reflect)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")

关于r - ggplot2 : Add a gradient colored square according to values,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/8742804/

10-12 23:29