0

是否可以按给定等级绘制以下数据并在 中指定该等级geom_plot？或者我应该先订购这个因素。我的意思是，我想按照 B、A、C 的顺序绘制 ID，其中 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
4

1 回答 1

0

重新调整你的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，因为 alpha 混合不会在较暗的颜色之上显示较浅的颜色，而是将它们混合，使绘图不可读（自己尝试使用scale_alpha_discrete(range=c(1, 0.2))）。不过，我会留给你。

于 2013-09-13T09:30:35.530 回答