根据我的数据，我想在一周中的每一天使用两个条形图 - 一个用于存在行为（逻辑＆gt; 0），一个用于缺少行为（== 0）。
现在我正在使用以下内容，但它正在绘制一个条形图，它会考虑我数据中的零。想尽可能简单地做这个分组栏（或者对当前代码没有太多修改）
Data$weekday <- factor(Data$weekday, levels= c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday","Saturday"))
y <- by(Data$Variable, EMA$weekday, mean, na.rm = TRUE)
barplot(y, main = "title", ylab = "axis label")