R形式的一维数字线箱形图样式图表

发布于04月17日

我正在try 生成一个Simple渲染，以显示x范围的值与阈值(红色、黄色、绿色)相比.作为输入，我有一系列数字，代表应该位于栏最左边点的数字和应该位于栏最右边点的数字:

x1 <- c(44, 73)
boxplot(x1, ylim=c(0,100), horizontal=TRUE, boxwex=0.2)

理想情况下，我能够生成看起来像这样的东西，背景阈值为红色([0到48])，背景阈值为黄色([48到69])，红色(69到ggtitle]).理想情况下还有一个ggtitle风格的标题.

我已经try 过plotly、ggplot2和stripchart的几个选项，但都未能生成接近我目标的任何选项.有人有什么 idea 吗？

推荐答案

您可以使用layout中的shapes参数来生成这样的plotly图:

library(plotly)
library(tibble)
library(purrr)

lims <- local({
  lims <- c(0L, 48L, 69L, 100L)
  tibble(left = head(lims, -1L),
         right = tail(lims, -1L),
         color = c("firebrick", "darkorange", "forestgreen"))
})

shps <- pmap(lims, function(left, right, color) {
  list(
    type = "rect",
    fillcolor = color,
    line = list(width = 0),
    x0 = left,
    x1 = right,
    y0 = 0,
    y1 = 1,
    layer = "below"
  )
})

shps <- c(shps,
          list(
            list(
              type = "rect",
              fillcolor = "#000",
              line = list(color = "#fff", width = 2),
              x0 = 44,
              x1  = 73,
              y0 = .35,
              y1 = .65,
              layer = "below"
            )
          )
)

plot_ly(width = 1000, height = 200) %>% 
  add_text(x = 60, y = .5, text = "Add a Label", textfont = list(color = "#fff")) %>% 
  layout(shapes = shps,
         xaxis = list(ticks = "outside", zeroline = FALSE, showgrid = FALSE),
         yaxis = list(showticklabels = FALSE, zeroline = TRUE, showgrid = FALSE,
                      zerolinecolor = "#000"))