基于列标题绘图技术求助：含日期列的数据集绘图难题

Alright, let's figure out how to plot your data based on those Min_1 through Min_9 column headers! The main hurdle here is that your dataset is in wide format—most plotting tools work better with long-format data, so we'll start by reshaping it, then jump into plotting with ggplot2 (the most popular R visualization library).

Step 1: Load Required Libraries #

First, make sure you have the tidyverse package installed (it includes tidyr for reshaping and ggplot2 for plotting):

# Install if you haven't already
install.packages("tidyverse")

# Load the library
library(tidyverse)

Step 2: Reshape Wide Data to Long Format #

We'll use pivot_longer() to convert all your Min_* columns into two new columns: one for the minute number, and one for the corresponding measurement value. We'll use a regex pattern to extract the numeric part of the column names (e.g., 1 from Min_1):

# Replace "your_dataset" with the name of your actual data frame
long_data <- your_dataset %>%
  pivot_longer(
    cols = starts_with("Min_"), # Target all columns starting with "Min_"
    names_to = "Minute",
    names_pattern = "Min_(\\d+)", # Extract the minute number from the column name
    values_to = "Measurement"
  ) %>%
  mutate(Minute = as.integer(Minute)) # Convert Minute to numeric for cleaner plotting

Step 3: Plot the Data #

Now you have flexible long-format data that's easy to plot. Here are two common use cases:

Example 1: Line Plot of Measurements Over Minutes (Grouped by Player) #

This lets you compare how each player's measurements change across the 9 minutes:

ggplot(long_data, aes(x = Minute, y = Measurement, color = Player.Name)) +
  geom_line(alpha = 0.7, linewidth = 1) + # Add lines with slight transparency
  geom_point(size = 2) + # Add points for clarity
  labs(
    title = "Measurement Trend by Minute per Player",
    x = "Minute",
    y = "Measurement Value",
    color = "Player Name"
  ) +
  theme_minimal() # Clean, modern theme

Example 2: Boxplot of Measurement Distributions (Faceted by Date) #

This shows the spread of measurements for each minute, split out by date:

# First, ensure Date is in proper date format (if it's not already)
long_data <- long_data %>%
  mutate(Date = as.Date(Date))

ggplot(long_data, aes(x = as.factor(Minute), y = Measurement)) +
  geom_boxplot(fill = "lightblue", alpha = 0.5) + # Boxplots with soft fill
  facet_wrap(~Date) + # Split into separate panels for each date
  labs(
    title = "Measurement Distribution by Minute per Date",
    x = "Minute",
    y = "Measurement Value"
  ) +
  theme_bw() # Classic white-background theme

Bonus Tips #

• If you want to filter for specific players or dates, add a filter() step before plotting (e.g., filter(Player.Name == "Adams Josh")).
• Adjust colors, themes, or plot types (like bar charts) based on your specific needs—ggplot2 is highly customizable!

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