从 3d 数组创建线图(时间序列)

Create a line plot (times series) from a 3d array

我有一个 3d 数组,是否可以使用 ggplot2 之类的库来获得 1 个图形,其中 x 维度是数组的第一个元素 (100,200,300),其中 y 维度是第二个元素我的阵列(3,4,5)。然后情节的线条是我的数组的第三个元素。所以我最终得到了 3 条线 0.025、0.05、0.075 的线图。

数组:

test <- structure(c(0.375273574511523, 0.333640287506392, 0.349192797931677, 
                    0.337219826870885, 0.318182584380369, 0.320214135918515, 0.361795340513871, 
                    0.303301639079779, 0.308995818880145, 0.486614010203226, 0.491666372158188, 
                    0.450500424965387, 0.464697136076233, 0.467426609239434, 0.475098558417684, 
                    0.467056879901411, 0.43139438188378, 0.452656403568038, 0.451463478297646, 
                    0.516198183913922, 0.522289371444439, 0.499669539425807, 0.527507832814278, 
                    0.529443687671795, 0.520999085947043, 0.526833049499385, 0.533862568866946
), .Dim = c(3L, 3L, 3L), .Dimnames = list(c("100", "200", "300"
), c("3", "4", "5"), c("0.025", "0.05", "0.075")))


> test
, , 0.025

            3         4         5
100 0.3752736 0.3372198 0.3617953
200 0.3336403 0.3181826 0.3033016
300 0.3491928 0.3202141 0.3089958

, , 0.05

            3         4         5
100 0.4866140 0.4646971 0.4670569
200 0.4916664 0.4674266 0.4313944
300 0.4505004 0.4750986 0.4526564

, , 0.075

            3         4         5
100 0.4514635 0.4996695 0.5209991
200 0.5161982 0.5275078 0.5268330
300 0.5222894 0.5294437 0.5338626

您首先需要将 3d 数组转换为 data.frame,以便您可以在 ggplot2 上使用它。

# convert array into df
  df <- as.data.frame.table(test)

现在你可以制作你的情节了。虽然你希望你的情节看起来像什么,但仍然不完全清楚。

# plot
  library(ggplot2)

  ggplot( data=df ) +
    geom_line(data=df , aes(x=Freq , y=Var3 , group= Var2, color=Var2) )

将数组修改为数据框:

test2 <- adply(test, c(1,2,3))

对于绘图部分,我冒昧地重新解释了您可能想做的事情。请注意,包括值本身在内,您将需要四个 'dimensions'.

library(ggplot2)
ggplot( data=test2 ) + geom_line( aes(x=X1 , y=V1 , group= X3, colour = factor(X3))) +
                                facet_grid(.~X2)