绘制系统容量的可视化（管道流量？）

Question

我需要可靠，重复地可视化一个类似于管道的系统，该系统每单位时间都可以传递一定数量的流体。真正的系统是一个治疗部门，鉴于工作治疗师的能力，每年可以为某些人提供服务。需要可视化，因为人们对数字的反应不佳，我们被困在试图将需求与容量相匹配的情况下。

假设有3种治疗途径（评估，MBT和SCM-实际上还有更多，但3是一个很好的例子）。每个都有一个等候列表，在“管道”开口之前，可以用适当的尺寸圆表示。工作治疗师代表管道的能力 - 每年24人，每年45人。目前正在治疗的患者代表管道的填充水平 - 它可以饱和或低于饱和度（x％）。

问题：对于这种问题来说，有什么良好的可视化良好，哪些r套件可以帮助实现这一目标？

非常感谢您对忙碌的临床医生的建议。 （虽然我对R有很多经验）

Answer 1

如果您准备操纵数据以使其成为正确的绘制形状，则可以在ggplot中完成所有这些。以下时间花了我大约15分钟。

假设您的数据就是这样：

data <- data.frame(service    = c('Assessment', 'MBT', 'SCM'),
                   therapists = c(32, 45, 20),
                   current_patients = c(130, 212, 35),
                   maximum_patients = c(143, 212, 50),
                   queue = c(35, 52, 7))

然后您可以将其重新排列为这样的绘图格式：

library(tidyverse)
library(ggforce)

plot_df <- data %>%
  mutate(left_edge = 10 + c(0, cumsum(head(therapists, -1) + 10)),
         right_edge = cumsum(therapists + 10),
         upper_edge = 80 * current_patients / maximum_patients,
         mid = (left_edge + right_edge) / 2)

并绘制要使用GGPLOT的绘制类似的内容：

ggplot(plot_df) +
  geom_rect(aes(xmin = left_edge, ymin = 0, 
                xmax = right_edge, ymax = upper_edge), fill = 'lightblue') +
  geom_segment(aes(x = left_edge, y = 0, xend = left_edge, yend = 80),
               size = 1, color = 'gray20') +
  geom_segment(aes(x = right_edge, y = 0, xend = right_edge, yend = 80),
               size = 1, color = 'gray20') +
  geom_segment(aes(x = left_edge, y = 0, xend = right_edge, yend = 0),
               size = 1, color = 'gray20') +
  geom_circle(aes(x0 = mid, y0 = 100, r = 2 * sqrt(queue)), fill = '#3070B1',
              color = NA) +
  geom_text(aes(x = mid, y = 100, label = queue), 
            colour = 'white', size = 6, fontface = 2) +
  geom_text(aes(x = mid, y = 40, label = current_patients), 
            size = 6, fontface = 2) +
  geom_text(data = data.frame(x = -30, y = c(10, 40, 100), 
            label = c('Therapists', 'Patients\nIn treatment', 
                      'Patients\nWaiting')),
            aes(x, y, label = label), hjust = 0, size = 6, fontface = 1,
            color = '#202040') +
  geom_segment(aes(x = mid, y = 10, xend = left_edge, yend = 10),
               arrow = arrow(length = unit(0.1, 'inches'))) +
  geom_segment(aes(x = mid, y = 10, xend = right_edge, yend = 10),
               arrow = arrow(length = unit(0.1, 'inches'))) +
  geom_label(aes(x = mid, y = 10, label = therapists), fontface = 2) +
  scale_x_continuous(breaks = plot_df$mid, labels = plot_df$service,
                     limits = c(-30, 140)) +
  coord_equal() +
  theme_void() +
  theme(axis.text.x = element_text(size = 18, color = '#202040'),
        plot.background = element_rect(fill = '#f3f9ff'),
        plot.margin = margin(50, 20, 50, 20))