从单个数据表中绘制多个折线图

Question

寻找一些有助于绘制一些数据的帮助。我有一个数据表，其中包含以下格式的增长信息：

    Sample  Treatment  TimePoint FinalConc
    1      Dark        T1         132
    1      Dark        T2         159
    1      Dark        T3         170
    1      Light       T1         100
    ....
    42     Dark        T1         51
    42     Dark        T2         49
    42     Dark        T3         30
    42     Light       T1         25
    42     Light       T2         31
    42     Light       T3         84

我正在尝试生成一个看起来像这样的情节：

在每个图形上绘制了明暗处理（而不是男性和女性）。

我尝试了以下操作：

    datafile <- read.table("counts.txt",sep="\t",header = TRUE)
    ggplot(data = datafile, aes(x = TimePoint, y = FinalConcentration, group = Sample)) + facet_wrap(~Sample)

但是当绘制它时，有42张图，但是所有图都是空的。我不熟悉R，所以希望有人能指出我正确的方向。