主页 / computer / 问题 / 1583587
Accepted
Deanw1
Asked: 2020-09-08 01:51:35 +0800 CST

Excel/R (?) 带有小节的饼图

  • 772

我在 Excel 电子表格中有两列长数据。一列有一个年龄值，另一列有一个数字，表示该人最喜欢的颜色（1-12）。例如

ID  AGE  FavCol
1   35     1
2   62     1
3   25     2
4   18     6
5   21     8
6   32     2
7   41     3
8   51     12

我想制作一个代表这两个变量的“爆炸”饼图。我希望楔子由个人所处的年龄范围（18-24、25-34、35-49、50+）决定，我希望每个楔子分成 12 个部分，每个部分的颜色不同以代表颜色。我制作的图表并非基于反映 3 个年龄段的数据以及每个人最喜欢的颜色（绿色、蓝色、黄色）： 示例

我怎样才能做到这一点？数据当前位于 Excel 电子表格和 R data.frame 中，因此使用任一程序的答案都很好。在制作图表后，我很喜欢使用 Illustrator 来分解和编辑颜色并添加标签。如果在这些程序中不可能，那在哪里可能？

microsoft-excel charts

2 个回答

  1. Best Answer

    随附的 R (RStudio) 示例代码显示了一些方法（请参阅内联注释）。您可以在制作图表后使用外部程序来分解和编辑颜色并添加标签。或者根据您的要求使用 R 编辑代码。

    请注意，有一个建议以不同的方式呈现数据。

    library(dplyr)
library(ggplot2)

# ----------------------------------------------------------
# populate data frame
# ----------------------------------------------------------
df <- data.frame(age = c(56,73,64,80,44,80,30,74,30,19,81,43,84,36,31,37,26,63,22,74,49,30,63,41,28),
                  favcol = c(3,8,7,2,4,8,11,4,5,4,8,8,6,5,7,11,4,6,8,3,1,2,3,5,2))

# When dealing with age data group the ages into age groups.
# Name your age groups e.g. ("18-24", "25-34", "35-49", "50+").
# -----------------------------------------------------------------------------
sGroup <- c("18-24", "25-34", "35-49", "50+")
sGroup

# Create a new column ageGroup and use the cut function to break age into groups 
# -----------------------------------------------------------------------------
df$ageClass <- cut(df$age, breaks = c(18,25,35,50, Inf), labels = sGroup, right = TRUE)

# sort by ageClass
# -----------------------------------------------------------------------------
df <- df[order(df$ageClass, df$favcol), ]
head(df)

# quickly count the unique values of one or more variables into a tibble
# optional: mutate prop
# -----------------------------------------------------------------------------
mydata <- df %>% count(ageClass, favcol) %>%
          mutate(prop = n/sum(n)*100)
mydata

# Basic piechart
ggplot(mydata, aes(x="", y=n, fill=ageClass)) +
  geom_bar(stat="identity", width=1, color="white") +
  coord_polar("y", start=0)

# Basic piechart
ggplot(mydata, aes(x="", y=n, fill=ageClass)) +
  geom_bar(stat="identity", width=1, color="white") +
  coord_polar("y", start=0) +
  
  theme_void() # remove background, grid, numeric labels

# -----------------------------------------------------------------------------
# Proposal for a different presentation of the data
# see also: https://cardiomoon.github.io/webr/reference/PieDonut.html
# -------------------------------------------------------
library(moonBook)
library(webr)

PieDonut(mydata,
         aes(pies= ageClass, donuts = favcol, count = n),
         explode=2,
         ratioByGroup=T,
         addDonutLabel = F,
         labelpositionThreshold = 0.4,
         donutLabelSize = 3,
         use.labels = F,
         title="Title",
         maxx = 1.5,
         r0=0,
         showPieName=FALSE)

    结果（示例）：

    1. 饼图示例。

    在此处输入图像描述

    1. 饼状甜甜圈图示例。

    在此处输入图像描述

    • 0

  2. 我用三种不同的馅饼做过一次。我没有费心去分解它们，我只是让一些数据透明，以及图表背景，然后将图表错位，使剩余的可见部分看起来像你的分解样本。

    不确定这是否真的是显示数据的最佳方式，但现在想其他任何事情都为时已晚。

    • 0

相关问题