基于plot_ly的贸易数据3D散点图绘制问题咨询

Let's break down how to fix your two main problems and boost your chart's usability, step by step:

1. Distinguish Between Export (Exp) and Import (Imp) Types #

The simplest, most intuitive way to separate the two trade types is to use distinct marker symbols alongside your category colors. Since type only has two levels, this won’t clutter your plot and will make differentiation instant.

Update your plot_ly call to map the type column to marker symbols:

library(plotly)
library(RColorBrewer) # For better color palette options
library(scales) # To format value numbers nicely

total_val <- read.csv("Total_Value.csv") # Don't forget the .csv file extension!

plot_ly(data = total_val, 
        x = ~year, 
        y = ~value, 
        z = ~category, 
        color = ~category, 
        symbol = ~type, # Map trade type to marker shape
        symbols = c("circle", "square"), # Assign circle to Exp, square to Imp
        stroke = ~category,
        type = "scatter3d",
        # Add detailed hover text for context
        text = ~paste("Year:", year,
                      "<br>Category:", category,
                      "<br>Trade Value:", comma(value), # Format value with commas
                      "<br>Type:", ifelse(type == "Exp", "Export", "Import")),
        hoverinfo = "text")

2. Fix the Color Palette Warning #

The Set2 palette only supports up to 8 distinct colors, which is why you’re seeing that warning. Here are two reliable fixes:

Option 1: Use a Palette with More Colors #

The Paired palette from RColorBrewer supports 12 colors—perfect for your 10 categories. Replace the default color setting with this:

colors = brewer.pal(10, "Paired") # Generates 10 distinct, paired colors

Option 2: Use a Colorblind-Friendly Viridis Palette #

For a modern, accessible option, use the viridis scale (it works great for discrete categories too):

colors = viridis::viridis(10) # Creates 10 distinct, colorblind-safe colors

Extra Tips to Make Your Chart More Informative #

• Label Axes Clearly: Add descriptive titles and fix the z-axis to show actual category names instead of numeric codes:

  layout(
    title = "3D Trade Value Analysis (2002-Present)",
    scene = list(
      xaxis = list(title = "Year"),
      yaxis = list(title = "Trade Value (USD)"),
      zaxis = list(title = "Product Category",
                   tickvals = 1:10,
                   ticktext = levels(total_val$category)) # Display category names on z-axis
    )
  )
  

• Scale Markers by Value: Make larger trade values stand out by linking marker size to the value column:

  size = ~value,
  sizemode = "diameter",
  sizeref = 2 * max(total_val$value) / (50^2) # Adjust this number to get the right marker size
  

• Tweak the 3D View: Adjust the camera angle to avoid overlapping points and improve readability:

  scene = list(
    camera = list(
      eye = list(x = 1.8, y = 1.8, z = 0.6) # Play with these values to find the best perspective
    )
  )
  

Putting all these together will give you a clean, informative 3D scatter plot that’s free of warnings and easy to interpret!

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