如何使用R语言ggplot2将已制作的饼图调整为指定样式？

Got it! Let's walk through how to tweak your existing ggplot2 pie chart to match the style and color scheme of Figure 2. Since I don't have the exact visual of Figure 2, I'll cover the most common polished adjustments that align with typical professional pie chart designs—you can adapt these based on your specific Figure 2 details:

Core Tweaks to Replicate a Polished Pie Chart #

1. Clean Up the Theme (Remove Clutter) #

Default ggplot2 pie charts come with unnecessary axes and grids. To get a clean, professional look like most polished figures:

• Use theme_void() to strip all background, axes, and grid lines.
• Add back any elements you need (like a title or legend) with theme().

2. Customize Color Scheme #

Replace the default colors with a palette that matches Figure 2:

• For discrete categories (most pie charts), use scale_fill_manual() with hex codes or named colors.
• For gradient color schemes, use scale_fill_gradient() or scale_fill_viridis_c() for accessible, smooth gradients.

3. Add In-Sector Labels (If Figure 2 Has Them) #

To place percentage or category labels inside each pie slice:

• First calculate percentages from your values.
• Use geom_text() with position_stack(vjust = 0.5) to center labels perfectly in each slice.

4. Refine Slice Borders #

Adjust the border style to match Figure 2:

• Modify the color and size arguments in geom_bar() to tweak border color and thickness (e.g., thicker white borders for crisp separation).

5. Adjust Slice Order/Starting Angle #

If Figure 2 has a different slice order or starting position:

• Use the start parameter in coord_polar() to shift the starting angle (e.g., start = pi/2 starts the first slice at the top).
• Reverse slice order with scale_x_discrete(limits = rev(your_category_column)).

Full Example Code #

Here’s a complete, adaptable code block built from your original code:

library(ggplot2)

# Replace this with your actual dataset
your_data <- data.frame(
  category = c("Group 1", "Group 2", "Group 3", "Group 4"),
  value = c(28, 35, 17, 20)
)

# Calculate percentages for slice labels
your_data$percent <- paste0(round(your_data$value / sum(your_data$value) * 100), "%")

# Build the customized pie chart
ggplot(your_data, aes(x = "", y = value, fill = category)) +
  # Base bar chart (converted to pie) with refined borders
  geom_bar(stat = "identity", width = 1, color = "white", size = 0.8) +
  # Convert to polar coordinates (pie chart)
  coord_polar("y", start = 0) +
  # Custom color palette (swap these hex codes for Figure 2's colors)
  scale_fill_manual(values = c("#2D5016", "#8CBF3F", "#F2D750", "#F27405")) +
  # Add centered labels inside slices
  geom_text(aes(label = percent), position = position_stack(vjust = 0.5), 
            color = "black", size = 4, fontface = "bold") +
  # Clean up the theme
  theme_void() +
  # Optional: Add title and adjust legend placement
  labs(title = "Custom Pie Chart (Matching Figure 2)") +
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
    legend.position = "bottom",
    legend.title = element_text(face = "bold")
  )

Adapt to Your Exact Figure 2 #

• If Figure 2 uses a gradient instead of discrete colors, swap scale_fill_manual() with scale_fill_gradient(low = "#light_shade", high = "#dark_shade").
• If labels sit outside slices, adjust the vjust value in position_stack() or use position_nudge() to shift them outward.
• For subtle slice gaps (if Figure 2 has them), reduce the width in geom_bar() (e.g., width = 0.9) to create a small ring effect.

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