如何用R绘制含正负值的横向条形图（基于指定data.table）

Absolutely! You can build a clear, visually distinct horizontal bar chart using ggplot2 that highlights positive and negative values in your IND1 column. Here's a complete, tailored solution:

Step 1: Load Required Packages #

First, make sure you have the necessary libraries loaded (you already have a data.table, so we'll work with that structure directly):

library(ggplot2)
library(data.table)

Step 2: Prepare Your Data #

We'll add a column to flag whether each IND1 value is positive or negative, and optionally filter out rows with NA values (since they can't be plotted as bars):

# Filter out rows where IND1 is NA (remove this line if you want to keep those departments on the Y-axis)
data_clean <- data[!is.na(IND1)]

# Add a column to categorize value direction
data_clean[, direction := ifelse(IND1 > 0, "Positive", "Negative")]

Step 3: Build the Bar Chart #

This code creates a horizontal bar chart with color-coded positive/negative bars, clean formatting, and clear labels:

ggplot(data_clean, aes(x = IND1, y = Dep, fill = direction)) +
  # Create horizontal bars (adjust width to tweak bar thickness)
  geom_col(width = 0.7) +
  # Customize colors for positive/negative (swap these if you prefer different hues)
  scale_fill_manual(values = c("Positive" = "#27ae60", "Negative" = "#e74c3c")) +
  # Add descriptive labels
  labs(
    x = "IND1 Value",
    y = "Department",
    title = "IND1 Values by Department",
    fill = "Value Type"
  ) +
  # Use a clean, minimal theme
  theme_minimal() +
  # Tweak text formatting for better readability
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
    axis.title = element_text(size = 12),
    legend.position = "top"
  )

Key Notes: #

• Handling NA Values: If you want to keep departments with NA values on the Y-axis (even without a bar), remove the data_clean filter step and add na.rm = TRUE inside geom_col() (e.g., geom_col(width = 0.7, na.rm = TRUE)).
• Color Customization: Replace the hex codes in scale_fill_manual() with any colors you prefer (use plain names like "green" or "red" if you don't want hex values).
• Y-axis Order: By default, ggplot sorts the Y-axis alphabetically. If you want to preserve the original order of your Dep column, add scale_y_discrete(limits = data_clean$Dep) to the plot code.

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