如何从R中的小时数据中选择每天一小时？

我有一张表，可以理解为：

data=read.table("C:\\users\\product0101.txt",sep="", header  = TRUE, row.names=NULL)

该表如下所示：

    which is hourly data for three years so 24 values for each day. 

策划 我们只是做：

     plot(data$sm, data$date,col='red')

但我想提取（供以后使用）并仅绘制对应于每天04:00的值。需要帮忙吗

    dput(head(data))
structure(list(Date = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c("2006/01/01", 
    "2006/01/02", "2006/01/03", "2006/01/04", "2006/01/05", "2006/01/06", 
    "2006/01/07", "2006/01/08", "2006/01/09", "2006/01/10", "2006/01/11", 
    "2006/01/12", "2006/01/13", "2006/01/14", "2006/01/15", "2006/01/16", 
    "2006/01/17", "2006/01/18", "2006/01/19", "2006/01/20", "2006/01/21", 
    "2006/01/22", "2006/01/23", "2006/01/24", "2006/01/25", "2006/01/26", 

只需使用：

plot(data$sm[data$time=="04:00",], data$date, col='red')

只需使用：

plot(data$sm[data$time=="04:00",], data$date, col='red')

只需使用：

plot(data$sm[data$time=="04:00",], data$date, col='red')

只需使用：

plot(data$sm[data$time=="04:00",], data$date, col='red')

第二次编辑：

data$Date <- as.Date(as.character(data$Date), "%y/%m/%d")
plot(data$sm[data$time=="04:00"], data$Date[data$time=="04:00"], col='red')

data$Date第二次编辑：

data$Date <- as.Date(as.character(data$Date), "%y/%m/%d")
plot(data$sm[data$time=="04:00"], data$Date[data$time=="04:00"], col='red')

data$Date第二次编辑：

data$Date <- as.Date(as.character(data$Date), "%y/%m/%d")
plot(data$sm[data$time=="04:00"], data$Date[data$time=="04:00"], col='red')

data$Date第二次编辑：

data$Date <- as.Date(as.character(data$Date), "%y/%m/%d")
plot(data$sm[data$time=="04:00"], data$Date[data$time=="04:00"], col='red')

data$Date您能添加来自
dput（head（data））
的输出吗？您不能简单地创建一个新的数据集
data4@GavinKelly的答案可能是正确的。如果没有，请编辑问题，您的
dput
输出不完整。我建议首先使用
as.Date（as.character（data$Date））
重新编码您的
Date
列。现在，这个专栏是一个因素，它不会有太大的帮助。你能添加来自
dput（head（data））
的输出吗？你不能简单地创建一个新的数据集
data4@GavinKelly的答案可能是正确的。如果没有，请编辑问题，您的
dput
输出不完整。我建议首先使用
as.Date（as.character（data$Date））
重新编码您的
Date
列。现在，这个专栏是一个因素，它不会有太大的帮助。你能添加来自
dput（head（data））
的输出吗？你不能简单地创建一个新的数据集
data4@GavinKelly的答案可能是正确的。如果没有，请编辑问题，您的
dput
输出不完整。我建议首先使用
as.Date（as.character（data$Date））
重新编码您的
Date
列。现在，这个专栏是一个因素，它不会有太大的帮助。你能添加来自
dput（head（data））
的输出吗？你不能简单地创建一个新的数据集
data4@GavinKelly的答案可能是正确的。如果没有，请编辑问题，您的
dput
输出不完整。我建议首先使用
as.Date（as.character（data$Date））
重新编码您的
Date
列。现在，这个专栏是一个因素，它不会有很大帮助。