R语言药敏整合大图代码

当然，我可以为您提供一个基本的R语言药敏整合大图的代码示例。请注意，以下代码仅提供了一个草图，您可能需要根据自己的数据和需求进行适当的修改。

# 加载所需的包
library(ggplot2)
library(reshape2)

# 创建示例数据
# 这里假设您已经有一个包含药敏数据的数据框，包括药物名称、菌株名称和对应的抗生素敏感性结果。
# 以下是一个示例数据框：
data <- data.frame(
  Drug = c("DrugA", "DrugB", "DrugC"),
  Strain = c("Strain1", "Strain2", "Strain3"),
  Sensitivity = c(1, 0, 1)
)

# 数据重塑
data_melted <- melt(data, id.vars = c("Drug", "Strain"), measure.vars = "Sensitivity")

# 绘制药敏整合大图
ggplot(data_melted, aes(x = Drug, y = Strain, fill = factor(value))) +
  geom_tile(color = "white") +
  scale_fill_manual(values = c("white", "blue")) +
  theme_minimal() +
  labs(x = "Drug", y = "Strain", fill = "Sensitivity")

请注意，这只是一个基本示例，您可以根据自己的数据和需求进行进一步的定制。希望对您有所帮助！如果您有任何其他问题，请随时提问。