From 70e1577b61054e022604237ba4e55fef1d42a095 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E7=94=9F=E4=BF=A1=E5=88=86=E6=9E=90?=
 <bioinfo@noreply.baihub.cn>
Date: Sat, 14 Dec 2024 01:22:21 +0800
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=2001.geom=5Fline.R?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: 生信分析 <bioinfo@noreply.baihub.cn>
---
 01.geom_line.R | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/01.geom_line.R b/01.geom_line.R
index b9962f2..595aa14 100644
--- a/01.geom_line.R
+++ b/01.geom_line.R
@@ -1,6 +1,33 @@
 ### 模板说明：
 ### ggplot2画多变量折线图，共用x轴
 
+###快速使用(最终推荐)
+library(ggplot2)
+
+dat <- reshape::melt(data.frame(
+  water_press = c(2, 4, 6),
+  抽气容积 = c(1.5, 4, 6),
+  充气容积 = c(1, 3, 5)
+), "water_press")
+
+pdf("Dr.Liang.pdf", width = 7, height = 5, family = "GB1")
+ggplot(dat, aes(x = water_press, y = value, col = variable)) +
+  theme_classic() +
+  geom_point() +
+  geom_line() +
+  labs(
+    x = "水检压计",
+    y = "容积变化",
+    title = "Dr.Liang 的病生实验",
+    color = "变量"
+  ) +
+  scale_color_manual(
+    #自定义每个变量的颜色
+    values = c("#000080", "#df6100")
+  )
+dev.off()
+###快速使用
+
 
 # 一、最原始办法——手动画每条变量折线
 library(ggplot2)
@@ -31,4 +58,29 @@ dev.off()
 
 
 # 二、将dataFrame变为长数据形式后再绘制
+library(ggplot2)
 
+dat <- reshape::melt(data.frame(
+  water_press = c(2, 4, 6),
+  out_volumn = c(1.5, 4, 6),
+  in_volumn = c(1, 3, 5)
+), "water_press")
+
+pdf("Dr.Liang.pdf", width = 7, height = 5, family = "GB1")
+ggplot(dat, aes(x = water_press, y = value, col = variable)) +
+  theme_classic() +
+  geom_point() +
+  geom_line() +
+  labs(
+    x = "水检压计",
+    y = "容积变化",
+    title = "Dr.Liang 的病生实验",
+    color = "变量"
+  ) +
+  scale_color_manual(
+    #自定义每个变量的颜色
+    values = c("out_volumn" = "#000080", "in_volumn" = "#df6100"),
+    # 自定义图例标签, 或者在dataframe里就提前定义好
+    labels = c("out_volumn" = "抽气容积", "in_volumn" = "充气容积")
+  )
+dev.off()