Question

我想简单地在我的奈奎斯特图中添加一个图例，其中我正在绘制2组数据：1是实验集（~600点），2是使用传递函数计算的数据帧（~1000点））

我需要绘制两个并标记它们。目前我把它们都绘好了但是当我尝试使用scale_colour_manual添加标签时没有出现标签。另外一种方法来移动这个标签将不胜感激!!代码如下。

    pdf("nyq_2elc.pdf")

  nq2 <- ggplot() + geom_point(data = treat, aes(treat$V1,treat$V2), color = "red") +
    geom_point(data = circuit, aes(circuit$realTF,circuit$V2), color = "blue") +
    xlab("Real Z") + ylab("-Imaginary Z") + 
    scale_colour_manual(name = 'hell0', 
                       values =c('red'='red','blue'='blue'), labels = c('Treatment','EQ')) +
    ggtitle("Nyquist Plot and Equivilent Circuit for 2 Electrode Treatment Setup at 0 Minutes") +
    xlim(0,700) + ylim(0,700) 


print(nq2)
dev.off()

Answer 1

Ggplot最适合使用长数据帧，所以我会像这样组合数据集：

treat$Cat <- "treat"
circuit$Cat <- "circuit"
CombData <- data.frame(rbind(treat, circuit))

ggplot(CombData, aes(x=V1, y=V2, col=Cat))+geom_point()

这可以为您提供所需的图例。

您可能需要更改数据框treat和circuit列的名称/顺序，以便将它们组合在一起，但很难分辨，因为您并非如此给我们一个可重复的例子。

将自定义图例添加到ggplot2中的2个数据集

1 个答案: