R ggplot：连续变量的大小分隔符-解网

问：

我正在尝试为连续变量创建一个具有不同点大小的散点图。但是，我想根据以下条件对连续变量进行分箱或创建中断：R95p_e

iris <- iris %>% mutate(discrete_var2 = cut(R95p_e, c(-0.5,0.06,0.08,0.1,0.12,0.14,0.16,0.18,0.2,3))))

然而，创建垃圾箱对我不起作用，因为它给了我（也用和/或，所以我尝试了这个： Error: Continuous value supplied to discrete scaleas.numeric(R95p_e)as.factor(R95p_e))

iris %>% 
  ggplot(aes(CDD_d, R95p_d, color = discrete_var, size = R95p_e)) +
  geom_quadrant_lines(linetype = "solid") +
  geom_point(alpha = 0.5) +
  scale_color_manual(values = col) +
  scale_size_continuous(breaks = c(1,2,3,4,5,6,7,8)) +
  scale_x_continuous(limits = symmetric_limits) +
  scale_y_continuous(limits = symmetric_limits) +
  theme_minimal() + 
  geom_text(aes(label = ifelse(CDD_e > quantile(CDD_e,probs = .95,na.rm=TRUE) | R95p_e > quantile(R95p_e,probs = .95,na.rm=TRUE), as.character(NAME), ""), size = 0.1),show_guide=F) +
  labs(size="Trade-weighted exposure to extreme precipitation", colour="Trade-weighted exposure to extreme drought")

但后来我最终得到了单一大小的点：

可重现的例子：

iris <- structure(list(NAME = c("Afghanistan", "Albania", "Algeria", 
"American Samoa", "Andorra", "Angola", "Anguilla", "Antarctica", 
"Antigua and Barbuda", "Argentina"), CDD_d = c(-0.0409, 0.0349, 
0.092, NA, 0.0493, -0.087, NA, NA, NA, -0.0199), R95p_d = c(0.2219, 
0.0564, 0.1601, NA, 0.0669, 1.9369, NA, NA, NA, 0.124), CDD_e = c(0.0163842166664955, 
0.0420785596173385, 0.0301859613207384, NA, NA, 0.0132801284765419, 
NA, NA, 0.01446, 0.0979854033169376), R95p_e = c(0.200947581296687, 
0.105155138501437, 0.123916523483283, NA, NA, 0.185846581581744, 
NA, NA, 0.01664, 0.146239802993381), discrete_var = structure(c(5L, 
7L, 6L, NA, NA, 5L, NA, NA, 5L, 9L), levels = c("— -6", "-6 to -4", 
"-4 to -2", "-2 to 0", "0 to 2", "2 to 4", "4 to 6", "6 to 8", 
"8 — "), class = "factor"), discrete_var2 = structure(c(9L, 
4L, 5L, NA, NA, 8L, NA, NA, 1L, 6L), levels = c(" — -6", "6 to 8", 
"8 to 10", "10 to 12", "12 to 14", "14 to 16", "16 to 18", "18 to 20", 
"20 —"), class = "factor")), row.names = c(NA, 10L), class = "data.frame")

r ggplot2 dplyr 散点图连续

library(ggplot2)
library(ggpmisc)

p <- iris |> 
  ggplot(aes(CDD_d, R95p_d, color = discrete_var)) +
  geom_quadrant_lines(linetype = "solid") +
  geom_point(alpha = 0.5) +
  scale_x_continuous(limits = symmetric_limits) +
  scale_y_continuous(limits = symmetric_limits) +
  theme_minimal() +
  geom_text(
    aes(label = ifelse(
      CDD_e > quantile(CDD_e, probs = .95, na.rm = TRUE) |
        R95p_e > quantile(R95p_e, probs = .95, na.rm = TRUE),
      as.character(NAME), ""
    )),
    show.legend = FALSE
  ) +
  labs(
    size = "Trade-weighted exposure to extreme precipitation",
    colour = "Trade-weighted exposure to extreme drought"
  )

p +
  aes(size = discrete_var2) +
  scale_size_manual(values = 1:9)
#> Warning: Removed 5 rows containing missing values (`geom_point()`).
#> Warning: Removed 5 rows containing missing values (`geom_text()`).

如果你想坚持使用连续变量，那么就放下，而是通过以下方式设置大小的范围：breaks=range=

p +
  aes(size = R95p_e) +
  scale_size_continuous(range = c(1, 9))
#> Warning: Removed 5 rows containing missing values (`geom_point()`).
#> Removed 5 rows containing missing values (`geom_text()`).

上一个：为特定观测值的计数创建按组的汇总行

下一个：使用 dplyr 和 across 计算多个点积

R ggplot：连续变量的大小分隔符

R ggplot: Size breaks for continuous variable

评论