使用tidyr

Question

我有以下数据框，我正在尝试创建＆＃39; index2＆＃39;以＆＃39; index1＆＃39;为条件的字段领域：

基本上，这些数据代表了不同个体（ID）企鹅的一系列行为，我试图将行为组（指数2）纳入其中，包括潜水（包括潜水）之间的所有其他行为（已被编入潜水指数） bouts = index 1）。我很感激ID的整理解决方案。

Reproducible: 
df<-data.frame(ID=c(rep('A',9),rep('B',14)),behaviour=c('surface','dive','dive','dive','surface','commute','surface','dive',   'dive','dive','dive','surface','dive','dive','commute','commute','surface','dive','dive','surface','dive','dive','surface'),index1=c(0,1,1,1,0,0,0,1,1,2,2,0,3,3,0,0,0,3,3,0,3,3,0),index2=c(0,1,1,1,1,1,1,1,1,2,2,0,3,3,3,3,3,3,3,3,3,3,0))

Answer 1

我们可以使用#!/usr/bin/env python # -*- coding: utf-8 -*- import pywikibot indexTitle = 'அட்டவணை:தமிழ் நாடகத் தலைமை ஆசிரியர்-2.pdf' indexPages = '67' site1 = pywikibot.Site('ta', 'wikisource') page = pywikibot.Page(site1, indexTitle) indexTitlePage = page.text.replace('|Number of pages=','|Number of pages='+indexPages) page.save(summary='67')

创建一个函数

rle

按ID＆＃39;分组后，frle <- function(x) { rl <- rle(x) i1 <- cummax(rl$values) i2 <- c(i1[-1] != i1[-length(i1)], FALSE) i1[i2] <- 0 as.integer(inverse.rle(within.list(rl, values <- i1))) } ＆＃39; Index1＆＃39;获得预期的列

mutate