为 ggplot R 的多线图创建数据框

Question

这个问题是关于为ggplot线图排列数据。 我一直在用excel手动执行此操作，我想找到一种使用r执行此操作的方法。

我已经查看了这篇文章，它类似于ggplot - R 的排列数据帧格式

我有一个看起来像这样的数据集：

] 1

我想将它转换为一个数据帧，该数据帧分为组 (N,A,G) 和年龄段以及每个age_group的比例。

我试图实现的一个例子：

感谢你的帮助。

数据：

structure(list(ID = 1:10, Age = c(9L, 16L, 12L, 13L, 29L, 24L, 
23L, 24L, 16L, 40L), Sex = structure(c(1L, 1L, 2L, 1L, 1L, 2L, 
2L, 1L, 1L, 1L), .Label = c("F", "M"), class = "factor"), Age_group = 
c(1L, 
2L, 2L, 2L, 3L, 3L, 3L, 3L, 2L, 4L), N = c(1L, 1L, 1L, 1L, 0L, 
0L, 0L, 0L, 0L, 0L), A = c(0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 
0L), G = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L)), class = "data.frame", 
row.names = c(NA, 
-10L))

Answer 1

我们可以使用pivot_longer转为“long”格式，然后在“Age”上创建一个带有cut的分组变量，并获得“n”和“proportion”的sum

library(dplyr)
library(tidyr)
df1 %>%
     pivot_longer(cols = N:G, names_to = 'group', values_to = 'n') %>%
     group_by(Age_group_new = cut(Age, breaks = c(-Inf, 0, seq(10, 70, by = 10), 100, Inf)), group) %>%
     summarise(n = sum(n)) %>%
     group_by(Age_group_new) %>% 
     mutate(proportion = n/sum(n),
         proportion = replace(proportion, is.nan(proportion), 0))