R 意大利面条图在时间点上崩溃

我在R是一个比较新的人。我正在尝试制作15个主题的意大利面情节。我的“x”轴是时间，而我的“y”轴是DV/PRED或DV/IPRED。每个受试者的身份都是PTID

数据如下所示

      PTID TIME      DV_PRED     DV_IPRED
1       1    0           NA           NA
2       1   20           NA           NA
3       1   30           NA           NA
4       1   45           NA           NA
5       1   60  0.597961943   0.59642775
6       1  120  0.663766390   0.81470202
7       1  180  0.341640122   0.52077325
8       1  240  1.028288478   1.68708018
9       1  300  0.234030039   0.39264820
10      1  360  0.886066742   1.49238007
11      1  420  0.038982026   0.06546675
12      2    0           NA           NA
13      2   10           NA           NA
14      2   20           NA           NA
15      2   30           NA           NA
16      2   45           NA   1.09824094
17      2   60  1.843748969   0.84627028
18      2  120  1.543101642   1.02708456

我有多个我只想忽略的NAs

我的代码如下所示：

plot <- ggplot(data=df, aes(x=TIME, y=DV_IPRED, group=PTID)) +
  geom_line()+
  scale_x_continuous(breaks = seq(0, 430, by = 30),limits=c(0, 430))+
  xlab("Time (minutes)")+
  scale_y_log10(limits=c(0.1, 10), breaks=c(0.1,0.5, 1,2,10))+
  ylab("Observed/Predicted")+
  geom_abline(intercept = log(1), slope = 0,colour="grey", size = 1)+
  theme_bw()+ theme(legend.position="none", 
                    panel.grid.major = element_blank(), 
                    panel.grid.minor = element_blank(),
                    text = element_text(size=8))

print(plot)

---

plot在将数据放入共享代码之前，我没有使用na.省略（df）。您的代码是正确的，并且您的plot不是一个糟糕的意大利面plot。为什么你认为这是错误的？当我绘制提供的数据时，我没有看到任何问题。谢谢你的回答。在我看来，在时间点45、60、120180、240（测量点）处，此图中不应有垂直线。这就是为什么我认为这是错误的。我想不出是什么。再次感谢您的回答！在将数据放入共享代码之前，我做了na.omit（df）。您的代码是正确的，并且您的图不是一个糟糕的意大利面图。为什么你认为这是错误的？当我绘制提供的数据时，我没有看到任何问题。谢谢你的回答。在我看来，在时间点45、60、120180、240（测量点）处，此图中不应有垂直线。这就是为什么我认为这是错误的。我想不出是什么。再次感谢您的回答！