为R中的年龄范围创建年龄分层表

为R中的年龄范围创建年龄分层表,r,R,我有一个名为tt的数据帧。我想为大于0、小于65、70和75的年龄创建一个年龄分层表。这是阿尔茨海默病项目的dta,在发病年龄、最后就诊年龄和死亡年龄列中有一些值,如-9和888-9和888表示年龄未知 因此,我编写了这段代码来进行分层分析,但我不确定如何设置0岁及以上和以下的范围。您可以将不想计数的值设置为NA: library(dplyr) tt %>% mutate(across(starts_with('AGE'), ~as.numeric(as.char

我有一个名为
tt
的数据帧。我想为大于0、小于65、70和75的年龄创建一个年龄分层表。这是阿尔茨海默病项目的dta,在发病年龄、最后就诊年龄和死亡年龄列中有一些值,如-9和888-9和888表示年龄未知


因此,我编写了这段代码来进行分层分析,但我不确定如何设置0岁及以上和以下的范围。您可以将不想计数的值设置为
NA

library(dplyr)

tt %>% 
  mutate(across(starts_with('AGE'), 
        ~as.numeric(as.character(replace(., . %in% c(-9, 888), NA))))) %>%
  group_by(ETHNICITY) %>%
  summarise('<65' = sum(AGE_AT_ONSET < 65, na.rm = TRUE), 
            '<70'= sum(AGE_AT_ONSET< 70, na.rm = TRUE),
            '<75'= sum(AGE_AT_ONSET < 75, na.rm = TRUE))

#  ETHNICITY `<65` `<70` `<75`
#  <fct>     <int> <int> <int>
#1 AA            0     0     1
#2 Asian         0     0     1
#3 Hispanic      1     1     1
#4 NHW           7    11    19
库(dplyr)
tt%>%
突变(跨越(以('AGE')开头),
~as.numeric(as.character(替换为%c(-9888)中的、.%和NA‘‘‘‘‘))%>%
按种族划分的组别%>%

总结(“您可以将不想计数的值设置为
NA

library(dplyr)

tt %>% 
  mutate(across(starts_with('AGE'), 
        ~as.numeric(as.character(replace(., . %in% c(-9, 888), NA))))) %>%
  group_by(ETHNICITY) %>%
  summarise('<65' = sum(AGE_AT_ONSET < 65, na.rm = TRUE), 
            '<70'= sum(AGE_AT_ONSET< 70, na.rm = TRUE),
            '<75'= sum(AGE_AT_ONSET < 75, na.rm = TRUE))

#  ETHNICITY `<65` `<70` `<75`
#  <fct>     <int> <int> <int>
#1 AA            0     0     1
#2 Asian         0     0     1
#3 Hispanic      1     1     1
#4 NHW           7    11    19
库(dplyr)
tt%>%
突变(跨越(以('AGE')开头),
~as.numeric(as.character(替换为%c(-9888)中的、.%和NA‘‘‘‘‘))%>%
按种族划分的组别%>%
总结('