时间戳

首页 > 解决方案 > 将图例添加到分层 ggplot

r - 将图例添加到分层 ggplot

问题描述

我为 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

标签： rrstudio

解决方案

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

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

应该创建你想要的输出

推荐阅读