R语言ggplot报错：已转POSIXct仍提示time_trans仅支持该类型

问题描述 #

已将数据集的ExpDayHour列转换为POSIXct格式，但绘制ggplot时仍报错：time_trans works with objects of class POSIXct only。期望生成的图形要求：

• X轴：日期时间（ExpDayHour）
• Y轴：访视次数（n）
• 点颜色由RefillRate决定
• 按FlowerNo和Offset分面

原脚本如下：

library(ggplot2)
library(dplyr)
library(ggthemes)
library(scales)
preds = read.csv("preds_2.csv")

# Convert ExpDayHour to POSIXct format with timezone set to "GMT"
preds$ExpDayHour <- as.POSIXct(preds$ExpDayHour, format = "%Y-%m-%d %H:%M:%S", tz = "GMT")

# Create a scatter plot with facets and color gradient
ggplot(data = preds, aes(x = ExpDayHour, y = n, color = RefillRate)) +
  geom_point(size = 3) +
  scale_x_datetime(date_labels = "%d %H:%M", breaks = date_breaks("2 hours"), timezone = "GMT")     +
  facet_grid(. ~ FlowerNo + Offset) +
  scale_color_gradient(low = "blue", high = "red") +
  labs(x = "Date and Time", y = "Number of visits", color = "RefillRate") +
  ggtitle("Relationship between the number of flower visits and the time, refill rate and flower     number") +
  theme_economist_white() +
  theme(plot.title = element_text(hjust = 0.5, size = 18),
        axis.text = element_text(size = 14),
        axis.title = element_text(size = 16),
        legend.position = "bottom",
        legend.text = element_text(size = 14),
        legend.title = element_text(size = 16)) +
  annotate("text", x = 0, y = 0, label = "Source: My Data")

数据样本显示数据集为grouped_df类型（分组数据框）。

报错原因 #

1. 分组数据框的影响：数据集处于分组状态时，ggplot可能无法正确识别ExpDayHour列的POSIXct类型，分组属性会保留旧的列类型信息。
2. annotate的x参数错误：x = 0是数值类型，与X轴的POSIXct时间类型不匹配，触发时间转换错误。

修正方案 #

步骤1：取消数据集分组 #

在转换时间列后，使用ungroup()取消分组状态，确保ggplot能正确识别列类型。

步骤2：修正annotate的x参数 #

将x = 0替换为数据中的有效时间值，比如数据集的最早时间min(preds$ExpDayHour)，并调整位置到合适区域。

步骤3：验证时间列转换结果 #

检查ExpDayHour列是否有NA值，若有则需确认原字符串格式与as.POSIXct的format参数是否匹配。

修正后的代码 #

library(ggplot2)
library(dplyr)
library(ggthemes)
library(scales)

# 读取数据
preds = read.csv("preds_2.csv")

# 转换为POSIXct并取消分组
preds <- preds %>%
  mutate(ExpDayHour = as.POSIXct(ExpDayHour, format = "%Y-%m-%d %H:%M:%S", tz = "GMT")) %>%
  ungroup() # 关键：取消分组状态

# 绘制图形
ggplot(data = preds, aes(x = ExpDayHour, y = n, color = RefillRate)) +
  geom_point(size = 3) +
  scale_x_datetime(date_labels = "%d %H:%M", breaks = date_breaks("2 hours"), timezone = "GMT") +
  facet_grid(. ~ FlowerNo + Offset) +
  scale_color_gradient(low = "blue", high = "red") +
  labs(x = "日期时间", y = "访视次数", color = "补充率") +
  ggtitle("访视次数与时间、补充率及花朵编号的关系") +
  theme_economist_white() +
  theme(plot.title = element_text(hjust = 0.5, size = 18),
        axis.text = element_text(size = 14),
        axis.title = element_text(size = 16),
        legend.position = "bottom",
        legend.text = element_text(size = 14),
        legend.title = element_text(size = 16)) +
  # 修正annotate的x参数，使用数据中的时间值
  annotate("text", x = min(preds$ExpDayHour), y = max(preds$n)*0.1, label = "数据来源：自有数据")

额外验证建议 #

运行以下代码确认ExpDayHour列的类型和完整性：

# 检查列类型
class(preds$ExpDayHour)
# 检查是否有NA值
sum(is.na(preds$ExpDayHour))

若class返回c("POSIXct", "POSIXt")且NA值为0，则转换成功。

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