ggplot中x轴标签之间的自定义间距

Question

我有一个 df：

   Year          Ratio       N    Mean        sd        se        ci
97  1867 TILLBANK...PLACTILL 2  3.861999  4.082170  2.886530  36.67685
98  1867   TILLOBL..PLACTILL 2 21.848833 17.859532 12.628596 160.46153
99  1867   TILLLOAN.PLACTILL 2 54.197044 23.309360 16.482207 209.42629
100 1867   TILLEQUI.PLACTILL 2  0.000000  0.000000  0.000000   0.00000
101 1867   TILLCONT.PLACTILL 2  0.000000  0.000000  0.000000   0.00000
102 1867   TILLRECI.PLACTILL 2 10.772286  5.110514  3.613679  45.91615


str(df) :

     'data.frame':  1152 obs. of  7 variables:
 $ Year : Factor w/ 156 levels "1855","1856",..: 13 13 13 13 13 13 13 13 14 14 ...
 $ Ratio: Factor w/ 8 levels "TILLBANK...PLACTILL",..: 1 2 3 4 5 6 7 8 1 2 ...
 $ N    : num  2 2 2 2 2 2 2 2 2 2 ...
 $ Mean : num  3.86 21.85 54.2 0 0 ...
 $ sd   : num  4.08 17.86 23.31 0 0 ...
 $ se   : num  2.89 12.63 16.48 0 0 ...
 $ ci   : num  36.7 160.5 209.4 0 0 ...

1) 我正在做一个ggplot：

qqs<-ggplot(dfccomp, aes(x=Year, y=sd,colour=Ratio))+geom_point()+
    facet_grid(Ratio~.)+
    theme(axis.text.x  = element_text(angle=-90, hjust=0.5, size=11,colour="black"))

这个情节适用于geom_point()，但现在适用于geom_line()。如果我使用geom_point()，那么多年来（从 1867 年到 2010 年）我的 x 轴都会变得非常混乱：

如果我使用 geom_line()，它不起作用，我会得到：

那么，我想知道如何只选择某些特定年份出现在 x 轴上？

2)我不明白的另一个奇怪的事情是如果我将上面的df$Year转换为数字，

df$Year=as.numeric(as.character(df$Year))

情节是：

现在，x 轴上只有 3 年。哪个更好，但仍然不是我想要的......

为什么geom_point() 和geom_line() 都有效？

更新： 在下面的答案中，我读到“年份是一个因素，因此 ggplot() 将相应地解释它并产生一个点图。geom_line() 没有做任何事情的原因是这个 geom 对于提供的数据没有意义；因子性质向 ggplot() 表明 x 轴是不连续的，并且在该轴上的点之间没有可以绘制的内容，因此没有线。”。

但我有一个不同的情节，其中geom_line() 与一个因素一起工作。为什么会这样？

qq<-ggplot(df, aes(x=Year, y=Mean,colour=Ratio)) + 
    geom_errorbar(aes(ymin=Mean-sd, ymax=Mean+sd), colour="black", width=.1, position=position_dodge(.1)) +
    geom_line(position=position_dodge(.1)) +
    geom_point(position=position_dodge(.1), size=3, shape=21, fill="white") + # 21 is filled circle
    xlab("Year") +
    ylab("Mean (%)")+ggtitle("Ratios")+facet_grid(Ratio~.)+theme(axis.text.x  = element_text(angle=-90, hjust=0.5, size=11,colour="black"))

图片：

Answer 1

如果您使用Year 作为因子，ggplot 将为每个因子水平打印一个标签。您可以在前两个图中看到这一点。

如果您使用Year 作为数值变量，ggplot 将自动选择 x 轴标签值的子集。在您的第三个情节中，两次休息之间的距离是 100。

您可以使用scale_x_continuous 和参数breaks 手动指定x 轴上的断点位置。在下面的示例中，中断之间的距离为 20。使用代码来查找所需的绘图。

ggplot(df, aes(x=as.numeric(as.character(Year)), y=sd, colour=Ratio)) +
geom_point() +
facet_grid(Ratio~.) +
theme(axis.text.x  = element_text(angle=-90, hjust=0.5, size=11,colour="black")) +
scale_x_continuous(breaks = as.numeric(levels(df$Year))[c(TRUE, rep(FALSE, 19))])

Answer 2

Year 是一个因素，因此ggplot() 将相应地解释它并产生一个点图。 geom_line() 没有做任何事情的原因是这个 geom 对提供的数据没有意义；因子性质向ggplot() 表明，x 轴不是连续的，并且在该轴上的点之间没有可绘制的内容，因此没有线。

在将Year 转换为数字变量后，使用geom_line() 得到的数字清楚地表明了这种情况。现在ggplot()，按照它的语法，为连续的x轴数据生成一个折线图。

所以现在您的问题归结为控制 x 轴上的比例（比例是 ggplot() 所说的轴）。我看到两个选项；

1. 使用scale_x_continous() 提供您自己的秤，如记录的here
2. 将您的Year 数值数据转换为Date 对象，并让ggplot() 处理比例或通过scale_x_date() 对其进行自定义，如文档和说明的here

要转换为 Date 对象，您可以执行以下操作：

dfccomp <- transform(dfccomp,
                     Year = as.Date(paste(Year, "01", "01", sep = "-")))

将两个"01"s 更改为您想要的任何月份（第一个"01"）或月份中的某天，但无论您选择什么，它实际上都是任意的，不是必需的；数据点将相隔 1 年。

然后您可以使用scale_x_date() 中的minor_breaks 参数来控制显示次要刻度的数量或位置，再加上breaks 参数来设置显示的年份。我建议你不要展示所有年份，否则结果会一团糟。你也不需要每年作为一个小休息，因为网格线只会淹没情节。