Merge and aggregate datasets: Difference between revisions

→‎{{header|R}}: fix result column order
(→‎{{header|SQL}}: sql result)
(→‎{{header|R}}: fix result column order)
Line 504:
PATIENT_ID = names(tapply(df_visits$VISIT_DATE, list(df_visits$PATIENT_ID), max, na.rm=TRUE)),
last_visit = tapply(df_visits$VISIT_DATE, list(df_visits$PATIENT_ID), max, na.rm=TRUE),
score_avgscore_sum = tapply(df_visits$SCORE, list(df_visits$PATIENT_ID), meansum, na.rm=TRUE),
score_sumscore_avg = tapply(df_visits$SCORE, list(df_visits$PATIENT_ID), summean, na.rm=TRUE)
)
)
Line 516:
{{out}}
<pre>
PATIENT_ID LASTNAME last_visit score_avg score_sum score_avg
1 1001 Hopper 18585 517.84 17 5.48
2 2002 Gosling 18543 6.8 6.8
3 3003 Kemeny 18578 NaN 0 0NaN
4 4004 Wirth 18571 715.74 15 7.47
5 5005 Kurtz <NA> <NA> <NA>
</pre>
Anonymous user