R绘图类型“b”用文本而不是点 - 使用 ggplot2 的斜率图

Question

ggplot2 有没有办法获得绘图类型“b”？请参阅示例：

x <- c(1:5)
y <- x 
plot(x,y,type="b")

理想情况下，我想用点的值替换点，以获得与以下著名示例类似的内容：

编辑： 这里有一些示例数据（我想用绘图类型“b”在一个方面绘制每个“猫”）：

df <- data.frame(x=rep(1:5,9),y=c(0.02,0.04,0.07,0.09,0.11,0.13,0.16,0.18,0.2,0.22,0.24,0.27,0.29,0.31,0.33,0.36,0.38,0.4,0.42,0.44,0.47,0.49,0.51,0.53,0.56,0.58,0.6,0.62,0.64,0.67,0.69,0.71,0.73,0.76,0.78,0.8,0.82,0.84,0.87,0.89,0.91,0.93,0.96,0.98,1),cat=rep(paste("a",1:9,sep=""),each=5))

Answer 1

通过绘制没有任何内容的图来设置轴。

plot(x, y, type = "n")

然后使用 text 来制作数据点。

text(x, y, labels = y)

您可以使用lines添加线段。

lines(x, y, col = "grey80")

编辑：完全未能在问题中提及 ggplot。试试这个。

dfr <- data.frame(x = 1:5, y = 1:5)
p <- ggplot(dfr, aes(x, y)) + 
  geom_text(aes(x, y, label = y)) + 
  geom_line(col = "grey80")
p

另一个编辑：鉴于您的新数据集和请求，这就是您所需要的。

ggplot(df, aes(x, y)) + geom_point() + geom_line() + facet_wrap(~cat)

另一个编辑：我们开始解决一个真正的问题。就像“如何使线条不完全到达点”一样。

简而言之，这不是 ggplot2 中执行此操作的标准方法。执行此操作的正确方法是使用 geom_segment 并在数据点之间进行插值。然而，这需要付出很大的努力，所以我建议一个更简单的方法：在你的点周围画一个大的白色圆圈。这样做的缺点是它使网格线看起来很愚蠢，所以你必须去掉它们。

ggplot(df, aes(x, y)) + 
   facet_wrap(~cat) +
   geom_line() + 
   geom_point(size = 5, colour = "white") + 
   geom_point() + 
   opts(panel.background = theme_blank())

Answer 2

gridExtra 中有一个实验性的 grob 可以在网格图形中实现此功能，

 library(gridExtra)
 grid.newpage() ; grid.barbed(pch=5)

Answer 3

现在使用 ggh4x::geom_pointpath 可以轻松实现这一点。设置 shape = NA 并添加 geom_text 图层。

library(ggh4x)
#> Loading required package: ggplot2

df <- data.frame(x = rep(1:5, each = 5), 
                 y = c(outer(seq(0, .8, .2), seq(0.02, 0.1, 0.02), `+`)),
                 cat = rep(paste0("a", 1:5)))

ggplot(df, aes(x, y)) +
  geom_text(aes(label = cat)) +
  geom_pointpath(aes(group = cat, shape = NA))

^{由 reprex 包 (v2.0.1)}

Answer 4

制作出色斜率图的另一种方法是使用包CGPfunctions。

library(CGPfunctions)
newggslopegraph(newcancer, Year, Survival, Type)

您还有很多选项可供选择。您可以在这里找到一个很好的教程：

https://www .r-bloggers.com/2018/06/creating-slopegraphs-with-r/