Purr 中的地图功能

Question

我正在尝试使用 map 和 ggplot 为每个 PAT 创建线图。以下代码不起作用，我也尝试过传入一个列表

Lb1 <- labs[, c("PAT","RES","PARAMCD","AVISITN","LBSTNRHI")]
subj <- unique(lb1$PAT)
p1 <- map(.x = subj, .f = ~ lb1 %>%  
  filter(SUBJID == subj[.x] & PARAMCD %in% c("CA", "HGB", "BILI", "BILDIR")) %>% 
  ggplot(aes(VISIT,AVAL,color = PARAMCD)) +
  geom_point() +
  geom_line() +
  ggtitle(label = subj[.x]))
p1

Answer 1

如果您不共享数据，总是很难提供帮助。

我可以在您的代码中发现一些错误/不一致之处。

1. 首先，您在 subj (subj <- unique(lb1$PAT)) 中拥有 PAT 列的唯一值，但后来在 map 中，您在 filter SUBJID 列中拥有这些值。那是对的吗？或者您是否应该在subj 中拥有唯一的SUBJID 值，即subj <- unique(lb1$SUBJID)。

2. 您在map 中传递subj 的值，所以我认为subj[.x] 没有意义。 .x 已经有了你想要的值，所以你可以直接使用它。

试试-

library(purrr)
library(ggplot2)

p1 <- map(.x = subj, .f = ~ lb1 %>%  
            filter(SUBJID == .x & PARAMCD %in% c("CA", "HGB", "BILI", "BILDIR")) %>% 
            ggplot(aes(VISIT,AVAL,color = PARAMCD)) +
            geom_point() +
            geom_line() +
            ggtitle(.x)
          )
p1