多索引数据更新

Question

我有这种格式的数据，我将它们加载到数据帧中。

number   value day 
    2     2  21/3/2010 00:01:00 
    2     3  21/3/2010 00:02:00 
    2     4  21/3/2010 00:03:00 
    3     2  21/3/2010 00:01:00 
    3     3  21/3/2010 00:02:00 
    3     5  21/3/2010 00:03:00 
    3     4  21/3/2010 00:04:00 
    4     4  21/3/2010 00:01:00 
    4     4  21/3/2010 00:02:00 
    4     4  21/3/2010 00:03:00 
    4     4  21/3/2010 00:04:00 

dm <- read.table(text = Lines, header = TRUE) 

我尝试基于数字列的数据。 x轴的日期和y轴的列值和列号我可以根据数字（3个不同的图）获取数据组。

Answer 1

编辑：这里会得到你想要的东西，除了x轴标签。应该推广到三个以上的地块

dm <- data.frame(number=c(2,2,2,3,3,3,3,4,4,4,4), 
     value=c(2,3,4,2,3,5,4,4,4,4,4), 
     day=c("21/3/2010 00:01:00", 
       "21/3/2010 00:02:00", 
       "21/3/2010 00:03:00", 
       "21/3/2010 00:01:00", 
       "21/3/2010 00:02:00", 
       "21/3/2010 00:03:00", 
       "21/3/2010 00:04:00", 
       "21/3/2010 00:01:00", 
       "21/3/2010 00:02:00", 
       "21/3/2010 00:03:00", 
       "21/3/2010 00:04:00"), stringsAsFactors=FALSE) 
layout(matrix(1:length(unique(dm$number)),nrow=1, ncol=length(unique(dm$number)))) 
z <- sapply(unique(dm$number), FUN=function(x) 
    plot(dm$value[dm$number==x],as.factor(dm$day[dm$number==x]), ylab="Value", xaxt="n", xlab="Day", main=paste0("Day ",x), type="l")) 
rm(z)