通过R中的迭代对向量范围内的事件进行计数

# 创建一个包含事件的向量
events <- c("event1", "event2", "event1", "event3", "event2", "event1")

# 创建一个空的计数器向量
count <- rep(0, length(unique(events)))

# 迭代计数
for (i in 1:length(events)) {
  event <- events[i]
  index <- match(event, unique(events))
  count[index] <- count[index] + 1
}

# 打印计数结果
unique_events <- unique(events)
for (i in 1:length(unique_events)) {
  event <- unique_events[i]
  cat(event, "出现", count[i], "次\n")
}