Question

在下面的图表中，使用geom_point映射的三角形都在同一个图例中。从本质上讲，我希望每个geom_都有自己独立的传奇。我该怎么做？

这是我的可重复性代码：

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)
triangle_up <- data.frame(year = c(2004, 2008, 2010),
                        direction = c("A great deal", "Hardly any", "Hardly any"),
                        result = c(0.2955301, 0.2026290, 0.4190533))
triangle_up$year <- factor(triangle_up$year)
triangle_up$direction <- factor(triangle_up$direction)
triangle_down <- data.frame(year = c(2002, 2008, 2010, 2010, 2012),
                            direction = c(rep("A great deal", 3), "Only some", "Hardly any"),
                            result = c(0.2269548, 0.1919454, 0.1059793, 0.4749674, 0.3631279))
triangle_down$year <- factor(triangle_down$year)
triangle_down$direction <- factor(triangle_down$direction)

ggplot(mydf, aes(x = year, y = result)) + geom_line(aes(colour = answer, group = answer)) +
geom_point(data = triangle_up, aes(x = year, y = result, group = direction, fill = direction), shape = 24, size = 3) +
geom_point(data = triangle_down, aes(x = year, y = result, group = direction, fill = direction), shape = 25, size = 3)

Answer 1

这里的问题是使用多个数据帧来存储值。最好在mydf数据框中添加一列来存储direction变量。令人困惑的是，您在answer中使用mydf作为变量名称，但direction将相同的值存储在其他数据框中。

所以这里是新的mydf，其值为＆＃34; up＆＃34;，＆＃34; down＆＃34;或direction列中的NA：

mydf <- structure(structure(list(year = c(2000, 2000, 2000, 2002, 2002, 2002, 2004, 
2004, 2004, 2006, 2006, 2006, 2008, 2008, 2008, 2010, 2010, 2010, 
2012, 2012, 2012, 2014, 2014, 2014, 2016, 2016, 2016), answer = structure(c(1L, 
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 
3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("A great deal", 
"Hardly any", "Only some"), class = "factor"), result = c(0.301594, 
0.1399303, 0.5584757, 0.2269548, 0.1792754, 0.5937698, 0.2955301, 
0.1309859, 0.573484, 0.3008197, 0.1344499, 0.5647303, 0.1919454, 
0.202629, 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), direction = c(NA, NA, NA, "down", NA, 
NA, "up", NA, NA, NA, NA, NA, "down", "up", NA, "down", "up", 
"down", NA, "down", NA, NA, NA, NA, NA, NA, NA)), .Names = c("year", 
"answer", "result", "direction"), row.names = c(NA, -27L), class = 
"data.frame"))

现在，您可以使用direction和answer的单独图例进行绘图。使用scale_shape_manual手动指定形状，使用breaks省略NA值。对于线条颜色，我们使用scale_color_manual并覆盖图例映射，以便仅显示线条而非形状。

ggplot(mydf, aes(year, result)) + 
  geom_line(aes(group = answer, color = answer)) + 
  geom_point(aes(shape = direction, fill = answer), size = 3) + 
  scale_shape_manual(values = c(25, 24), breaks = c("down", "up")) + 
  scale_color_manual(values = c("red", "green", "blue"),
                     guide = guide_legend(override.aes = list(shape = rep(NA, 3)))) +
  theme_light()

Answer 2

This answer演示了如果以正确格式提供绘图数据，如何创建图表。然而，这只是故事的第二部分。

下面的答案试图建议OP如何从原始数据mydf，triangle_up和triangle_down创建绘图数据。目标是将所有绘图数据放在一个data.frame中。

原始数据

由OP提供，但没有分解（这将在以后需要时完成）：

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)) triangle_up <- data.frame(year = c(2004, 2008, 2010), direction = c("A great deal", "Hardly any", "Hardly any"), result = c(0.2955301, 0.2026290, 0.4190533)) triangle_down <- data.frame(year = c(2002, 2008, 2010, 2010, 2012), direction = c(rep("A great deal", 3), "Only some", "Hardly any"), result = c(0.2269548, 0.1919454, 0.1059793, 0.4749674, 0.3631279)) triangle_up # year direction result #1 2004 A great deal 0.2955301 #2 2008 Hardly any 0.2026290 #3 2010 Hardly any 0.4190533 triangle_down # year direction result #1 2002 A great deal 0.2269548 #2 2008 A great deal 0.1919454 #3 2010 A great deal 0.1059793 #4 2010 Only some 0.4749674 #5 2012 Hardly any 0.3631279

显然，triangle_up和triangle_down是通过某些方式从包含数据点的主data.frame mydf中选择的行，这些数据点应通过使用特殊符号绘制在图表中强调。请注意，OP决定将answer列重命名为direction。

准备和加入数据

data.table用于执行这些任务。

library(data.table) # CRAN version 1.10.4 used # combine separate triangle data.frames into one data.table, # thereby adding an id column to indicate origin of each row triangles <- rbindlist(list(triangle_up, triangle_down), idcol = "arrow") # turn id col into factor, giving meaningful labels triangles[, arrow := factor(arrow, labels = c("up", "down"))] triangles # arrow year direction result #1: up 2004 A great deal 0.2955301 #2: up 2008 Hardly any 0.2026290 #3: up 2010 Hardly any 0.4190533 #4: down 2002 A great deal 0.2269548 #5: down 2008 A great deal 0.1919454 #6: down 2010 A great deal 0.1059793 #7: down 2010 Only some 0.4749674 #8: down 2012 Hardly any 0.3631279 # rename direction column to make join easier setnames(triangles, "direction", "answer") # coerce mydf to data.table and right join with triangles, i.e., # result contains all rows of mydf mydf2 <- triangles[setDT(mydf), on = .(year, answer, result)] # turn year into factor to have ggplot using a discrete scale mydf2[, year := factor(year)]

最后，绘图所需的所有数据都合并在一个data.table
中
mydf2 # arrow year answer result # 1: NA 2000 A great deal 0.3015940 # 2: NA 2000 Hardly any 0.1399303 # 3: NA 2000 Only some 0.5584757 # 4: down 2002 A great deal 0.2269548 # 5: NA 2002 Hardly any 0.1792754 # 6: NA 2002 Only some 0.5937698 # 7: up 2004 A great deal 0.2955301 # 8: NA 2004 Hardly any 0.1309859 # ... #19: NA 2012 A great deal 0.1190636 #20: down 2012 Hardly any 0.3631279 #21: NA 2012 Only some 0.5178085 #22: NA 2014 A great deal 0.1518314 #23: NA 2014 Hardly any 0.3181203 #24: NA 2014 Only some 0.5300483 #25: NA 2016 A great deal 0.1424715 #26: NA 2016 Hardly any 0.3094615 #27: NA 2016 Only some 0.5480669 # arrow year answer result

绘图

要绘制数据，可以使用this answer中的代码进行两项修改：

ggplot(mydf2, aes(year, result)) + geom_line(aes(group = answer, color = answer)) + geom_point(aes(shape = arrow, fill = answer), size = 3) + scale_shape_manual(values = c(25, 24), breaks = c("down", "up")) + scale_color_manual(values = c("red", "green", "blue"), guide = guide_legend(override.aes = list(shape = rep(NA, 3)))) + theme_light()

强制ggplot2为每个geom应用单独的图例

2 个答案:

原始数据

准备和加入数据

绘图