2 つのラベル/凡例を持つ ggplot を作成するにはどうすればよいですか?
データ例 dput():
structure(list(Percentage = c(0, 25, 50, 75, 100, 0, 25, 50,
75, 100), Data = c("group1", "group1", "group1", "group1", "group1",
"group2", "group2", "group2", "group2", "group2"), accuracy_G = c(18.35,
54.53, 68.48, 88.65, 99.96, 18.35, 76.08, 81.63, 88.03, 99.96
), accuracy_1 = c(52.751572327044, 61.5566037735849, 65.8411949685535,
73.8011006289308, 80.6112421383648, 52.751572327044, 64.7209119496855,
67.3054245283019, 70.5090408805032, 80.6112421383648), accuracy_2 = c(52.8498427672956,
61.1930031446541, 66.0966981132076, 73.8404088050314, 80.3360849056604,
52.8498427672956, 64.5538522012579, 67.1678459119497, 70.9217767295598,
80.3360849056604)), .Names = c("Percentage", "Data", "accuracy_G",
"accuracy_1", "accuracy_2"), row.names = c(2L, 4L, 6L, 8L, 10L,
12L, 14L, 16L, 18L, 20L), class = "data.frame")
require(ggplot2)
require(reshape2)
data.melt <- melt(data, id.vars=c("Percentage","Data")) #For plotting with ggplot
これで、図の一部をサブセット化してプロットできます。
data.melt_sub <- subset(data.melt,Data == "group1")
ggplot( data.melt_sub ,aes(x = Percentage,y = value,colour=variable)) + geom_line()
ただし、右側に「group1」用と「group2」用の 2 つのラベルを付けたいと思います (それぞれ 3 行を作成します)。線の色については、ブリューワーのパレット=「ペア」を使用したいと思います。これらは手で呼び出すことができますが、 scale_fill_brewer(pallete = "Paired") のようなものを含める方が良いでしょう:
require(RColorBrewer)
colours <- brewer.pal(12,"Paired")