注:これはthis questionのフォローアップです。凡例からggplot2のgeom_pointアイコンを削除する
まずデータを再現するコード:
mydf <- data.frame(year = c(rep(2000, 3), rep(2002, 3), rep(2004, 3), rep(2006, 3), rep(2008, 3), rep(2010, 3), rep(2012, 3), rep(2014, 3), rep(2016, 3)),
answer = rep(c("A great deal", "Hardly any", "Only some"), 9),
result = c(0.3015940, 0.1399303, 0.5584757, 0.2269548, 0.1792754, 0.5937698, 0.2955301, 0.1309859, 0.5734840, 0.3008197, 0.1344499,
0.5647303, 0.1919454, 0.2026290, 0.6054256, 0.1059793, 0.4190533, 0.4749674, 0.1190636, 0.3631279, 0.5178085, 0.1518314,
0.3181203, 0.5300483, 0.1424715, 0.3094615, 0.5480669))
mydf$year <- factor(mydf$year)
mydf$answer <- factor(mydf$answer)
triangles <- data.frame(year = c(2002, 2004, rep(2008, 2), rep(2010, 3), 2012),
answer = c(rep("A great deal", 3), "Hardly any", "A great deal", "Only some", rep("Hardly any", 2)),
direction = c("Decrease", "Increase", "Decrease", "Increase", rep("Decrease", 2), "Increase", "Decrease"),
result = c(0.2269548, 0.2955301, 0.1919454, 0.2026290, 0.1059793, 0.4749674, 0.4190533, 0.3631279))
triangles$year <- factor(triangles$year)
triangles$answer <- factor(triangles$answer)
triangles$direction <- factor(triangles$direction)
私は、次のggplot2
のコードを実行しているとき、私はこれで終わる:
ggplot() +
geom_line(data = mydf, aes(x = year, y = result, colour = answer, group = answer)) +
geom_point(data = triangles, aes(x = year, y = result, fill = answer, shape = direction), size = 3) +
scale_shape_manual(values = c(25, 24))
ここでの問題凡例のキーであるanswer
を占める黒い点です。私は、次の層を使用して、それを削除しようとしました:
guides(fill = guide_legend(override.aes = list(size = 0)))
そして、私はこれを取得:私はまだ凡例に小さな黒い点を取得しています
。それを完全に削除するために他に何ができますか?
を行うことができます:'ガイド(色= guide_legend(override.aes =リスト(形状= NA) )) ')。 – eipi10