重现没有数据的图

Question

我想重现下面的 wiskers 和箱线图，但我没有任何数据。我该怎么做？

Answer 1

您可以正确扫描它并在 Adobe Illustrator（或任何其他支持矢量的程序）中对其进行测量和re-build。

Answer 2

您可以像这样在 tribble 中插入一些 made-up 说明性数据：

library(tidyverse)

tribble(
  ~name, ~gpa,
  "box1", 3,
  "box1", 3.3,
  "box1", 3.7,
  "box2", 1.5,
  "box2", 3.4,
  "box2", 2.7) |> 
  ggplot(aes(name, gpa)) +
  geom_boxplot() +
  scale_y_continuous(limits = c(0, 4)) +
  coord_flip() +
  labs(x = NULL)

^{由 reprex package (v2.0.1)}

创建于 2022-06-01

Answer 3

您可以通过向 aes 提供 ymin、lower、middle、upper 和 ymax 来实现此目的，而不是比连续 y.

df <- data.frame(Var = c("Overall", "Outputs", "Impact", "Environment"),
                 Q0 = c(2.35, 2.50, 1.75, 1.75), 
                 Q1 = c(2.90, 2.85, 2.80, 2.75),
                 Q2 = c(3.10, 3.00, 3.35, 3.05),
                 Q3 = c(3.40, 3.25, 3.55, 3.75),
                 Q4 = c(3.60, 3.50, 4.00, 4.00),
                 Mu = c(3.35, 3.15, 3.6, 3.65))
library(ggplot2)

ggplot(df, aes(x=Var,ymin=Q0,lower=Q1,middle=Q2,upper=Q3,ymax=Q4))+
  geom_boxplot(stat="identity") +
  stat_summary(fun=mean, aes(y = Mu), geom="point", shape=20, size=5, color="red", fill="red") +
  coord_flip()

重现没有数据的图

Reproduce a figure without data

r

dataframe