24大数据 饼图复习

饼图复习

奶茶店一周销量占比

某奶茶店一周销量：周一 80 杯、周二 120 杯、周三 90 杯、周四 150 杯、周五 200 杯。

绘制基础饼图，标题为 「奶茶店一周销量占比」

标签显示星期名称，使用自定义粉色系配色

使用基础 pie() 函数绘制

参考代码

# 1. 定义数据
sales <- c(80, 120, 90, 150, 200)
names <- c("周一", "周二", "周三", "周四", "周五")
cols <- c("#FFB6C1", "#FF69B4", "#FF1493", "#C71585", "#DA70D6")

# 2. 绘制饼图
pie(sales, labels = names, main = "奶茶店一周销量占比", col = cols)

学生课余时间分配

学生课余时间分配：运动 20%、阅读 25%、刷题 40%、休息 15%。

标签同时显示名称 + 百分比（例：运动 20%）

标题：「学生课余时间分配」

添加 45° 底纹、密度 10，右上角添加图例

使用基础 pie() 函数

参考代码

# 1. 定义数据
time <- c(20, 25, 40, 15)
names <- c("运动", "阅读", "刷题", "休息")
cols <- c("#c71585", "#DA70D6", "#EE82EE", "#FF1493")

# 2. 生成百分比标签
pie_label <- paste(names, round(100 * time / sum(time)), "%")

# 3. 绘制饼图（底纹+角度）
pie(time, labels = pie_label, main = "学生课余时间分配", col = cols,
    angle = 45, density = 10)

# 4. 添加图例
legend("topright", names, cex = 0.8, fill = cols)

视频软件使用分布

用户视频软件使用占比：B 站 35%、爱奇艺 20%、腾讯视频 25%、优酷 15%、其他 5%。

使用 plotrix 包绘制3D 饼图

标签显示名称 + 百分比，标题：「视频软件使用分布」

扇形分离度 explode = 0.09，正常显示中文

自定义 5 种配色

参考代码

# 安装并加载包
# install.packages("plotrix")
library(plotrix)

# 1. 定义数据
video <- c(35, 20, 25, 15, 5)
names <- c("B站", "爱奇艺", "腾讯视频", "优酷", "其他")
cols <- c("#c71585", "#DA70D6", "#EE82EE", "#FF1493", "#FF88C2")

# 2. 生成百分比标签
pie_label <- paste(names, round(100 * video / sum(video)), "%")

# 3. 绘制3D饼图
pie3D(video, labels = pie_label, main = "视频软件使用分布",
      col = cols, explode = 0.09, family = "SimHei")