R GGPLOT错误：长度必须为1或与数据（1）相同：x和y

我试图用ggplot绘制几个图形，但我一直得到错误：美学必须是长度1或与数据（1）相同：x和y 我不知道这意味着什么，我似乎无法解决它

这是我的密码：

alpha <- 0.3
size <- 1
pch <- 19

sel_features  %>% 
  filter(poacher == "TRUE", expid=="20170831c2", ID==108) %>%
  mutate(speed_norm = speed/max(speed, na.rm = TRUE),
         dist_poacher_norm = dist_poacher/max(dist_poacher, na.rm = TRUE)) %>% 

  ggplot() +
  geom_point(mapping = aes(x = t, y = speed_norm),
             col ="blue", pch=pch, alpha=alpha, size=size) +
  geom_smooth(aes(x = t, y = speed_norm, colour="Speed of animal")) +
  geom_point(mapping = aes(x = t, y = tc),
             col ="green", pch=pch, alpha=alpha, size=size) +
  geom_smooth(aes(x = t, y = tc, colour="Tree cover")) +
  geom_point(mapping = aes(x = t, y = dist_poacher_norm),
             col ="red", pch=pch, alpha=alpha, size=size) +
  geom_smooth(aes(x = t, y = dist_r, colour="Distance to poacher")) +
  ylab("Normalised magnitude") +
  xlab("Time") +
  theme(legend.position = "topright", legend.title = element_blank()) +
  ggtitle(paste0("Intrusion ID: 20170831c, Animal ID: 108")) +
  theme(legend.position = "bottom") +
  scale_color_manual(values = c("red", "blue", "green"))

alpha%
ggplot（）+
几何点（映射=aes（x=t，y=速度标准），
col=“蓝色”，pch=pch，alpha=alpha，size=size）+
几何平滑（aes（x=t，y=speed\U norm，COLOR=“动物的速度”））+
几何点（映射=aes（x=t，y=tc），
col=“绿色”，pch=pch，alpha=alpha，size=size）+
geom_光滑（aes（x=t，y=tc，color=“树木覆盖”））+
几何点（映射=aes（x=t，y=dist\u poacher\u norm），
col=“红色”，pch=pch，alpha=alpha，size=size）+
几何平滑（aes（x=t，y=dist\u r，color=“到偷猎者的距离”））+
ylab（“标准化震级”）+
xlab（“时间”）+
主题（legend.position=“topright”，legend.title=element\u blank（））+
ggtitle（paste0（“入侵ID:20170831c，动物ID:108”））+
主题（legend.position=“底部”）+
比例\颜色\手册（值=c（“红色”、“蓝色”、“绿色”））

---

非常感谢你的帮助

你能提供一个数据的例子吗？