Solving Baseball https://solving-baseball-articles.pages.dev/ セイバーメトリクスとR言語による野球分析 quarto-1.9.37 Mon, 04 May 2026 00:00:00 GMT テスト記事：バットスピード分布の可視化 ト https://solving-baseball-articles.pages.dev/posts/test-batspeed/

はじめに

新しいQuartoブログの動作確認用の記事。Noto Sans JPフォント、#073170カラー、showtextによるggplot日本語表示が問題なく動くかを試す。

サンプルデータ生成

コード 
source(here::here("_setup.R"))

library(tidyverse)

set.seed(42)

# 打者100名のバットスピード平均値（mph）をシミュレーション
bat_speed_data <- tibble(
  player_id = 1:100,
  bat_speed = rnorm(100, mean = 71.5, sd = 2.8)
)

summary(bat_speed_data$bat_speed)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  63.12   69.77   71.75   71.59   73.35   77.90

分布の可視化

コード 
ggplot(bat_speed_data, aes(x = bat_speed)) +
  geom_histogram(
    binwidth = 0.5,
    fill = SB_BLUE,
    color = "white",
    alpha = 0.85
  ) +
  geom_vline(
    aes(xintercept = mean(bat_speed)),
    color = "#d4a574",
    linetype = "dashed",
    linewidth = 1
  ) +
  annotate(
    "text",
    x = mean(bat_speed_data$bat_speed) + 0.3,
    y = 12,
    label = paste0("平均: ", round(mean(bat_speed_data$bat_speed), 2), " mph"),
    color = "#d4a574",
    family = "Noto Sans JP",
    hjust = 0
  ) +
  labs(
    title = "バットスピード分布",
    subtitle = "サンプル100名のシミュレーションデータ",
    x = "バットスピード平均値 (mph)",
    y = "選手数",
    caption = "データ：シミュレーション生成"
  ) +
  theme_solving_baseball()

バットスピード平均値の分布（100名のシミュレーション）

数式表示テスト

KaTeXによる数式表示も確認しておく。例として、Spearman-Brown公式：

ここで は半分テストの相関、 は分割係数、 は信頼性係数。

まとめ

  • 日本語フォント：問題なし
  • ggplot軸ラベル日本語：問題なし
  • #073170基調のカラーリング：問題なし
  • KaTeX数式：問題なし

これで本格運用の準備が整った。

]]> test bat-tracking batspeed https://solving-baseball-articles.pages.dev/posts/test-batspeed/ Mon, 04 May 2026 00:00:00 GMT Post With Code Harlow Malloc https://solving-baseball-articles.pages.dev/posts/post-with-code/ This is a post with executable code.

コード 
source(here::here("_setup.R"))

library(ggplot2)

# サンプル：日本語ラベル付きの散布図
sample_data <- data.frame(
  打席数 = sample(100:600, 30),
  打率 = runif(30, 0.200, 0.330)
)

ggplot(sample_data, aes(x = 打席数, y = 打率)) +
  geom_point(color = SB_BLUE, size = 3, alpha = 0.7) +
  geom_smooth(method = "lm", color = "#d4a574", se = TRUE, fill = "#f0e0c8") +
  labs(
    title = "サンプル：打席数と打率の関係",
    subtitle = "Noto Sans JP + #073170 でレンダリング",
    x = "打席数",
    y = "打率"
  ) +
  theme_solving_baseball()

]]> news code analysis https://solving-baseball-articles.pages.dev/posts/post-with-code/ Sun, 03 May 2026 00:00:00 GMT Welcome To My Blog Tristan O'Malley https://solving-baseball-articles.pages.dev/posts/welcome/ This is the first post in a Quarto blog. Welcome!

Since this post doesn’t specify an explicit image, the first image in the post will be used in the listing page of posts.

]]> news https://solving-baseball-articles.pages.dev/posts/welcome/ Thu, 30 Apr 2026 00:00:00 GMT