在R语言Plotly中为分组(Id)的最新时间条目设置特定标记符号

Got it, let's break this down step by step to get your desired Plotly scatter plot where each Id's latest Time entry has a unique marker shape.

Step 1: Flag the Latest Time Entries in Your Data #

First, we need to identify which rows are the "latest" for each Id. Since your Time column uses letters (A, B, C, etc.), we’ll assume later letters mean more recent entries. We’ll use dplyr to group by Id, sort the Time values, and mark the last row in each group as the latest entry.

# Load required libraries
library(plotly)
library(dplyr)

# Your sample dataset
df <- data.frame(
  Id = c(1, 2, 2, 2, 3, 4, 4, 4),
  Time = c("A", "B", "C", "D", "E", "F", "G", "H"),
  Value = c(1, 10, 3, 6, 2, 9, 4, 17)
)

# Add a flag for the latest Time entry per Id
df <- df %>%
  group_by(Id) %>%
  arrange(Time)  # Sort Time in ascending order (last row = latest)
  mutate(is_latest = row_number() == n())  # Mark the final row in each group
  ungroup()

Step 2: Plot with Custom Marker Shapes #

Now we can use Plotly to create the scatter plot, with two approaches to highlight the latest entries:

Approach 1: Direct Symbol Mapping #

Map the is_latest flag to the symbol parameter to automatically differentiate markers:

plot_ly(df, 
        x = ~Id, 
        y = ~Value, 
        type = "scatter", 
        mode = "markers",
        symbol = ~is_latest,  # Link marker shape to the latest flag
        symbols = c("circle", "star"),  # Define shapes: regular = circle, latest = star
        marker = list(size = 10),
        text = ~paste("Time:", Time),  # Show Time on hover
        showlegend = TRUE) %>%
  layout(title = "Scatter Plot with Latest Time Entries Highlighted",
         xaxis = list(title = "Id"),
         yaxis = list(title = "Value"),
         legend = list(title = list(text = "Is Latest Entry?")))

Approach 2: Separate Trace for Latest Entries #

For more control over color, size, and shape, plot regular entries and latest entries as separate traces:

# Initialize plot
p <- plot_ly() %>%
  # Add regular entries
  add_trace(data = df %>% filter(!is_latest),
            x = ~Id, 
            y = ~Value, 
            type = "scatter", 
            mode = "markers",
            marker = list(size = 10, symbol = "circle", color = "#1f77b4"),
            name = "Regular Entries") %>%
  # Add latest entries with unique styling
  add_trace(data = df %>% filter(is_latest),
            x = ~Id, 
            y = ~Value, 
            type = "scatter", 
            mode = "markers",
            marker = list(size = 12, symbol = "star", color = "#ff7f0e"),
            name = "Latest Time Entry") %>%
  layout(title = "Scatter Plot with Latest Time Entries Highlighted",
         xaxis = list(title = "Id"),
         yaxis = list(title = "Value"))

# Render the plot
p

Quick Notes #

• If your Time column is a date/time type instead of letters, adjust the arrange() step to sort by the date/time in the correct order (e.g., arrange(desc(Time)) if newer dates are later).
• You can use any Plotly marker symbol—run plotly::schema()$traces$scatter$attributes$marker$symbol$values in your console to see all available options.

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