将新向量添加到嵌套列表

Question

我正在学习使用R中的列表，而且已经非常接近我想要做的事情。我抬起手向正确的方向稍加推动力：

my_data <- 
  data.frame(group = c(sample(c('A', 'B', 'C'), 20, replace = TRUE)), 
                      x = runif(100, 0, 10)) %>% 
  group_by(group) %>% 
  nest() %>% 
  mutate(number = sample(3:7, 3))

我想做什么：

很简单。我想向嵌套列表（“数据”）中添加一个新向量，其中包含“数字”向量中的相应值。因此，例如，列表中第一个元素的前5行应如下所示：

head(my_data$data[[1]],5) %>% mutate(y=4)

但是我不知道该怎么做！ （显然，我对上面的示例进行了硬编码。）

我已经尝试过：

许多不列出，不嵌套，地图，采摘的排列。我没有记录我尝试过的所有内容。

Answer 1

如果您有两个要迭代的向量，请使用test("DELETE /questions/:qID", done => { jest.setTimeout(10000); server // /questions/5c7899a24552624a5b9c7f35?_method=DELETE .delete(`/questions/${aQuestionId}`) .expect(200, done); <= call done });

static void usrHandler(int sig, siginfo_t * si, void * ignore) {
    printf("Interrupt Worked");
}

int main(int argc, char * argv[]) {
    struct sigaction sa;
    sa.sa_flags = SA_SIGINFO;
    sigemptyset( & sa.sa_mask);
    sa.sa_sigaction = usrHandler;
    sigaction(SIGINT, & sa, NULL);

    int currentFile = 1;
    int fd;
    int forkChild;

    forkChild = fork();
    if (forkChild == 0) {
        sleep(100);
    } else if (forkChild > 0) {
        sa.sa_sigaction = SIG_IGN;
        sigaction(SIGUSR1, & sa, NULL);
    }
}