R语言每日唯一ID计数及折线图绘制技术求助

1. 修正数据导入代码 #

你提供的导入代码存在语法错误，末尾缺少闭合括号，修正后代码如下：

library(readr) # 先加载readr包才能使用read_csv
POAU_data <- read_csv("~/Paul/POAU_data.csv", 
                      col_types = cols(Attendance_date = col_date(format = "%d/%m/%Y")))

2. 统计每日唯一ID数量 #

使用tidyverse套件里的dplyr工具分组统计，新手上手友好：

# 首次使用先安装tidyverse
install.packages("tidyverse")
library(tidyverse)

# 替换代码里的`ID`为你数据中实际存储用户ID的列名
daily_unique <- POAU_data %>%
  group_by(Attendance_date) %>%
  summarise(unique_id_count = n_distinct(ID))

如果数据里存在日期或ID为空的缺失值，可以提前清理：

daily_unique <- POAU_data %>%
  drop_na(Attendance_date, ID) %>%
  group_by(Attendance_date) %>%
  summarise(unique_id_count = n_distinct(ID))

3. 绘制折线图 #

用ggplot2生成横轴为日期的折线图：

ggplot(daily_unique, aes(x = Attendance_date, y = unique_id_count)) +
  geom_line(color = "steelblue", linewidth = 1) +
  geom_point(size = 2) + # 添加数据点让趋势更直观
  labs(title = "每日唯一ID数量趋势",
       x = "日期",
       y = "唯一ID数量") +
  theme_minimal() # 使用简洁清爽的图表主题

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