在R语言中调整IncomeRange顺序并实现全区间散点图的方法咨询

Let’s tackle your two plot adjustments and resolve the category ordering problem step by step:

1. Move the "$100,000+" Category to the Far Right #

The core issue here is that ggplot2 sorts character columns lexicographically (dictionary order), which puts "$100,000+" near the top instead of the end. To fix this, we’ll convert IncomeRange to a factor with manually specified levels—this lets you control the exact order of your x-axis categories, including placing "$100,000+" last.

First, define your desired category order (include all the special categories you mentioned too):

# List all IncomeRange categories in the order you want them displayed
income_levels <- c(
  "$1~24,999", 
  "$25,000~49,999", 
  "$50,000~74,999", 
  "$75,000~99,999", 
  "Not employed", 
  "Not displayed", 
  "$100,000+"  # Place this last to push it to the right
)

# Convert IncomeRange to an ordered factor
df_copy$IncomeRange <- factor(df_copy$IncomeRange, levels = income_levels)

2. Ensure Scatter Points Appear for All Income Ranges #

If only the "$1~24,999" range shows points, there are a few likely fixes:

• Missing/NA values: Some ranges might have AmountDelinquent values that are NA. Add na.rm = TRUE to geom_point() to ignore these and still keep the category on the x-axis.
• Low alpha makes points invisible: Your original alpha = 0.1 might make sparse points too faint to see. Bump up the alpha slightly and adjust point size for better visibility.
• Unrecognized categories: By converting to a factor with explicit levels, we ensure all your known categories appear on the x-axis, even if they have no data points (use geom_blank() to force this if needed).

Here’s the updated plotting code:

library(ggplot2)

ggplot(df_copy, aes(x = IncomeRange, y = AmountDelinquent)) +
  geom_blank() +  # Guarantees all factor levels show up on the x-axis
  geom_point(alpha = 0.3, size = 1.2, na.rm = TRUE) +  # More visible points, ignore NAs
  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # Optional: Rotate labels to avoid overlap

Quick Troubleshooting Check #

If you still don’t see points for certain ranges, verify how many non-NA observations exist per category with this command:

table(df_copy$IncomeRange, !is.na(df_copy$AmountDelinquent))

This will show you if a category truly has no valid AmountDelinquent values (in which case geom_blank() will still keep it on the x-axis).

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