数据：https://www.dropbox.com/sh/oq9v7nbg7baadm8/QmDuVpTk2v
代码：
library(data.table)
library(reshape2)
library(lubridate)
df = fread("Watertable_fluctuations_All_Original.txt",
skip = 1, header = T) # dropbox file
df = df[, date := dmy(date)]
tables(df)
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
setkey(dfm,variable); dfm[water.level < wl.threshold,.N, by = key(dfm)].
情节：
library(openair)
timePlot(dfm[variable == "Yel342(2010)"],
pollutant = "water.level",
smooth = T,
ref.y = wl.threshold)
产生以下问题：
> tables(df)
Fehler in if（mb）{： 论证kann nicht als logischer Wert interpretiert werden Zusätzlich：Warnmeldung： 在if（mb）{： BedingunghatLänge＆gt; 1 und nur das erste Element wird benutzt 和
> dfm[water.level < wl.threshold,.N, keyby = variable] # count per measuring station
[.data.frame中的Fehler（dfm，water.level＆lt; wl.threshold，.N，keyby = variable）：
unbenutztes Argument（keyby = variable）
和
> setkey(dfm,variable); dfm[water.level < wl.threshold,.N, by = key(dfm)].
setkeyv中的Fehler（x，cols，verbose = verbose）：x不是data.table 和
+ ref.y = wl.threshold)
Fehler in [.data.frame（dfm，variable ==“Yel342（2010）”）：
Objekt'变量'nicht gefunden
帮助！