方法1: geom_textを使用する方法
library(ggplot2)
# データの作成
df <- data.frame(category = c("A", "B", "C"),
count = c(10, 15, 8))
# プロット作成
p <- ggplot(df, aes(x = category, y = count)) +
geom_bar(stat = "identity") +
geom_text(aes(label = count), vjust = -0.5) # ラベルを追加
# プロットの表示
print(p)
方法2: geom_labelを使用する方法
library(ggplot2)
# データの作成
df <- data.frame(category = c("A", "B", "C"),
count = c(10, 15, 8))
# プロット作成
p <- ggplot(df, aes(x = category, y = count)) +
geom_bar(stat = "identity") +
geom_label(aes(label = count), vjust = -0.5) # ラベルを追加
# プロットの表示
print(p)
方法3: geom_textとposition_stackを組み合わせる方法
library(ggplot2)
# データの作成
df <- data.frame(category = c("A", "B", "C"),
count = c(10, 15, 8))
# プロット作成
p <- ggplot(df, aes(x = category, y = count)) +
geom_bar(stat = "identity") +
geom_text(aes(label = count, y = cumsum(count)), vjust = -0.5, position = position_stack(vjust = 0.5)) # ラベルを追加
# プロットの表示
print(p)
これらの方法を使用すると、各バーの上にラベルが表示されます。適宜、テキストの位置や表示形式を調整してください。また、使用するデータとプロットの詳細に応じて、他のパラメータを調整することもできます。