r - Rの水平マーカーとアスタリスク付きのバープロット（ggplotなど）

Question

Rの標準プロットまたはGGPLOTを使用して、このようなプロットを作成する方法はありますか? 特に、アスタリスクが上に付いた選択されたバーを横切る水平線に注意してください。

Answer 1

でこのようなグラフに注釈を付ける簡単な方法を知りませんggplot2。これは、プロットする必要があるデータを作成するための比較的一般的なアプローチです。同様のアプローチを使用して、必要に応じて関係に注釈を付けることができます。iris例としてデータセットを使用します。

library(ggplot2)
library(plyr) #for summarizing data

#summarize average sepal length by species
dat <- ddply(iris, "Species", summarize, length = mean(Sepal.Length))

#Create the data you'll need to plot for the horizontal lines
horzlines <- data.frame(x    = 1, 
                        xend = seq_along(dat$Species)[-1],
                        y    = seq(from = max(dat$length), by = 0.5, length.out = length(unique(dat$Species))-1),
                        yend = seq(from = max(dat$length), by = 0.5, length.out = length(unique(dat$Species))-1),
                        label = c("foo", "bar")
)

ggplot() + 
  geom_histogram(data = dat, aes(Species, length), stat = "identity") +
  geom_segment(data = horzlines, aes(x = x, xend = xend, y = y, yend = yend)) +
  geom_text(data = horzlines, aes(x = (x + xend)/2, y = y + .25, label = label))

次のようなものを提供します。