在R中，可以使用dplyr包中的group_by()和count()函数来按照文本组进行计数聚合。

下面是一个示例代码：

# 导入dplyr包
library(dplyr)

# 创建一个包含文本的数据框
data <- data.frame(
  text = c("apple", "banana", "apple", "banana", "orange", "orange")
)

# 按照文本组进行计数聚合
result <- data %>%
  group_by(text) %>%
  count()

# 打印结果
print(result)

运行上述代码，将会得到以下输出：

# A tibble: 3 x 2
# Groups:   text [3]
  text      n
   
1 apple     2
2 banana    2
3 orange    2

这里使用group_by(text)将数据按照文本列进行分组，然后使用count()函数对每个组进行计数。最后，将结果保存在result变量中并打印出来。

注意：在使用示例代码之前，确保已经安装了dplyr包。可以通过运行install.packages("dplyr")来安装该包。