Rでggplot2：ヒストグラムの作成コマンド

#　パッケージのインストール
install.packages("tidyverse")

# パッケージの読み込み
library("tidyverse")

## 対象データ
# 一変量_X or Y:Yes
#   文字:Yes
#   数字:Yes
# 二変量_X and Y:No

# 例
Chr_data <- data.frame(Chr = sample(LETTERS[c(1, 5, 8)],
                                    size = 100,
                                    replace = TRUE),
                       Group = sample(LETTERS[1:2],
                                      size = 100,
                                      replace = TRUE)) 

Num_data <- data.frame(discrete = sample(c(1, 3, 6),
                                         size = 100,
                                         replace = TRUE))

ggplot(Chr_data, aes(x = Chr)) +
  geom_bar()

## 枠色の設定:colorオプション
# 各項目のみの塗分けはGroupオプションを使用しない
ggplot(Chr_data, aes(x = Chr, color = Group,
                        Group = Group)) +
  geom_bar()

# 好みの色はscale_color_manualコマンドを使用する
ggplot(Chr_data, aes(x = Chr, color = Group,
                        Group = Group)) +
  geom_bar() +
  scale_color_manual(values = c("A" = "red", "B" = "yellow"))

## 塗色の設定:fillオプション
# 各項目のみの塗分けはGroupオプションを使用しない
ggplot(Chr_data, aes(x = Chr, fill = Group,
                        Group = Group)) +
  geom_bar()

# 好みの色はscale_fill_manualコマンドを使用する
ggplot(Chr_data, aes(x = Chr, fill = Group,
                        Group = Group)) +
  geom_bar() +
  scale_fill_manual(values = c("A" = "blue", "B" = "yellow"))

## 表現方法:positionオプション
# "dodge","dodge2","stack"
ggplot(Chr_data, aes(x = Chr, group = Group)) +
  geom_bar(position = "dodge")

ggplot(Chr_data, aes(x = Chr, group = Group)) +
  geom_bar(position = "dodge2")

ggplot(Chr_data, aes(x = Chr, group = Group)) +
  geom_bar(position = "stack")

## Y軸の値で参考線を追加する
# geom_hlineコマンドを追加する
ggplot(Chr_data, aes(x = Chr)) +
  geom_bar() +
  geom_hline(color = "red", linewidth = 2,
             yintercept = 15, show.legend = NA)