Как построить точечную диаграмму с различными экспериментами в одном графике для сравнения, и все линии наилучшего соответствия включены с использованием R

Question

Я пытаюсь создать график рассеяния с четырьмя различными переменными: SMX с E.coli, SMX с S.aureus, TMP с E.coli, TMP с S. aureus.Я новичок в R. Я могу создать график в Excel следующим образом:

Но меня попросили специально создать график в R studio,Я уже провел неделю, пытаясь создать этот график, но в конце он все еще не работает.Может кто-нибудь помочь мне с графиком, пожалуйста?Спасибо.

Набор данных в R:

dput(Bacteria)
structure(list(`Log [antibiotic concentration] (log(µg/µl))` = c(0, 
0.301029996, 0.602059991, 0.77815125, 0.903089987, 1, 0, -0.698970004, 
-0.397940009, -0.22184875, -0.096910013, 0, 0, -1, -0.698970004, 
-0.522878745, -0.397940009, -0.301029996, 0, 0, 0.301029996, 
0.477121255, 0.602059991, 0.698970004), `Mean Absorbance` = c(0.3925, 
0.375, 0.388, 0.358, 0.357, 0.4115, 0.3465, 0.299, 0.2805, 0.2895, 
0.3495, 0.4585, 0.3975, 0.405, 0.404, 0.404, 0.4105, 0.474, 0.3975, 
0.405, 0.404, 0.404, 0.4105, 0.474), Experiment = c("SMX with E. coli", 
"SMX with E. coli", "SMX with E. coli", "SMX with E. coli", "SMX with E. coli", 
"SMX with E. coli", "SMx with S. aureus", "SMx with S. aureus", 
"SMx with S. aureus", "SMx with S. aureus", "SMx with S. aureus", 
"SMx with S. aureus", "TMP with E . coli", "TMP with E . coli", 
"TMP with E . coli", "TMP with E . coli", "TMP with E . coli", 
"TMP with E . coli", "TMP with S. aureus", "TMP with S. aureus", 
"TMP with S. aureus", "TMP with S. aureus", "TMP with S. aureus", 
"TMP with S. aureus")), .Names = c("Log [antibiotic concentration] (log(µg/µl))", 
"Mean Absorbance", "Experiment"), row.names = c(NA, -24L), class = c("tbl_df", 
"tbl", "data.frame"))

Answer 1

Идеально подходит для ggplot2.Сохраните ваши данные в d и переименуйте первый столбец в "Log".

library(ggplot2)
ggplot(d, aes(Log, `Mean Absorbance`, color=Experiment)) + 
  geom_point() + 
  geom_smooth(method = "lm", se = F) +
  xlab("Log [antibiotic concentration] (log(µg/µl))") +
  theme(legend.position = "bottom")