我想在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]
我需要绘制“ YData [1,] vs时间”,并根据ColorData [1,]在某些色标上着色点。然后我需要根据ColorData [2,]在色标上绘制点“ YData [2,] vs Time”。这两个图将在相同的轴上。实际上,我的矩阵非常庞大,因此我无法手动绘制每件事。有什么想法我可以做到这一点吗?
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()
在绘制之前,您应该重塑数据。通常,我们使用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个几何来区分(ydata类型和color类型)。
library(ggplot2)
ggplot(data=dx_reshaped,aes(Time,values)) +
geom_point(aes(shape=ind),size=4) +
geom_line(aes(color=values.1,group=ind))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句