R ggplot中具有可变颜色的多个图

Question

我想在R中的同一个图上绘制多个图，并根据第三个变量对它们进行颜色编码，但我不知道如何在ggplot2的一个数据框中执行此操作。

例如，我的数据可能看起来像（组成数据）：

Time = [1 2 3 4 5]

YData = [10 11  9 10 12]
        [ 5  3  4  6  9]

ColorData = [2.5 2.6 2.7 2.8 2.9]
            [0.1 1.2 2.4 1.6 0.2]

我需要绘制＆＃34; YData [1，] vs Time＆＃34;根据ColorData [1，]在某些颜色比例上着色的点。然后我需要绘制＆＃34; YData [2，] vs Time＆＃34;根据ColorData [2，]在颜色标度上使用点。两个地块都会在同一个轴上。在实践中，我的矩阵将是巨大的，所以我不能手动绘制每个东西。我有什么想法可以做到这一点吗？

数据示例：

dx <- data.frame(Time = c(1, 2, 3 ,4, 5), 
                 YData1 = c(10 ,11  ,9 ,10 ,12),
                 YData2 = c(5  ,3  ,4  ,6  ,9),
                 ColorData1 = c(2.5 ,2.6 ,2.7, 2.8, 2.9),
                 ColorData2 =  c(0.1, 1.2, 2.4, 1.6, 0.2)
                 )

没有颜色的代码：

 library(reshape2)
 dx.melted = melt(dx, id = "Time")
 ggplot(data = dx.melted, aes(x = Time, y = value)) + geom_point()

Answer 1

您应该在绘图前重塑数据。通常我们使用reshape命令将数据放入长格式。这里我使用的是手动方法，但通常会转换32列data.frame。

dx_reshaped <- data.frame(Time=dx[,1],
                          stack(dx[,(grep('YData',colnames(dx)))]),
                          stack(dx[,(grep('Color',colnames(dx)))]))

然后你使用ggplot2绘制它。我使用2个geom来区分（ ydata类型和颜色类型）。

library(ggplot2)
ggplot(data=dx_reshaped,aes(Time,values)) +
  geom_point(aes(shape=ind),size=4) +
  geom_line(aes(color=values.1,group=ind))