我正在嘗試使用map和ggplot為每個PAT創建線圖。下面的代碼不起作用，我也試過輸入一個串列
。Lb1 < -實驗室[/span>。 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
uj5u.com熱心網友回復：
如果你不分享資料，就很難提供幫助。
我可以在你的代碼中發現一些錯誤/不一致的地方
。首先，你在
subj（subj <- unique(lb1$PAT)）中擁有PAT列的唯一值，但是后來在map中你用這些值對SUBJID列進行過濾。這樣做對嗎？或者你應該在subj中設定SUBJID的唯一值，即subj <- unique(lb1$SUBJID)。你在
map中傳遞subj的值，所以我不認為subj[.x]有意義。.x已經有了你想要的值，所以你可以直接使用它。
嘗試 -
library(purrr)
library(ggplot2)
p1 <- map(.x = subj, . f = ~ lb1 %>% 。
filter(SUBJID == . x & PARAMCD %in% c("CA"/span>。 "HGB"。 "BILI"。 "BILDIR") %> %
ggplot(aes(VISIT,AVAL。 color = PARAMCD))
geom_point()
geom_line()
ggtitle(.x)
)
p1
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/308549.html
標籤：