使用因子变量

Question

我在R中使用ggplot来绘制一些数据。我想要做的是有一个散点图，其中背景在图表的不同区域是不同的。有一个非常有用的答案here让我大部分时间都在这里，但不是一直都是。

以下是数据样本

row.names selectionDirector country     Totals    director.rank
1   268   Alfred Hitchcock  Argentina   14        1
2   269   Alfred Hitchcock  Australia   7         3
3   274   Alfred Hitchcock  Canada      10        1
4   286   Alfred Hitchcock  France      18        1
5   288   Alfred Hitchcock  Germany     9         6
6   296   Alfred Hitchcock  Italy       5         3
7   319   Alfred Hitchcock  Spain       21        4
8   320   Alfred Hitchcock  Sweden      4         8
9   325   Alfred Hitchcock  UK          87        1
10  330   Alfred Hitchcock  US          87        1
11  346   Andrei Tarkovsky  Argentina   4         20
12  347   Andrei Tarkovsky  Australia   2         34
13  355   Andrei Tarkovsky  Canada      2         32
14  365   Andrei Tarkovsky  France      2         37

我的代码是：

rects <- data.frame(xstart = seq(-0.5,8.5,1), xend = seq(0.5,9.5,1), col = letters[1:10])

ggplot() +
  geom_rect(data=rects,aes(ymin=0,ymax=80,xmin=xstart,xmax=xend,fill=col)) +
  geom_point(data=top.votes.by.director.country, aes(x=country, y=director.rank)) +
  coord_flip() +
  facet_wrap(~selectionDirector)

国家是10个值的因素。 director.rank是数字。它们都来自数据框top.votes.by.director.country。我的想法是为每个国家的水平区域提供不同的背景，以便在我面对时更容易阅读。

想象一下上面的图片，除了有色点之外，每个国家的黑点后面都会有一个彩色带。我可以在网上找到的最接近的近似值是从上面链接的答案中得到的图表：

因此，在上图中，每个国家/地区都会有彩色背景，因为上图中每个区域都有彩色背景。

问题是当我运行上面的代码时，我收到以下错误。

  

错误：提供给连续刻度的离散值

当我删除geom_rect部分时，它可以正常工作。如果我将geom_rect移到facet_wrap之上，我会得到一张图表，虽然它已经搞砸了。如果我只做geom_rect部分，我会得到我想要的背景。

我现在已经搞乱了几个小时而无法让它发挥作用。

Answer 1

您尝试将离散值绘制为连续比例时发生错误。 在您的情况下，您绘制了＆＃34; country＆＃34;至＆＃34; -0.5~9.5＆＃34;在x。你可以改变你的绘图顺序。

我用过＃34; Alfred Hitchcock＆＃34; selectionDirector通过以下代码绘制

rects <- data.frame(xstart = seq(0.5,9.5,1), xend = seq(1.5,10.5,1), 
         col = letters[1:10])
ggplot() + geom_point(data=top.votes.by.director.country, 
                      aes(x=country, y=director.rank)) +
           geom_rect(data=rects, aes(ymin=0, ymax=80, xmin=xstart,
                      xmax=xend, fill=col), alpha =0.5) + coord_flip()

结果如下图。

注意：我将rect的x移动到＆＃34; 1＆＃34;（从0.5开始，而不是-0.5），并将alpha属性添加到rect。