多索引數據更新

我有這種格式的數據，我將它們加載到數據幀中。多索引數據更新

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個不同的圖）獲取數據組。

來源

2013-05-08 user2359868

編輯：這裏會得到你想要的東西，除了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)

plot

來源

2013-05-08 13:30:48 Thomas

多索引數據更新

回答

相關問題