ggplot2：条形图中的动态宽度答案

【问题标题】：ggplot2: dynamic widths in bar plotsggplot2：条形图中的动态宽度
【发布时间】：2018-02-15 13:42:17
【问题描述】：

我认为提出这个问题最简单的方法是：是否有可能重现这个情节？

所以我希望条形的宽度根据过程的持续时间而变化。

这是一个示例性的 data.frame：

structure(list(starttime = structure(c(1518652800, 1518652802, 
1518652803.5, 1518652806.5, 1518652808), tzone = "", class = c("POSIXct", 
"POSIXt")), endtime = structure(c(1518652801.5, 1518652803.5, 
1518652805.5, 1518652807.5, 1518652808.5), tzone = "", class = c("POSIXct", 
"POSIXt")), duration = c(1.5, 1.5, 2, 1, 0.5), order = c(1, 2, 
3, 4, 5), process = c("A", "B", "C", "B", "C"), blue = c(300, 
200, 100, 200, 300), orange = c(100, 50, 300, 100, 100), yellow = c(150, 
100, 150, 100, 200), total = c(550, 350, 550, 400, 600)), .Names = c("starttime", 
"endtime", "duration", "order", "process", "blue", "orange", 
"yellow", "total"), row.names = c(NA, -5L), class = "data.frame")

这是我已经走了多远：plot without varying width

这是对应的代码（在post之后反转时间轴）：

更新：此解决方案有效

df2 <- reshape(data = df, idvar = "order", varying = list(6:8),
               direction = "long", v.names = "some_measure")
df2$measure_type <- factor(ifelse(df2$time == 1, "blue",
                           ifelse(df2$time == 2, "orange", "yellow")),
                           levels = c("yellow", "orange", "blue"))
library(ggplot2)
library(scales)
# this function is used to reverse the time axis
c_trans <- function(a, b, breaks = b$breaks, format = b$format) {
  a <- as.trans(a)
  b <- as.trans(b)

  name <- paste(a$name, b$name, sep = "-")

  trans <- function(x) a$trans(b$trans(x))
  inv <- function(x) b$inverse(a$inverse(x))

  trans_new(name, trans, inv, breaks, format)
}
# this works
ggplot() +
geom_bar(data = df2, aes(x = starttime + .5*duration, y = some_measure, fill = measure_type), stat = "identity", position = "stack", width = df$duration) +
  scale_fill_manual(values = c("blue" = "dodgerblue3", "orange" = "darkorange", "yellow" = "gold2"), guide = FALSE) +
  geom_text(data = subset(df2, measure_type == "blue") ,aes(x = starttime + .5*duration, y = 55, label = paste("PROCESS",process)), color = "white") +
  labs(x = "time", y = "some measure") +
  coord_flip() +
  scale_x_continuous(trans = c_trans("reverse", "time"), labels = function(x) strftime(x, format = "%H:%M%:%OS"), breaks = seq(min(df$starttime),max(df$starttime), by = 1))

【问题讨论】：

标签： r ggplot2

【解决方案1】：

你可以像这样定义不同的宽度

ggplot() +
  geom_bar(data=df2, 
           aes(x=starttime, y=some_measure, fill=measure_type), 
           stat="identity", position="stack", width=c(.5,.8,1,.2,.3)) +
  scale_fill_manual(values=c(
                      "blue"="dodgerblue3", 
                      "orange"="darkorange", 
                      "yellow"="gold2"), 
                    guide = FALSE) +
  geom_text(data=subset(df2, measure_type == "blue"),
            aes(x=starttime, y=55, label=paste("PROCESS",process)), 
            color="white") +
  labs(x="time", y="some measure") +
  coord_flip() +
  scale_x_continuous(trans=c_trans("reverse", "time"), 
                     labels=function(x) strftime(x, format="%H:%M%:%OS"))

只需使用一个函数来计算每个条的宽度。

【讨论】：

我现在觉得自己很蠢。当您在阅读文档之前开始搜索您的问题时，就会发生这种情况。谢谢！

【解决方案2】：

这个怎么样：

df2=ddply(df2,.(starttime),mutate,measureTotal=sum(some_measure)/1000)
ggplot() +
  geom_bar(data = df2, aes(x = starttime, y = some_measure, fill = measure_type), stat = "identity", 
           position = "stack",width=df2$measureTotal)+
  scale_fill_manual(values = c("blue" = "dodgerblue3", "orange" = "darkorange", "yellow" = "gold2"), guide = FALSE) +
  geom_text(data = subset(df2, measure_type == "blue") ,aes(x = starttime, y = 55, label = paste("PROCESS",process)), 
            color = "white") +labs(x = "time", y = "some measure") +
  coord_flip() +
  scale_x_continuous(trans = c_trans("reverse", "time"), labels = function(x) strftime(x, format = "%H:%M%:%OS"))

当然，你可以除以我用过 1000 的任何数字，以获得首选宽度

【讨论】：