如何使用plot或ggplot2

Question

我有一个数据框（见下文），其中有多行显示的标记通过Fly列标记（每个都是唯一的），以及每条行通过条件列标记的条件。每条线有四个与不同时间相关的测量值。我想在X上绘制音量和Y作为时间。和Fly下的唯一一行的颜色代码。有没有快速简便的方法来做到这一点？不确定如何让它工作或开始使用ggplot2（）甚至plot（）。一些帮助和指导将不胜感激。

     Fly condition_1 volume_1 volume_2 volume_3 volume_4
1     1    postcont      1.6     18.0      8.1     13.5
2     2    postcont      0.0     12.0     10.1      8.5
3     3    postcont      2.6      3.0     10.1      1.5
4     4    postcont     13.6     13.0     10.1     15.5

以下是绘图的代码

data1<-read.table(file=file.choose(),header=T)
head(data1)
postcontexp<-subset(data1, condition_1 == "postcont")
postcontexpVOL<- subset(# to remove unwanted columns)
postcontexpVOL<- na.omit(postcontexpVOL)

Answer 1

以下是使用melt和reshape2中的dplyr来调整数据的版本：

n <- 4
df <-
  data.frame(
    Ind = 1:n
    , vol_1 = rnorm(n)
    , vol_2 = rnorm(n)
    , vol_3 = rnorm(n)
    , vol_4 = rnorm(n)
  )


melted <-
  melt(df, id.vars = "Ind") %>%
  mutate(Time = as.numeric(gsub("vol_","",variable)))

ggplot(melted
       , aes(x = Time
             , y = value
             , col = as.factor(Ind))) +
  geom_line()