5

私はかなり幅広い画像を作成しており、ターゲット練習の連続トレーニング セッションをリストしています。

ここに画像の説明を入力

現時点では、これはあまり役に立たないグラフィックであり、各トレーニング セットのデータをより見やすくするために、画像を複数の行に折り返す必要があります。これまでのところ、トレーニング セットが属する行を示す 2 番目の変数を導入することで、これを管理してきました。欠点は、各行の上にストリップがあり、ほとんどまたはまったく役に立たないことです.

ここに画像の説明を入力

これを行う別の方法は、各行を個別の図として生成し、 を使用してそれらをマージすることgridExtraですgrid.arrange。

幅の広い図を複数の行にラップする他の (エレガントな) 方法を探しています。可能であれば、各ファセットの上にストリップがないようにしたいと思います。すべての提案を歓迎します。

これは、これらの画像を生成するために使用したコードです。

library(ggplot2)
library(reshape2)

st <- 23 # number of training sets
sk <- 10 # number of shots per training set
dt <- sample(7:10, size = st * sk, prob = c(0.005, 0.15, 0.195, 0.65), replace = TRUE)
rslt <- as.data.frame(matrix(dt, nrow = 10))
names(rslt) <- paste("trening", seq_len(ncol(rslt)), sep = "")

rsltm <- melt(rslt, variable.name = "trening", value.name = "rezultat")
rsltm$trening <- ordered(rsltm$trening) 

n <- 5 # number of trainings per row
st.vrst <- round(st/n)
vrsta <- paste("vrsta", seq_len(st.vrst), sep = "")

rsltm$vrsta <- rep(vrsta, each = sk * n, length.out = nrow(rsltm))
rm(vrsta)

# wide figure
ggplot(rsltm, aes(x = trening, y = rezultat)) + 
   geom_dotplot(binaxis  = "y", stackdir = "center", show_guide = FALSE) +
   scale_fill_manual(values = rep("red", st)) +
   theme_bw()

# wrapped figure
ggplot(rsltm, aes(x = trening, y = rezultat, fill = trening)) + 
   geom_dotplot(binaxis  = "y", stackdir = "center", show_guide = FALSE) +
   scale_fill_manual(values = rep("red", st)) +
   facet_wrap(~vrsta, nrow = st.vrst, scales = "free_x") +
   theme_bw()
4

1 に答える 1

4

小さなプロットの上のストリップ テキストを削除するにはelemnt_blank()、それらの要素に設定できます。

# wrapped figure
ggplot(rsltm, aes(x = trening, y = rezultat, fill = trening)) + 
  geom_dotplot(binaxis  = "y", stackdir = "center", show_guide = FALSE) +
  scale_fill_manual(values = rep("red", st)) +
  facet_wrap(~vrsta, nrow = st.vrst, scales = "free_x") +
  theme_bw() + theme(strip.text=element_blank(),
                     strip.background=element_blank())

EDIT - 作成されたプロットの更新

プロットを改善する 1 つの方法はtrening、プロット領域内にラベルを配置することです。

この目的のために、新しいデータ フレームdf.namesが作成されます。行数は のレベルに対応しますtrening。

df.names<-data.frame(lab.nam=unique(rsltm$trening), #labels
       x=rep(1:5, times = 5, length.out = 23), #x coordinate (1:5)
       y=rep(11,23), #y coordinate (11)
       vrsta=rep(vrsta, each = 5, length.out = 23)) #vrsta values to ensure position in facets

x 軸ラベルのないプロットを生成するコード。panel.margin=ファセット間のスペースが小さくなるようにします。

p <- ggplot(rsltm, aes(x = trening, y = rezultat)) + 
      geom_dotplot(binaxis  = "y", stackdir = "center", show_guide = FALSE) +
      scale_fill_manual(values = rep("red", st)) +
      facet_wrap(~vrsta, nrow = st.vrst, scales = "free_x") +
      theme_bw() + theme(strip.text=element_blank(),
                     strip.background=element_blank(),
                     panel.margin = unit(-0.6, "lines"),
                     panel.grid.minor=element_blank()) + 
  scale_y_continuous(limits=c(7.5,11.5),breaks=c(8,9,10)) +
  scale_x_discrete(breaks=NULL)

点の上にgeom_text()場所のラベルが付いています。

p +  geom_text(data=df.names,aes(x, y, label=lab.nam),size=4)

ここに画像の説明を入力

于 2013-01-04T14:20:46.217 に答える