R Knit时top12对象未找到报错及鸟类观测柱状图绘制问题

以下是针对问题的具体排查和解决步骤：

• 检查数据读取的路径一致性
  Knit执行时的工作目录常和RStudio交互环境的工作目录不同，避免直接用相对路径读取文件，建议用here包来定位文件，确保Knit时能正确找到artportalen.csv：

  library(tidyverse)
  library(here)
  # 读取并筛选目标列
  bird_data <- read_csv(here("artportalen.csv")) %>%
    select(artnamn, startdatum)
  

• 确保top12对象的创建代码完整且无报错
  必须在使用top12之前完成前12种常见鸟类的筛选，且要处理日期格式（如果startdatum不是日期类型）：

  # 先转换日期格式（根据实际格式调整ymd/dmy等函数）
  bird_data <- bird_data %>%
    mutate(startdatum = lubridate::ymd(startdatum))
  
  # 统计并提取前12种常见鸟类
  top12 <- bird_data %>%
    count(artnamn, sort = TRUE) %>%
    slice_head(n = 12) %>%
    pull(artnamn)
  
  # 过滤出目标物种数据并生成日历周列
  bird_top12 <- bird_data %>%
    filter(artnamn %in% top12) %>%
    mutate(week = lubridate::week(startdatum))
  

• 确认代码执行顺序
  Knit是按脚本从上到下逐行执行的，创建top12的代码必须放在绘图代码之前，不能被注释或被条件语句（如if）跳过导致未执行。

• 检查变量名拼写
  R是大小写敏感的，确保所有调用top12的地方拼写完全一致，没有Top12或top_12这类拼写错误。

• 逐块测试代码
  在RStudio中选中从数据读取到创建top12的所有代码，逐块运行，查看是否有数据读取失败、统计函数报错等问题——这些都会导致top12对象无法生成。

完整绘图代码示例 #

ggplot(bird_top12, aes(x = week, fill = artnamn)) +
  geom_bar(position = "stack") +
  facet_wrap(~artnamn) +
  labs(x = "日历周", y = "观测数量", fill = "鸟类物种") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者Fnu Fniss