在R语言中将两个不同指标的散点图合并至同一绘图区域是否可行？

Absolutely, this is completely feasible in R using ggplot2! There are a couple of simple approaches to combine your two scatter plots into the same plotting area. Let’s work through them using your dataset, first fixing a small issue with data types (your metrics are stored as characters right now, which we’ll convert to numeric for proper plotting).

First, Clean Up the Dataset #

Your original ProductMetric and CategoryMetric are stored as character strings—let’s convert them to numeric values so ggplot can plot them correctly:

df1 <- data.frame(
  Product = c("A","B","C"),
  ProductMetric = as.numeric(c("85","90","92")),
  CategoryMetric = as.numeric(c("83")), # This recycles to match the 3 rows
  Category = c("AAA")
)

Method 1: Add a Second geom_point Layer #

You can directly add another scatter plot layer to your existing ggplot code. This is great if you want to explicitly style each metric differently (e.g., different colors, sizes, or shapes):

library(ggplot2)

ggplot(data = df1, aes(x = Category)) +
  # Plot ProductMetric points (blue, labeled with product names)
  geom_point(aes(y = ProductMetric), size = 4, color = "steelblue") +
  geom_text(aes(y = ProductMetric, label = Product), vjust = -1, color = "steelblue") +
  # Plot CategoryMetric point (red, larger diamond shape)
  geom_point(aes(y = CategoryMetric), size = 6, color = "firebrick", shape = 17) +
  geom_text(aes(y = CategoryMetric, label = "Category Avg"), vjust = 1.5, color = "firebrick") +
  labs(title = "Product vs. Category Metrics", y = "Metric Score") +
  theme_minimal()

Since CategoryMetric is the same for all rows, this will plot a single distinct point for the category metric (we use shape=17 for a diamond to make it stand out).

Method 2: Reshape Data to Long Format (Recommended) #

For a more flexible, ggplot-friendly approach, reshape your data into "long" format where each row represents a single metric value. This lets ggplot handle grouping and legends automatically:

library(tidyr)
library(ggplot2)

# Convert to long format
df_long <- df1 %>%
  pivot_longer(
    cols = c(ProductMetric, CategoryMetric),
    names_to = "Metric_Type",
    values_to = "Metric_Value"
  )

# Plot with automatic grouping by metric type
ggplot(df_long, aes(x = Category, y = Metric_Value)) +
  geom_point(aes(color = Metric_Type, shape = Metric_Type), size = 4) +
  # Add product labels only for ProductMetric points
  geom_text(aes(label = ifelse(Metric_Type == "ProductMetric", Product, "")), vjust = -1) +
  labs(
    title = "Product vs. Category Metrics",
    y = "Metric Score",
    color = "Metric Type",
    shape = "Metric Type"
  ) +
  theme_minimal()

This method is easier to maintain if you add more metrics later, and it automatically generates a legend to clarify which points correspond to which metric.

Both approaches will give you a single plot with both sets of scatter points. Pick the one that best fits your styling needs!

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