gistfile1.txt

# 200 mg dose ID's overlaid
ggplot(data = CleanedPK200, aes(x = TAD, y = CONC4873)) + 
  geom_point(aes(group = ID, color = ID), size = 3) +
  geom_line(aes(group = ID, color = ID), size = 1) +
  labs(title = "200 mg cohort WCK 4873 CONC-TIME") + 
  ylab("Concentration (ng/mL)") + xlab("Time After Dose (hrs)") +
  theme(axis.title.x = element_text(size=17)) +
  theme(axis.title.y = element_text(size=17)) +
  theme(title = element_text(size=20)) + 
  scale_y_log10() 

# 400 mg dose stratified by individual
ggplot(data = CleanedPK400, aes(x = TAD, y = CONC4873, group = ID)) + 
   geom_point(aes(group = ID, color = ISFED), size = 3) +
  geom_line(aes(group = ISFED, color = ISFED, linetype = PERIOD), size = 1) + 
  facet_wrap( ~ ID) +
  labs(title = "400 mg WCK 4873 by ID") + 
  ylab("Concentration (ng/mL)") + xlab("Time After Dose (hrs)") +
  theme(axis.title.x = element_text(size=17)) +
  theme(axis.title.y = element_text(size=17)) +
  theme(title = element_text(size=20)) +
  scale_y_log10() 

# 400 mg dose by Period
ggplot(data = CleanedPK400, aes(x = TAD, y = CONC4873, group = ID)) + 
  geom_point(aes(color = ISFED), size = 3) +
  geom_line(aes(group = interaction(PERIOD, ID), color = ISFED, linetype = PERIOD), size = 1) + 
  labs(title = "400 mg WCK 4873 by Period") + 
  ylab("Concentration (ng/mL)") + xlab("Time After Dose (hrs)") +
  theme(axis.title.x = element_text(size=17)) +
  theme(axis.title.y = element_text(size=17)) +
  theme(title = element_text(size=20)) +
  scale_y_log10(breaks = c(0, 10, seq(100, 1000, 200)))