我目前正在尝试使用 ggplot 创建一个条形图,其中单个条形部分透明。
我有以下代码:
dt1 <- data.table(yr=c(2010,2010,2011,2011),
val=c(1500,3000,2000,1100),
x=c("a","b","a","b"))
ggplot() + geom_bar(data=dt1, aes(x=yr, y=val,fill=x),stat="identity") +
scale_x_continuous(breaks=dt1$yr)
这将创建一个包含 2 列且包含堆叠数据的简单图表。我已尝试使用以下代码来调整 2011 年的值以具有透明度,但是我运气不佳。有什么指点吗?
dt1[,alphayr:=ifelse(yr==2011,.5,1)]
ggplot() + geom_bar(data=dt1, aes(x=yr, y=val,fill=x),stat="identity", alpha=dt1$alphayr) +
scale_x_continuous(breaks=dt1$yr)