在R中绘制散点图

debugcn 发表于 Dev

克罗地亚HR

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

码：

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的值）：

笨狼

如果您绘制计数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))