From 31e26795a91ebabe743853470b7f978d886bea30 Mon Sep 17 00:00:00 2001
From: Masaki Ban <k18079@maslab.aitech.ac.jp>
Date: Mon, 19 Feb 2024 14:52:12 +0900
Subject: [PATCH] =?UTF-8?q?=E7=AE=B1=E3=81=B2=E3=81=92=E5=9B=B3=E4=BD=9C?=
 =?UTF-8?q?=E6=88=90=E3=83=97=E3=83=AD=E3=82=B0=E3=83=A9=E3=83=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/make_boxplot.R | 111 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 111 insertions(+)
 create mode 100644 R/make_boxplot.R

diff --git a/R/make_boxplot.R b/R/make_boxplot.R
new file mode 100644
index 0000000..8613c56
--- /dev/null
+++ b/R/make_boxplot.R
@@ -0,0 +1,111 @@
+library(tidyverse)
+
+#パス成功率
+# CSVファイルの読み込み
+df_epv <- read_csv("~/Desktop/logs/epv2base30half/pass_prob.csv") |>
+  select(pass_success_rate) |>
+  rename(epv = pass_success_rate)
+
+df_base <- read_csv("~/Desktop/logs/base2base30half/pass_prob.csv") |>
+  select(pass_success_rate) |>
+  rename(base = pass_success_rate)
+
+# データフレームの結合
+df <- bind_cols(df_epv, df_base)
+
+long_data <- df %>%
+  gather(key = "Category", value = "Value", epv, base)
+
+p <- long_data %>%
+    ggplot(aes(x = Category, y = Value)) +
+    geom_boxplot() +
+    scale_x_discrete(labels = c("HELIOS Base", "EPVエージェント")) + 
+    scale_y_continuous(limits = c(0.65, 1)) + 
+    stat_summary(fun = mean, geom = "point", shape = 20, size = 3, color = "red") +
+    xlab("エージェント") +
+    ylab("パス成功率")
+
+ggsave("prob.pdf", p, device = cairo_pdf, width = 3, height = 3)
+
+
+# ボール保持率
+# CSVファイルの読み込み
+df_epv <- read_csv("~/Desktop/logs/epv2base30half/EPV.csv") |>
+  select(our_possession) |>
+  rename(epv = our_possession)
+
+df_base <- read_csv("~/Desktop/logs/base2base30half/HELIOS_base.csv") |>
+  select(our_possession) |>
+  rename(base = our_possession)
+
+# データフレームの結合
+df <- bind_cols(df_epv, df_base) 
+
+long_data <- df %>%
+  gather(key = "Category", value = "Value", epv, base)
+
+p <- long_data %>%
+    ggplot(aes(x = Category, y = Value)) +
+    geom_boxplot() +
+    scale_x_discrete(labels = c("HELIOS Base", "EPVエージェント")) + 
+    scale_y_continuous(limits = c(0.3, 0.9)) + 
+    stat_summary(fun = mean, geom = "point", shape = 20, size = 3, color = "red") +
+    xlab("エージェント") +
+    ylab("ボール保持率")
+
+ggsave("possession.pdf", p, device = cairo_pdf, width = 3, height = 3)
+
+# 得点
+# CSVファイルの読み込み
+df_epv <- read_csv("~/Desktop/logs/epv2base30half/EPV.csv") |>
+  select(our_point) |>
+  rename(epv = our_point)
+
+df_base <- read_csv("~/Desktop/logs/base2base30half/HELIOS_base.csv") |>
+  select(our_point) |>
+  rename(base = our_point)
+
+# データフレームの結合
+df <- bind_cols(df_epv, df_base)
+
+long_data <- df %>%
+  gather(key = "Category", value = "Value", epv, base)
+
+p <- long_data %>%
+    ggplot(aes(x = Category, y = Value)) +
+    geom_boxplot() +
+    scale_x_discrete(labels = c("HELIOS Base", "EPVエージェント")) + 
+    scale_y_continuous(limits = c(0, 4.5)) + 
+    stat_summary(fun = mean, geom = "point", shape = 20, size = 3, color = "red") +
+    xlab("エージェント") +
+    ylab("得点")
+
+ggsave("point.pdf", p, device = cairo_pdf, width = 3, height = 3)
+
+
+# 失点
+# CSVファイルの読み込み
+df_epv <- read_csv("~/Desktop/logs/epv2base30half/EPV.csv") |>
+  select(opp_point) |>
+  rename(epv = opp_point)
+
+df_base <- read_csv("~/Desktop/logs/base2base30half/HELIOS_base.csv") |>
+  select(opp_point) |>
+  rename(base = opp_point)
+
+# データフレームの結合
+df <- bind_cols(df_epv, df_base)
+
+long_data <- df %>%
+  gather(key = "Category", value = "Value", epv, base)
+
+p <- long_data %>%
+    ggplot(aes(x = Category, y = Value)) +
+    geom_boxplot() +
+    scale_x_discrete(labels = c("HELIOS Base", "EPVエージェント")) + 
+    scale_y_continuous(limits = c(0, 4.5)) + 
+    stat_summary(fun = mean, geom = "point", shape = 20, size = 3, color = "red") +
+    xlab("エージェント") +
+    ylab("失点")
+
+ggsave("opp_point.pdf", p, device = cairo_pdf, width = 3, height = 3)
-- 
GitLab