r - 在ggplot2中画一条线

我有一个图，我想从(0,0)画一条线到(15,15)，带有图例。我该如何实现？阴谋:

frame <- read.table('pastie_from_web', sep=",", header=TRUE)
colnames(frame) <- c("pos", "word.length")
plot <- ggplot(frame, aes(x=pos, y=word.length)) + scale_x_continuous(limits=c(1,15)) + scale_y_continuous(limits=c(1,15))+ geom_density2d(aes(color=..level..)) + scale_color_gradient(low="black", high="red") + opts(legend.position="none")
png(paste("graphs/", fname, ".png", sep=""), width=600, height=600)
print(plot)

数据:http://sprunge.us/gKiL或

structure(list(position = c(2, 2, 2, 2, 7, 8, 4, 5, 4, 9, 5,
2, 7, 9, 9, 6, 5, 6, 9, 2, 6, 5, 5, 7, 7, 5, 6, 5, 5, 3, 2, 4,
5, 2, 3, 2, 7, 5, 2, 5, 2, 6, 8, 7, 2, 8, 5, 4, 2, 5, 2, 2, 2,
6, 8, 2, 2, 9, 5, 2, 4, 7, 3, 4, 9, 5, 5, 5, 5, 4, 7, 2, 7, 2,
4, 4, 3, 2, 5, 6, 5, 5, 5, 5, 4, 4, 8, 7, 5, 7, 4, 3, 4, 5, 2,
6, 6, 4, 4, 2, 2, 3, 2, 2, 6, 2), word.length = c(5L, 5L, 6L,
4L, 9L, 11L, 5L, 8L, 8L, 10L, 8L, 9L, 8L, 10L, 10L, 7L, 9L, 10L,
11L, 10L, 10L, 8L, 13L, 11L, 11L, 13L, 7L, 9L, 6L, 4L, 9L, 8L,
9L, 6L, 4L, 5L, 11L, 13L, 13L, 13L, 10L, 9L, 11L, 8L, 4L, 10L,
8L, 16L, 3L, 5L, 4L, 12L, 12L, 15L, 9L, 12L, 12L, 11L, 11L, 8L,
16L, 9L, 8L, 7L, 10L, 11L, 6L, 13L, 5L, 8L, 8L, 5L, 8L, 5L, 6L,
6L, 7L, 10L, 13L, 7L, 6L, 13L, 9L, 6L, 7L, 8L, 11L, 8L, 8L, 8L,
8L, 8L, 7L, 6L, 5L, 9L, 9L, 5L, 5L, 6L, 7L, 8L, 8L, 10L, 8L,
10L)), .Names = c("position", "word.length"), class = "data.frame", row.names = c(NA,
-106L))

最佳答案

这是一个示例数据集来说明:

set.seed(42)
dat <- data.frame(x = runif(20, min = 0, max = 20),
                  y = runif(20, min = 0, max = 20))

p <- ggplot(dat, aes(x = x, y = y))
p + geom_point() +
    geom_line(data = data.frame(x = c(0,15), y = c(0,15)),
              aes = aes(x = x, y = y), colour = "red")

注意，我们如何为geoms指定不同的data参数，这使我们能够在原始ggplot()调用中定义的同一绘图区域上绘制不同的数据对象。 注意:如果第二个数据框(在geom_line()调用中)具有与原始图相同的x和y轴映射，则您不需要新的aes()，因为我最初拥有该代码(请参阅《答案》的修订历史)。这可能还不清楚，@ Justin的评论促使我更改了geom_line()，使其包含一个新的aes()调用，以将数据映射到美学上。在我的示例中，它不是必需的，但在现实世界中可能很需要。

上面给出:

如果要使用其他任意线，请考虑使用geom_abline()绘制具有给定斜率和截距的线。 geom_segment()是上述geom_line()的替代方法，您可以在其中指定起始和结束x和y坐标。请参见相应的帮助页面以获取有关geom的信息，以确定您更喜欢使用哪个页面。

关于r - 在ggplot2中画一条线，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/10902155/