R 一些箱线图改进

我有一个问题我无法解决。假设我有以下代码：

x<-rnorm(100)
x<-append(x,5)
ggplot()+geom_boxplot(aes(y=x),width=3)+scale_y_continuous(breaks=round(c(median(x),summary(x)[['1st Qu.']],summary(x)[['3rd Qu.']],max(x),min(x)),digits=2))

但它不起作用。我的直觉是：如果存在异常值（条件），则标记棒的顶部，这是最接近3/2*3分位数的值。有什么办法可以解决这两个问题吗？

您可以试试：

set.seed(123)

x <- rnorm(100)
x <- append(x,5)

my_breaks <- summary(x)[-4] %>% as.numeric()
my_range <- my_breaks[c(2,4)] + (my_breaks[c(2,4)] %>% diff() * 3/2) * c(-1, 1)
my_breaks <- c(my_breaks, x[x >= my_range[1] & x <= my_range[2]] %>% range())

data <- data.frame(group = factor(0), y = x)

ggplot(data)+
  geom_boxplot(aes(group, y), width = 0.25) +
  labs(x = NULL) +
  scale_y_continuous(breaks = round(my_breaks, 2)) +
  theme(
    axis.title.x=element_blank(),
    axis.text.x=element_blank(),
    axis.ticks.x=element_blank()
  )

set.seed（123）
你可以试试：

set.seed(123)

x <- rnorm(100)
x <- append(x,5)

my_breaks <- summary(x)[-4] %>% as.numeric()
my_range <- my_breaks[c(2,4)] + (my_breaks[c(2,4)] %>% diff() * 3/2) * c(-1, 1)
my_breaks <- c(my_breaks, x[x >= my_range[1] & x <= my_range[2]] %>% range())

data <- data.frame(group = factor(0), y = x)

ggplot(data)+
  geom_boxplot(aes(group, y), width = 0.25) +
  labs(x = NULL) +
  scale_y_continuous(breaks = round(my_breaks, 2)) +
  theme(
    axis.title.x=element_blank(),
    axis.text.x=element_blank(),
    axis.ticks.x=element_blank()
  )

set.seed（123）
如何从R导出绘图？导出->另存为图像如何从R导出绘图？导出->另存为图像正是我要找的！谢谢在乞讨时，我们还必须使用library（dplyr）；）正是我要找的！谢谢在乞讨时，我们还必须使用library（dplyr）；）