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

Question

This question is about arranging data for a ggplot line plot. I have been doing this manually with excel and I want to work out a way to do this using r .

I have reviewed this post which is similar Arrange dataframe format for ggplot - R

I have a dataset that looks like this:

] 1

I want to convert it to a dataframe that is divided into the groups (N,A,G) and into age brackets and the proportion per age_group .

An example of what I am trying to achieve:

Appreciate your help.

Data:

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

We can pivot to 'long' format with pivot_longer and then create a grouping variable with cut on the 'Age' and get the sum of 'n' and 'proportion'

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))