R语言绘图X轴格式求助：主刻度为天，次刻度为小时

Hey there! As someone new to R and working with time-series data for your nutrition research, I totally get how tricky axis formatting can feel. Let's walk through exactly how to set up your X-axis with daily major ticks and hourly minor ticks—using both ggplot2 (the most popular plotting package) and base R, so you can pick what works best for you.

First: Make Sure Your Time Data is in the Right Format #

Before plotting, double-check that your timestamp column is a POSIXct or POSIXlt object (R's standard time formats). If it's stored as text, convert it first:

# Replace "timestamp_column" with your actual column name
df$timestamp <- as.POSIXct(df$timestamp, format = "%Y-%m-%d %H:%M:%S")

(Adjust the format argument to match how your dates/times are written in your data.)

Solution 1: Using ggplot2 (Recommended for Clean, Customizable Plots) #

We'll use scale_x_datetime() to control major/minor ticks, along with helper functions from the scales package.

Step 1: Install/Load Required Packages #

install.packages(c("ggplot2", "lubridate", "scales"))
library(ggplot2)
library(lubridate) # For easy date/time manipulation
library(scales)    # For date formatting tools

Step 2: Plot with Custom Axis Ticks #

Here's a complete example using simulated data (you can swap in your actual dataset):

# Simulate your 2-week, 5-minute interval data (replace with your data!)
start_date <- ymd_hms("2024-01-01 00:00:00")
time_seq <- seq(start_date, start_date + days(14), by = "5 mins")
wheel_counts <- rnorm(length(time_seq), mean = 50, sd = 10) # Fake wheel counts

df <- data.frame(
  timestamp = time_seq,
  count = wheel_counts
)

# Create the plot
ggplot(df, aes(x = timestamp, y = count)) +
  geom_line(alpha = 0.7) + # Semi-transparent line to reduce clutter
  scale_x_datetime(
    # Major ticks: 1 per day, labeled with month-day
    breaks = date_breaks("1 day"),
    labels = date_format("%m-%d"),
    # Minor ticks: 1 per hour, no labels (cleaner for dense data)
    minor_breaks = date_breaks("1 hour")
  ) +
  labs(x = "Date", y = "Wheel Count") +
  theme_minimal() +
  # Optional: Rotate X-axis labels to prevent overlap
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Solution 2: Using Base R Plotting #

If you prefer base R instead of ggplot2, here's how to achieve the same axis setup:

# Plot the data first (turn off default X-axis with xaxt = "n")
plot(df$timestamp, df$count, type = "l", xlab = "Date", ylab = "Wheel Count", xaxt = "n")

# Add major ticks (daily, with labels)
axis.POSIXct(
  side = 1,
  at = seq(start_date, start_date + days(14), by = "1 day"),
  labels = format(seq(start_date, start_date + days(14), by = "1 day"), "%m-%d"),
  tck = -0.02 # Longer tick marks for major ticks
)

# Add minor ticks (hourly, no labels)
axis.POSIXct(
  side = 1,
  at = seq(start_date, start_date + days(14), by = "1 hour"),
  labels = FALSE,
  tck = -0.01 # Shorter tick marks for minor ticks
)

# Add a box around the plot (base R removes it by default when customizing axes)
box()

Key Notes #

• If your data spans exactly 14 days, adjust the seq() arguments to match your actual start/end dates.
• You can tweak the date label format (e.g., "%Y-%m-%d" for full dates, "%a %d" for abbreviated day + date) by changing the date_format() or format() string.

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