小编Dan*_*kin的帖子

简单的问题我一直找不到答案。

我正在寻找一个函数，该函数可以提取用作lm模型对象输入的数据框的名称。

例如，如果我跑

model <- lm(mpg ~ cyl, data = mtcars)

我想要一个像这样的函数

data.name(model)

产生

mtcars

我看过这里和这里，但他们似乎没有给我我正在寻找的东西。例如，除非我使用model.frame()错误，否则它只会为我提供包含模型中使用的术语的数据框，而不是原始输入数据框。

我正在尝试创建数据框的矢量化条件输出。

假设我有数据框：

data <- data.frame(a = c(5, 3, 9, 5),
                   b = c(1, 2, 3, 4),
                   c = c(5, 3, 9, 5),
                   d = c(5, 3, 9, 5))

和门槛：

threshold <- c(a1 = 4, b1 = 2, c1 = 8, d1 = 2)

我想要的是一个新的数据集，表明a的每个值是否大于或等于阈值向量（a1）中的对应值，b的每个值是否大于或等于阈值向量（b1）中的对应值）， 等等。

所以期望的输出是：

desired_data <- data.frame(a = c(1, 0, 1, 1),
                           b = c(0, 1, 1, 1),
                           c = c(0, 0, 1, 0),
                           d = c(1, 1, 1, 1))

我想尽可能简单地做到这一点，最好使用purrr函数。

这是一个错误的尝试：

desired_data <- map(data >= …