运行R代码块报错：is.data.frame(.data)参数缺失无默认值

报错原因分析 #

你遇到的Error in is.data.frame(.data) : argument ".data" is missing, with no default错误，大概率是以下几个原因之一：

• 数据对象问题：trip_data_v2不存在，或者不是标准的数据框格式。
• 包未加载/函数冲突：dplyr（管道、mutate/group_by等函数）或lubridate（wday函数）未加载，或者其他包有同名函数干扰。
• 管道符号错误：你代码里的%>%是HTML转义后的符号，实际R里需要用原生的%>%，符号错误会导致管道失效，函数无法识别输入数据。

分步排查与修复 #

1. 验证数据对象
   先在控制台运行以下代码，确认数据状态：

   # 检查数据是否存在
   exists("trip_data_v2")
   # 检查数据类型
   class(trip_data_v2)
   

   • 如果返回FALSE，说明你还没加载trip_data_v2，先导入你的数据文件（比如用read_csv()或read_excel()）。
   • 如果数据类型不是data.frame或tibble，转换成数据框：

     trip_data_v2 <- as.data.frame(trip_data_v2)
     

2. 加载必要的包
   在代码开头加上包加载语句，避免函数冲突：

   library(dplyr)
   library(lubridate)
   

   也可以用命名空间明确指定函数，彻底避免冲突：

   trip_data_v2 %>% 
     dplyr::mutate(weekday = lubridate::wday(started_at, label = TRUE)) %>% 
     dplyr::group_by(member_casual, weekday) %>% 
     dplyr::summarise(number_of_rides = n())
   

3. 修正管道符号
   把代码里的%>%全部替换成R原生的%>%，确保管道能正常传递数据。

可视化实现（按骑手类型展示骑行次数） #

数据处理完成后，用ggplot2做可视化，比如画分组柱状图：

library(ggplot2)

# 先处理数据
ride_summary <- trip_data_v2 %>% 
  dplyr::mutate(weekday = lubridate::wday(started_at, label = TRUE)) %>% 
  dplyr::group_by(member_casual, weekday) %>% 
  dplyr::summarise(number_of_rides = n(), .groups = "drop") # 加上.groups避免分组警告

# 绘制柱状图
ggplot(ride_summary, aes(x = weekday, y = number_of_rides, fill = member_casual)) +
  geom_col(position = "dodge") +
  labs(title = "不同骑手类型的日均骑行次数",
       x = "星期",
       y = "骑行次数",
       fill = "骑手类型") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者Kass Getz