在 R 中绘制散点图

Question

由于此处所述的问题，我有一个数据结构。

代码：

df <- tibble::tribble(~person, ~age, ~height,  
                      "John", 1, 20,  
                      "Mike", 3, 50,  
                      "Maria", 3, 52,  
                      "Elena", 6, 90,  
                      "Biden", 9, 120)  
df %>%
  mutate(
    age_c = cut(
      age,
      breaks = c(-Inf, 5, 10),
      labels = c("0-5", "5-10"),
      right = TRUE
    ),
    height_c = cut(
      height,
      breaks = c(-Inf, 50, 100, 200),
      labels = c("0-50", "50-100", "100-200"),
      right = TRUE
    )
  ) %>%
  count(age_c, height_c, .drop = FALSE)

# A tibble: 6 x 3
  age_c height_c     n
  <fct> <fct>    <int>
1 0-5   0-50         2
2 0-5   50-100       1
3 0-5   100-200      0
4 5-10  0-50         0
5 5-10  50-100       1
6 5-10  100-200      1

现在我正在尝试创建一个散点图，但我有一个问题，代码似乎没有注意到 X 和 Y 轴上的值正在重复。 相反，它正在重复它们。 所以，我希望我的 x 轴有两个值 0-5 和 5-10（我得到的是 0-5,0-5,0-5,5-10,5-10,5-10），和 y 轴三个值 0-50、50-100 和 100-200（相反，我有两个系列）。

我用来绘制的代码：

ggplot(df, aes(x=age_c, y=height_c))

预期图（其中圆圈的大小将基于 N 的值）：

Answer 1

如果你绘制计数 data.frame 它应该工作：

countdf = df %>%
  mutate(
    age_c = cut(
      age,
      breaks = c(-Inf, 5, 10),
      labels = c("0-5", "5-10"),
      right = TRUE
    ),
    height_c = cut(
      height,
      breaks = c(-Inf, 50, 100, 200),
      labels = c("0-50", "50-100", "100-200"),
      right = TRUE
    )
  ) %>%
  count(age_c, height_c, .drop = FALSE)


countdf %>% 
filter(n>0) %>% 
ggplot(aes(x=age_c,y=height_c,size=n)) + 
geom_point() + 
scale_size_continuous(range=c(5,10),breaks=c(1,2))