没有ggplot这个函数_ggplot绘制面积图形就像水流动一样

34. 面积图绘制

---

清除当前环境中的变量

rm(list=ls())

设置工作目录

setwd("C:/Users/Dell/Desktop/R_Plots/34area/")

使用ggplot2包绘制面积图

# 加载所需的R包
library(ggplot2)

# 构建示例数据
xValue yValue data # 查看示例数据
head(data)
##   xValue      yValue
## 1      1  0.23272473
## 2      2 -0.43662890
## 3      3 -0.07695937
## 4      4 -1.64320298
## 5      5 -2.32700864
## 6      6 -3.02549140

# 使用geom_area()函数绘制基础面积图
ggplot(data, aes(x=xValue, y=yValue)) +
  geom_area()

image.png

# 添加填充颜色，边界线和点，更换主题
ggplot(data, aes(x=xValue, y=yValue)) +
  geom_area(fill="#69b3a2", alpha=0.6) +
  geom_line(color="black", size=1.5) +
  geom_point(size=3, color="red") +
  theme_minimal() +
  ggtitle("Evolution of something")

image.png

# 绘制堆叠面积图
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.6.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

# 构建示例数据
time # x Axis
value # y Axis
group times=7)        # group, one shape per group
data head(data)
##   time    value group
## 1    1 89.38125     A
## 2    1 98.02650     B
## 3    1 89.63381     C
## 4    1 96.27630     D
## 5    1 44.17764     E
## 6    1 97.44857     F

# 绘制基础堆叠面积图
ggplot(data, aes(x=time, y=value, fill=group)) + 
  geom_area()