記号でggplot2の特定の塗りつぶし色を設定する

こんにちは、以下の値を赤色で塗りつぶし、上の値を濃い青色にするように調整したい。どうすればggplot2でこれを行うことができますか？記号でggplot2の特定の塗りつぶし色を設定する

mydata = structure(list(Mealtime = "Breakfast", Food = "Rashers", `2002` = 9.12, 
          `2003` = 9.5, `2004` = 2.04, `2005` = -20.72, `2006` = 18.37, 
          `2007` = 91.19, `2008` = 94.83, `2009` = 191.96, `2010` = -125.3, 
          `2011` = -18.56, `2012` = 63.85), .Names = c("Mealtime", "Food", "2002", "2003", "2004", "2005", "2006", "2007", "2008","2009", "2010", "2011", "2012"), row.names = 1L, class = "data.frame") 
x=ggplot(mydata) + 
    aes(x=colnames(mydata)[3:13],y=as.numeric(mydata[1,3:13]),fill=sign(as.numeric(mydata[1,3:13]))) + 
    geom_bar(stat='identity') + guides(fill=F) 
print(x)

出典

2012-10-16 Tahnoon Pasha

あなたのデータは、それがggplot2にどうあるべきかではありません構築方法：

require(reshape) 
mydata2 = melt(mydata)

基本barplot：

ggplot(mydata2, aes(x = variable, y = value)) + geom_bar()

enter image description here

トリックが今追加することです値が負かpかを指定する追加の変数ostive：

mydata2[["sign"]] = ifelse(mydata2[["value"]] >= 0, "positive", "negative")

..and（色用scale_fill_*と組み合わせる）ggplot2への呼び出しでそれを使用：

ggplot(mydata2, aes(x = variable, y = value, fill = sign)) + geom_bar() + 
    scale_fill_manual(values = c("positive" = "darkblue", "negative" = "red"))

enter image description here

出典

2012-10-16 08:50:53

ブリリアント。ありがとうございました。 scale_fill_manualは私が探していたものでした。私はデータを溶かして再キャストするというあなたの意見を取ります。私はdput（）と怠け者でした。これは私の奇妙なコード '+ scale_fill_manual（values = c（" 1 "="ダークブルー "、" - 1 "=" red "））で動作します。 –

通常は、美学としてベクトルを使用しません。美学とは、変数（データフレーム内の列）をプロット内の軸にマッピングすることです。 –

記号でggplot2の特定の塗りつぶし色を設定する

答えて

関連する問題