向分层 ggplot 添加图例

Question

我为 qPCR 生物数据制作了一个 ggplot，很难将图例添加到 geom_smooth 图中。我想将图例添加到图形本身的图像上。我尝试了一堆 scale_color_ 函数都无济于事。如果有人有任何提示，请告诉我您的建议。

尝试了 scale_color_continuous 和 scale_color_discrete


ggplot(plasmid_EphA2_8_2_19, aes(x = Sample, y = Cq)) + geom_boxplot()+ theme_classic()

primer_1 <- plasmid_EphA2_8_2_19 %>% filter(Sample == "Primer 1")
primer_2 <- plasmid_EphA2_8_2_19 %>% filter(Sample == "Primer 2")
primer_3 <- plasmid_EphA2_8_2_19 %>% filter(Sample == "Primer 3")
primer_4 <- plasmid_EphA2_8_2_19 %>% filter(Sample == "Primer 4")

primer_results <- ggplot() + geom_smooth(data = primer_1, mapping = aes(x = `Concentration (ng/mL)`, y = Cq), level = 0.05 , color='red') + geom_smooth(data = primer_2, mapping = aes(x = `Concentration (ng/mL)`, y = Cq), level = 0.05 , color ='blue') + geom_smooth(data = primer_3, mapping = aes(x = `Concentration (ng/mL)`, y = Cq), level = 0.05 , color ='darkgreen') + geom_smooth(data = primer_4, mapping = aes(x = `Concentration (ng/mL)`, y = Cq), level = 0.05 , color ='purple') + theme_classic()

规模：

深红色 - 底漆 1 蓝色 - 底漆 2 深绿色 - 底漆 3 紫色-底漆4

Answer 1

我不太明白你为什么要划分你的数据，但原则上是这样做的

plasmid_EphA2_8_2_19 %>%
ggplot(aes(x= `Concentration (ng/mL)`, y = Cq, color = Sample))+
geom_smooth()

应该创建你想要的输出

向分层 ggplot 添加图例

Adding a legend to a layered ggplot

r

rstudio