x轴上带有字符串的ggplot

Question

我正在尝试绘制一个包含多条曲线的图。 x 轴不是数值，而是字符串。

这很好用（比如how to plot all the columns of a data frame in R）：

require(ggplot2)
df_ok <- rbind(data.frame(x=4:1,y=rnorm(4),d="d1"),data.frame(x=3:1,y=rnorm(3),d="d2"))
ggplot(df_ok, aes(x,y)) + geom_line(aes(colour=d))

但我的数据看起来像这样：

require(ggplot2)
df_nok <- rbind(data.frame(x=c("four","three","two","one"),y=rnorm(4),d="d1"),data.frame(x=c("three","two","one"),y=rnorm(3),d="d2"))
ggplot(df_nok, aes(x,y)) + geom_line(aes(colour=d))

我收到错误geom_path：每个组只包含一个观察。是否需要调整群体审美？。 即使图表线没有出现，轴也被绘制出来，并且 x 轴包含正确的标签 - 但也以错误的顺序。

知道如何尽可能简单地绘制它吗？ （另请注意某些系列缺少的 x 值）。

Answer 1

您的问题是 x 变量是一个因素。因此，更改您的数据框并将 x 设为双精度：

df = rbind(data.frame(x=4:1,y=rnorm(4),d="d1"), 
           data.frame(x=3:1,y=rnorm(3),d="d2"))

正常绘制

g = ggplot(df, aes(x,y)) + geom_line(aes(colour=d))

但要显式更改 x 轴缩放：

g + scale_x_continuous(breaks=1:4, labels=c("one", "two", "three", "four")) 

---

要重命名变量，请尝试以下操作：

x1 = factor(df_nok$x, 
            levels=c("one", "two", "three", "four"), 
            labels=1:4)
df$x1 = as.numeric(x1)

Answer 2

您可以通过添加一个虚拟组来说服 ggplot 绘制线条，

ggplot(df_nok, aes(x,y)) + geom_line(aes(colour=d, group=d))

另见http://kohske.wordpress.com/2010/12/27/faq-geom_line-doesnt-draw-lines/

Answer 3

添加group 美学（我知道有点多余，但比重新调整轴标签要简单得多）。

df_nok <- rbind(data.frame(x=c("four","three","two","one"),y=rnorm(4),d="d1"),data.frame(x=c("three","two","one"),y=rnorm(3),d="d2"))

ggplot(df_nok, aes(x,y, group=d)) + geom_line(aes(colour=d))

确实，您的 x 轴可能仍不是您想要的顺序。正如@csgillespie 所指出的，您可以通过将其作为一个因素来解决此问题

df_nok$x <- factor(df_nok$x, 
            levels=c("one", "two", "three", "four"), 
            labels=1:4)