R code:如何计算列表中超过(或低于)某个数字的次数

Question

我有一个2-4年的地下水位测量列表，想要计算某个地下水位超过(例如-0.22)或低于(第二步)的次数。

我试了一下：

sum(abs(Mylist <= -0.22) < 1e-6)

但是R回答了'not senseful for factors'

解决这个问题的正确方法是什么？

以下是数据的链接：

https://www.dropbox.com/sh/oq9v7nbg7baadm8/QmDuVpTk2v

如有提示，我将不胜感激！

Answer 1

library(data.table)
library(reshape2)
library(lubridate)

df = fread("/storage/Downloads/Watertable_fluctuations_All_Original.txt", 
     skip = 1, header = T) # dropbox file
df = df[, date := dmy(date)]

dfm = melt(df, id.vars = "date", value.name = "water.level")

wl.threshold = -0.22

dfm[water.level < wl.threshold,.N, keyby = variable] # count per measuring station

# bonus
library(openair)
timePlot(dfm[variable == "Yel342(2010)"],
     pollutant = "water.level", 
     smooth = T, 
     ref.y = wl.threshold)

​

​