根据R中的列号/名称制作定义X值的图

Question

我试图在R中绘制一个图，其中X轴值对应于特定列，水平线连接y轴（如使用matplot功能）。例如：

set.seed(23); dt <- matrix(runif(18, 0, 1), nrow = 3, ncol=6)

> dt
          [,1]      [,2]      [,3]      [,4]      [,5]      [,6]
[1,] 0.5766037 0.7107246 0.9635445 0.9966112 0.3904731 0.1392785
[2,] 0.2230729 0.8194490 0.9781304 0.8659590 0.3147697 0.5181206
[3,] 0.3318966 0.4237206 0.8405219 0.7014217 0.8459473 0.5935508

我想制作一个图是x-2 = col 1，x-1 = col 2，x0 = col 3，x1 = col 4，x2 = col 5，x3 = col 6等，其中一条线连接着y每行的值。

您是否知道如何以简单的方式完成此操作？谢谢！

Answer 1

set.seed(23)
dt <- matrix(runif(18, 0, 1), nrow = 3, ncol=6)

library(dplyr)
library(tidyr)
library(ggplot2)

data.frame(dt) %>%                              # save it as dataframe
  mutate(id = factor(row_number())) %>%         # add row number as a variable
  gather(key,value,-id) %>%                     # reshape dataset
  ggplot(aes(key, value, group=id, col=id)) +   # plot data by grouping on id
  geom_point() +                                # add points
  geom_line()                                   # add lines

color（id）表示初始表中的行。 X轴表示初始表中的列。