0

次のコードを修正するにはどうすればよいですか

alpha <- 1
draws <- 15
dimen <- 10
require(MCMCpack)
x <- rdirichlet(draws, rep(alpha, dimen))
require(ggplot2)
dat <- data.frame(item=factor(rep(1:10,15)), 
             draw=factor(rep(1:15,each=10)), 
             value=as.vector(t(x)))
ggplot(dat,aes(x=item,y=value,ymin=0,ymax=value)) +
       geom_point(colour=I("blue"))       + 
       geom_linerange(colour=I("blue"))   + 
       facet_wrap(~draw,ncol=5)           + 
       scale_y_continuous(lim=c(0,1))     +
       opts(panel.border=theme_rect())

この空のプロットを取得しないようにするには:

空のディリクレ プロット

4

1 に答える 1

2

次のエラー メッセージが表示されるとします。

'opts' is deprecated. Use 'theme' instead. (Deprecated; last used in version 0.9.1)
theme_rect is deprecated. Use 'element_rect' instead. (Deprecated; last used in version 0.9.1)

もしそうなら、これはあなたの質問に記載されるべきです。

現在のバージョンの ggplot2 (0.9.3.1) を使用し、theme()代わりにopts()次のスクリプトを使用します。

ggplot(data = dat, aes(x = item, y = value, ymin = 0, ymax = value)) +
  geom_point(colour = "blue") + 
  geom_linerange(colour = "blue") + 
  facet_wrap(~draw, ncol = 5) + 
  scale_y_continuous(lim = c(0, 1)) +
  theme_bw() +
  theme(panel.border = element_rect(colour = "black"))

...このプロットを提供します：

ここに画像の説明を入力

これは、あなたの望むことですか？

scalesで引数?facet_wrapを確認することもできcoord_cartesianます。制限を設定する代わりに、scale_y_continuous

于 2013-09-07T20:11:11.043 に答える