加载gcookbook包，探索cabbage_exp维度和结构

关注

原创 2025-04-03 14:54:43 244 阅读 AI 写同款· GEO 优化 ›

[置顶]R语言 ggplot2包 R语言 ggplot2包的学习分析数据要做的第一件事情，就是观察它。对于每个变量，哪些值是最常见的？值域是大是小？是否有异常观测？ ggplot2图形之基本语法： ggplot2的核心理念是将绘图与数据分离，数据相关的绘图与数据无关的绘图分离ggplot2是按图层作图ggplot2保有命令式作图的调整函数，使其更具灵活性ggplot2将常见的统计变换融入到了绘图中。ggplot的绘图有阅读详情

加载gcookbook包，探索cabbage_exp维度和结构
以Date为横坐标，Weight为纵坐标，Cultivar为分组变量，作簇状柱状图
在第二题的基础上，以“Pastel2”为填充色，作柱状图
在第三题的基础上，柱状图上标注Weight具体数字
在第二题的基础上，作堆叠柱状图，Y轴无需统一为100%
在第二题的基础上，纵坐标统一为100%，作堆叠柱状图

# 1
library(gcookbook)
dim(cabbage_exp)  
str(cabbage_exp)  

# 2
library(ggplot2)

ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "簇状柱状图", x = "日期", y = "重量") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 15)  
  )

# 3
ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_brewer(palette = "Pastel2") +
  labs(title = "簇状柱状图", x = "日期", y = "重量") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 15)  
  )

# 4
ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_brewer(palette = "Pastel2") +
  geom_text(aes(label = Weight), position = position_dodge(width = 0.9), vjust = -0.5) +
  labs(title = "柱状图", x = "日期", y = "重量") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 15)  
  )

# 5
ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +
  geom_bar(stat = "identity", position = "stack") +
  labs(title = "堆叠柱状图", x = "日期", y = "重量") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 15) 
  )

# 6
ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +
  geom_bar(stat = "identity", position = "fill") +
  scale_y_continuous(labels = scales::percent) +
  labs(title = "堆叠柱状图", x = "日期", y = "比例") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 15) 
  )