library(tidyverse)
otherSheet <- data.frame(ID = c(58, 144, 58, 78),
Date = c('1/18/2014', '1/18/2014',
'4/18/2014', '1/19/2018'),
Wave = c('Y', 'Y2', 'Y2', 'Y5'),
Notes = rep('',4 ),
Data_1 = c(47.5, 65.3, 499.2, 24.4),
Data_2 = c(384.2, 38.2, 293.2, 22.1),
Data_3 = c(394.3, 90.4, 22.3, 12.1))
masterSheet <- data.frame(ID = c(58, 144, 58),
Date = c('1/18/2014', '1/18/2014',
'4/18/2014'),
Wave = c('Y', 'Y2', 'Y2'),
Data_4 = c(39.4, 484.3, 501.6),
Data_5 = c(3959.3, 4849.2, 394.2),
Data_6 = c(474.3, 383.3, 2394.2),
Diagnosis = c('Negative', 'Postive', 'Positive'),
Age = c(45, 80, 46),
Status = rep('...', 3),
Gender = c('M', 'F', 'M'))
combinedSheets <- masterSheet %>%
full_join(otherSheet)