巴特沃斯过滤器出了问题

Question

我正在尝试对数据使用20Hz低通滤波器。我在R中使用以下代码：

library(signal)
fs <- 100
fc <- 5
butter <- butter(5, fc/(fs/2), type='low', plane='z')
low <- filtfilt(butter, dados.cinemetria$Cen.Z)

当我绘制图形时，我得到了

在Matlab中，不会发生这种红色变化。我在做错什么吗？