使用行名在 R 中添加图例

Question

我有数据框，我想将前两列行+变量名传递给图例。

在 df 中，我有一组数据集，其中他们用 a 到 h 的字母分组。

我想要成功的是 78_256_DQ0_a 和 78_256_DQ1_a 和 78_256_DQ2_a 到图例 a 等等。我不知道如何将此格式传递给 ggplot。任何帮助将不胜感激。

假设我有一个这样的数据框；

df <- do.call(rbind,lapply(1,function(x){
AC <- as.character(rep(rep(c(78,110),each=10),times=3))
AR <- as.character(rep(rep(c(256,320,384),each=20),times=1))
state <- rep(rep(c("Group 1","Group 2"),each=5),times=6)
V <- rep(c(seq(2,40,length.out=5),seq(-2,-40,length.out=5)),times=2)
DQ0 = sort(replicate(6, runif(10,0.001:1)))
DQ1 = sort(replicate(6, runif(10,0.001:1)))
DQ2 = sort(replicate(6, runif(10,0.001:1)))
No  =  c(replicate(1,rep(letters[1:6],each=10)))
data.frame(AC,AR,V,DQ0,DQ1,DQ2,No)
}))

head(df)

    AC  AR     V         DQ0        DQ1        DQ2 No
1   78 256   2.0 0.003944916 0.00902776 0.00228837  a
2   78 256  11.5 0.006629239 0.01739512 0.01649540  a
3   78 256  21.0 0.048515226 0.02034436 0.04525160  a
4   78 256  30.5 0.079483625 0.04346118 0.04778420  a
5   78 256  40.0 0.099462310 0.04430493 0.05086738  a
6   78 256  -2.0 0.103686255 0.04440260 0.09931459  a
*****************************************************

此代码用于绘制 df

library(reshape2)
df_new <- melt(df,id=c("V","No"),measure=c("DQ0","DQ1","DQ2"))
library(ggplot2)
ggplot(df_new,aes(y=value,x=V,group=No,colour=No))+
geom_point()+
geom_line()

Answer 1

将 lty = variable 添加到您的美学中，就像这样：

ggplot(df_new, aes(y = value, x = V, lty = variable, colour = No)) +
  geom_point() +
  geom_line()

将为您提供 DQ0、DQ1 和 DQ2 的单独行。

使用行名在 R 中添加图例

Adding Legend in R using row names

r

ggplot2

reshape