代码块运行，但不会编织：错误“找不到对象”

Question

我知道这是新手的常见问题，我环顾四周，但似乎找不到解决方法。

这是可以很好运行的代码，但是不会编织：

lifters100 <- x1998short %>%
  sample_n(100)

这是我收到的错误消息：

我还知道编织是从新环境中提取的，所以我尝试使用以下方法在自身内部创建对象：

x1998short <- x1998short

但是那个天才计划也不起作用。

谢谢。