要按组分组并在R中创建一个列索引，可以使用dplyr包中的group_by()和mutate()函数。下面是一个示例代码：

# 导入dplyr包
library(dplyr)

# 创建一个数据框
df <- data.frame(
  group = c("A", "B", "A", "B", "B"),
  value = c(1, 2, 3, 4, 5)
)

# 按组进行分组，并在每个组中创建一个列索引
df <- df %>%
  group_by(group) %>%
  mutate(index = row_number())

# 输出结果
df

运行上述代码，将会得到如下结果：

# A tibble: 5 x 3
# Groups:   group [2]
  group value index
    
1 A         1     1
2 B         2     1
3 A         3     2
4 B         4     2
5 B         5     3

在这个示例中，我们首先创建了一个包含"group"和"value"列的数据框。然后，使用group_by()函数按照"group"列进行分组。接下来，使用mutate()函数在每个组中创建一个名为"index"的列，其中包含每个组中的行索引。最后，通过打印输出df，我们可以看到分组和列索引的结果。