r - ggplot2 の因子の順序付けレベル

Question

次のデータを特定のランクでプロットし、このランクを で指定することはできますgeom_plotか? または、前に要素を注文する必要があります。つまり、ID を B、A、C の順序でプロットしたいと考えています。ここで、B は濃い青、C は薄い青です。

tim.seq <- seq(as.POSIXlt("2013-07-01 00:00:00", origin="1960-01-01", tz="GMT"),
               as.POSIXlt("2013-07-8 00:00:00", origin="1960-01-01", tz="GMT"),
               by="1 hour")
id <- factor(sample(LETTERS[1:3], length(tim.seq), T, prob=c(0.4,0.8,0.2)))
rank <- factor(id, levels=levels(id), label=c(2,3,1))
data <- data.frame(time=tim.seq, id=id, rank=rank)

p1 <- ggplot(data, aes(x=time, y=..count.., alpha=id))
p1 <- p1 + geom_bar(fill="darkblue", binwidth=60*60*24, position="identity")
p1 <- p1 + scale_alpha_discrete(range=c(1, 0.2))
p1

Answer 1

id要因を再調整します。

library(ggplot2)
tim.seq<-seq(as.POSIXlt("2013-07-01 00:00:00",origin = "1960-01-01",tz="GMT"),
             as.POSIXlt("2013-07-8 00:00:00",origin = "1960-01-01",tz="GMT"),by="1 hour")
id<-factor(sample(LETTERS[1:3],length(tim.seq),T,prob=c(0.4,0.8,0.2)))

rank<-factor(id,levels=levels(id),label=c(2,3,1))
data<-data.frame(time=tim.seq,id=id,rank=rank)
# Relevel factor id
data$id <- relevel(data$id, "B")

p1 <- ggplot(data, aes(x=time, y=..count.., alpha=id))
p1<-p1+ geom_bar(fill="darkblue",binwidth=60*60*24,position = "identity")
# Changed your direction of alpha range
p1<-p1+ scale_alpha_discrete(range=c(0.2, 1))
p1

alpha色のグラデーションを逆にするには、スケールを からのようなものに変更する必要があります。colourアルファ ブレンディングでは明るい色が暗い色の上に表示されるのではなく、それらがブレンドされてプロットが判読不能になるためです (自分で試してみてください)。scale_alpha_discrete(range=c(1, 0.2))）。ただし、これはお任せします。