R 去除线图中的异常值

我想画一个有明显异常值的线图。以下数据集是我正在使用的数据集的子集：

          Date PCROI
717 2014-06-28    38
718 2014-06-29    41
719 2014-06-30    36
720 2014-07-01   734
721 2014-07-02    60
722 2014-07-03    78
723 2014-07-04    90
724 2014-07-05    68
725 2014-07-06    55
726 2014-07-07    57

如果我使用

ggplot2

绘制此图，则该图没有那么糟糕

ggplot(data = example, aes(x = Date, y = PCROI)) + geom_line()

不幸的是，我使用的时间序列比PCROI的中位数51长得多。

---

如何在不排除数据集中的值的情况下调整图表？

如果您对异常值有一些标准（例如，如果PRCOI大于100），并且如果您对插值删除的点没有问题，则可以使用

subset

命令：

example <- read.table(header = TRUE, text = "          Date PCROI
717 2014-06-28    38
718 2014-06-29    41
719 2014-06-30    36
720 2014-07-01   734
721 2014-07-02    60
722 2014-07-03    78
723 2014-07-04    90
724 2014-07-05    68
725 2014-07-06    55
726 2014-07-07    57")
example$Date <- as.Date(example$Date)

ggplot(subset(example, PCROI <= 100), aes(Date, PCROI)) + geom_line()

---

示例您是否尝试过将y轴放在对数刻度上？