r - 在所有列中绘制每一行数据(意大利面条图)

Question

我有一个 small dataset由 16 行和 5 列组成。该数据集显示在图片下方，也可以使用以下方式导入到 R:

  d <- read.csv("https://raw.githubusercontent.com/izeh/i/master/De.csv")[-1]

目标:我的目标是在 base R 中绘制所有列中的每一行数据(意大利面条图)。例如，对于 3 行(总共 16 行)行)，我期待类似下面的图片。

问题:我尝试了 matplot() 但没有成功，是否有 BASE R 解决方案？

matplot(d)

整个数据:

   GolBkgnd DesnTst Result PrdctConc PostBrd
1         4       4      3         5       5
2         2       3      5         3       5
3         5       4      3         5       4
4         3       4      4         1       3
5         5       3      2         4       4
6         5       4      5         5       4
7         5       3      3         1       5
8         5       4      5         5       4
9         5       3      2         1       3
10        5       4      3         4       5
11        5       3      1         4       3
12        3       4      3         4       5
13        5       3      4         2       5
14        4       4      3         5       5
15        5       3      3         5       4
16        5       4      4         3       5

Answer 1

使用 base R，似乎你只需要用 t() 转置并自己绘制轴

matplot(t(d), type="l", xaxt="n")
axis(1, seq_along(d), names(d))