r - 如何绘制点之间的曲线

Question

我正在寻找一个函数，允许我在点之间绘制一条曲线。实际上，我的数据是元素(此处为氮)的轮廓浓度，我需要绘制一条在点之间弯曲的虚线。 这是我想用 R 做的事情的图像(我用 Excel 制作了这个配置文件

library(ggplot2)
Sample <- c(-1, -3, -5, -7, -9, -11, -13, -15, -17, -19, -21, -23, -25, -27, 
            -29, -31, -33, -35, -37)
N <- c(0.14, 0.16, 0.09, 0.09, 0.011, 0.09, 0.10, 0.09, 0.11, 0.11, 0.09, 0.09,
       0.05, 0.09, 0.09, 0.10, 0.11, 0.11, 0.11)
tab <- data.frame(N, Sample)
ggplot(tab,  aes(x=N,  y=Sample,  c(0, 0.16)), pch=17) + 
  geom_path(linetype=3, color='#2980B9',  size = 0.1) +
  geom_point(color='#2980B9',  size = 2) +
  scale_x_continuous(position = "top",  limits=c(0, 0.16)) +
  scale_y_continuous(limits=c(-40, 0))

这是我获得的图

请问你能帮我吗？

Answer 1

获得平滑线条而不是直线的一种方法是在您的美学中翻转 x 和 y，然后应用 geom_smooth 而不是 geom_path，然后通过coord_flip翻转坐标:

ggplot(tab, aes(x=Sample, y=N, c(0,0.16)),pch=17) + 
coord_flip() + 
geom_point(color='#2980B9', size = 2) + 
geom_smooth(method = "loess", se = FALSE, 
          span = 0.25, linetype=3,color='#2980B9', size = 0.1)