0

edcf 線を描画したい data.frame があります。およそ 96 の pos ecdf ラインと 96 の neg ecdf ラインがあります。正の線を黒、負の線を赤にしたいと思います。また、乱雑に見えないように、ある程度の透明度または平均線を追加したいと思います. そしておそらく、凡例には pos と neg だけを含めます。

コード：

simplify <- function(x){
  temp = x[complete.cases(x),]
  df.m = reshape2::melt(temp, id.vars = NULL) 
  df.m$XIST = sapply(strsplit(as.character(df.m$variable), "_", fixed=TRUE), function(x) (x[1]))
  return(df.m)
}
temp = simplify(X_chr)
ggplot(temp, aes(value, colour=variable)) + stat_ecdf() + xlim(1,1000) + theme_bw()

Temp次のようになります。

> head(temp, 10)
   variable    value XIST
1    pos_A1  0.00000  pos
2    pos_A1  0.00000  pos
3    pos_A1  0.00000  pos
4    pos_A1  0.00000  pos
5    pos_A1  0.00000  pos
6    pos_A1 15.66911  pos
7    pos_A1  0.00000  pos
8    pos_A1  0.00000  pos
9    pos_A1  0.00000  pos
10   pos_A1  0.00000  pos

> tail(temp, 10)
       variable     value XIST
210999   neg_H9  0.000000  neg
211000   neg_H9  0.000000  neg
211001   neg_H9  0.000000  neg
211002   neg_H9  0.000000  neg
211003   neg_H9  0.000000  neg
211004   neg_H9  4.466276  neg
211005   neg_H9  0.000000  neg
211006   neg_H9  0.000000  neg
211007   neg_H9  0.000000  neg
211008   neg_H9 30.033764  neg

プロデュース:

ここに画像の説明を入力

4

1 に答える 1

1

次回は再現可能な例を投稿してください。

を使用してカスタムの凡例を指定するだけですscale_color_manual。

df <- reshape2::melt(replicate(10,rnorm(100)^2))
df$Var2 <- paste0(c(rep("pos", 500), 
                    rep("neg", 500)),
                  df$Var2)
ggplot(df, aes(x = value, colour=Var2)) + stat_ecdf() + 
  xlim(0,3) + theme_bw() + 
  scale_color_manual(label = stringr::str_sub(unique(df$Var2),1,3),
                     values = c(rep('red',5), rep("blue",5)))

ここに画像の説明を入力

完全な変数名が必要な場合は、関連するコードを

  scale_color_manual(label = unique(df$Var2),
                     values = c(rep('red',5), rep("blue",5)))

最後の質問については、次のように手動の凡例を指定できます。タイトルに多くの名前を付けて指定した問題が発生するため、df のサイズを大きくしました。

df <- reshape2::melt(replicate(100,rnorm(100)^2))
df$Var2 <- paste0(c(rep("pos", 500), 
                    rep("neg", 500)),
                  df$Var2)
ggplot(df, aes(x = value, group=Var2, 
               color = c(rep('red',5e3), rep("blue",5e3)))) +
         stat_ecdf() + 
  xlim(0,3) + theme_bw() + 
  scale_colour_manual("+ or -",
                      values = c("red", "blue"), 
                      labels = c("pos", "neg"))

ここに画像の説明を入力

于 2016-07-26T23:25:05.010 に答える