ggplot-如何使用行名和列名创建图例答案

【问题标题】：ggplot-How to create a legend using row&column namesggplot-如何使用行名和列名创建图例
【发布时间】：2015-08-14 07:16:37
【问题描述】：

我有数据框，我想传递前两列行和用于创建图例的变量列名。

在df 内部，我有一组数据集，它们用从a 到h 的字母分组。特别是，我想将AC&AR 列行作为名称与DQ0:DQ2 变量组合传递，它们应该以该格式显示在图例中。对于数据组a，类似于 78_256_DQ0、78_256_DQ1 和 78_256_DQ2 和df 中的letters 的其余部分相同。

我的可复制df 像这样；

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))
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)
}))

头(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
*****************************************************
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()

更新

在@...回答之后，我取得了一点进步。他的解决方案部分没问题。因为当我们melt名字时

df$names <- interaction(df$AC,df$AR,names(df)[4:6])
df_new <- melt(df,id=c("V","No","names1"),measure=c("DQ0","DQ1","DQ2"))

此命令为 a 到 h 的每个组绘制 4 行。

输出变成这样；

头(df)

  AC  AR    V         DQ0        DQ1         DQ2 No     names
1 78 256  2.0 0.002576547 0.04294134 0.008302918  a 78.256.DQ0
2 78 256 11.5 0.010150299 0.04570650 0.011749370  a 78.256.DQ1
3 78 256 21.0 0.012540026 0.06977744 0.013887357  a 78.256.DQ2
4 78 256 30.5 0.036532977 0.11460343 0.071172301  a 78.256.DQ0
5 78 256 40.0 0.042801967 0.11518191 0.073756228  a 78.256.DQ1
6 78 256 -2.0 0.043275144 0.13033194 0.076569977  a 78.256.DQ2
**************************************************************

并修改绘图命令

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

我更喜欢的输出格式是我可以引用每个组内的所有 DQ0、DQ1 和 DQ2 行。有什么建议吗？

最后条件

【问题讨论】：

标签： r ggplot2

【解决方案1】：

你可以使用df$names <- interaction(v$AC,v$AR,DQ0)，然后在你的melt命令中设置names为id。稍后您在 aes 函数中使用 color=names。

因此，这将添加一个包含已定义列组合的列名。如果您更喜欢.，也可以设置sep='_'。
如果您现在使用此列进行着色，您将获得这些标签作为图例名称。

【讨论】：

感谢您的回答。您能否详细说明您的解决方案。 v 是 df ?
其实，是的，忽略了数据框的定义，以为我发现了v。
@aoronbarlow 希望这能解决您的问题并使其更清晰？
@ok 我在你的解决方案之后来到了某个点。我做了这个df$names <- interaction(df$AC,df$AR,names(df)[4:6])，它在names 列下给出了AC、AR 和DQ0:DQ2 的混合组合，当我melt 他们并绘制ggplot 时，结果在某种程度上很接近，但要付出更多的努力我认为是必要的。
我需要的是另外三个列，可能类似于names1names2 和names3，在它们下面DQ0、DQ1 和DQ2 与AC 和@ 组合987654346@columns.

【解决方案2】：

我终于找到了一种使用dplyr 中的gather 的方法。

df_gather <-   df %>% gather(DQ, value,-No, -AC, -AR, -V)

并使用来自@drmariod 答案的interaction 函数

df_gather$names <- interaction(df_gather$AC,df_gather$AR,df_gather$DQ)

这是这个问题的结果:)

【讨论】：