以下是一个示例代码，演示了如何按小时筛选R中的观测数量：

# 创建一个数据框，包含日期时间和观测数量
data <- data.frame(
  datetime = c("2022-01-01 08:00:00", "2022-01-01 09:15:00", "2022-01-01 10:30:00", "2022-01-01 12:45:00"),
  count = c(10, 15, 20, 5)
)

# 将日期时间转换为POSIXct格式
data$datetime <- as.POSIXct(data$datetime, format = "%Y-%m-%d %H:%M:%S")

# 按小时筛选观测数量
hourly_counts <- aggregate(count ~ format(datetime, "%Y-%m-%d %H"), data, sum)

# 输出结果
print(hourly_counts)

在这个示例中，我们首先创建了一个包含日期时间和观测数量的数据框。然后，我们使用as.POSIXct()函数将日期时间转换为POSIXct格式，以便可以进行时间操作。接下来，我们使用aggregate()函数按小时对观测数量进行求和，使用format()函数将日期时间格式化为"%Y-%m-%d %H"的形式，以便按小时进行分组。最后，我们打印出结果。

这个例子中的输出将是一个数据框，其中包含按小时分组的日期时间和对应的观测数量。