R语言：如何按狐狸性别统计特定行为的出现次数

假设你的数据框名为fox_data，包含两列：sex（取值为"male"/"female"）和behavior（取值为"confident"/"cautious"等），以下是几种高效的实现方式：

方法1：基础R内置函数（最简单） #

直接用table函数生成交叉计数表，一步到位：

# 筛选出目标行为的数据
target_behaviors <- fox_data[fox_data$behavior %in% c("confident", "cautious"), ]
# 生成性别与行为的计数交叉表
behavior_counts <- table(target_behaviors$sex, target_behaviors$behavior)
# 输出结果
behavior_counts

运行后会得到一个二维表格，行是性别，列是行为，单元格数值就是对应次数。

方法2：dplyr包（更易读的tidy风格） #

如果你习惯tidyverse语法，用dplyr的filter+count组合更直观：

library(dplyr)

fox_data %>%
  # 筛选出自信/谨慎行为
  filter(behavior %in% c("confident", "cautious")) %>%
  # 按性别和行为分组计数
  count(sex, behavior)

结果会是一个三列的数据框，清晰展示每组的计数。

方法3：用if/then手动计数（对应你尝试的思路） #

如果一定要用if/then逻辑实现，可通过循环遍历数据行来更新计数器：

# 初始化四个计数器
male_confident <- 0
male_cautious <- 0
female_confident <- 0
female_cautious <- 0

# 遍历每一行数据
for (i in 1:nrow(fox_data)) {
  current_sex <- fox_data$sex[i]
  current_behavior <- fox_data$behavior[i]
  
  if (current_sex == "male" && current_behavior == "confident") {
    male_confident <- male_confident + 1
  } else if (current_sex == "male" && current_behavior == "cautious") {
    male_cautious <- male_cautious + 1
  } else if (current_sex == "female" && current_behavior == "confident") {
    female_confident <- female_confident + 1
  } else if (current_sex == "female" && current_behavior == "cautious") {
    female_cautious <- female_cautious + 1
  }
}

# 打印结果
cat("雄性自信行为：", male_confident, "\n")
cat("雄性谨慎行为：", male_cautious, "\n")
cat("雌性自信行为：", female_confident, "\n")
cat("雌性谨慎行为：", female_cautious, "\n")

注意：这种方法在数据量大时效率较低，R更推荐向量式操作而非循环，所以优先考虑前两种方法。

内容的提问来源于stack exchange，提问作者Andrew McCarthy