R 如何使我的点连接到绘图中，并用数据中的NA值显示趋势？_R_Plot_Trend

R 如何使我的点连接到绘图中，并用数据中的NA值显示趋势？

r plot

R 如何使我的点连接到绘图中，并用数据中的NA值显示趋势？,r,plot,trend,R,Plot,Trend,我有一组基本的数据，我测量了24个月内的浓度。有些月份尚未采样，因此我的列表中有6个NA值 na.omit（）函数删除我的na值，并给出我要查找的图形，但它会破坏我的轴 (一) (二) 我的图表是这样的地块1 情节2 使用来自Gwang Jin Kim答案的数据，并建议在NAs存在的地方划行，这里是重做。我将把前面的答案保留在下面直线（因此绘图（…，type=“l”））要求所有组件的lty都相同，因此要获得虚线部分，需要在每个点对点上使用段为了获得额外的积分，我在x轴上加上了红点，

我有一组基本的数据，我测量了24个月内的浓度。有些月份尚未采样，因此我的列表中有6个

NA

值

na.omit（）

函数删除我的

na

值，并给出我要查找的图形，但它会破坏我的轴

(一)

(二)

我的图表是这样的

地块1

情节2

使用来自Gwang Jin Kim答案的数据，并建议在

NA

s存在的地方划行，这里是重做。我将把前面的答案保留在下面

直线

（因此

绘图（…，type=“l”）

）要求所有组件的

lty

都相同，因此要获得虚线部分，需要在每个点对点上使用

段
为了获得额外的积分，我在x轴上加上了红点，在NA
值存在时数据被丢弃
df使用来自Gwang Jin Kim回答的数据，并建议在NA
s存在的地方划行，这里是重做。我将把前面的答案保留在下面
直线
（因此绘图（…，type=“l”）
）要求所有组件的lty
都相同，因此要获得虚线部分，需要在每个点对点上使用段
为了获得额外的积分，我在x轴上加上了红点，在NA
值存在时数据被丢弃
dfdfdf很多次，当R跳过轴上的标签（如x轴）时，没有足够的空间来打印标签。尝试将窗口水平拉伸一点。打印的数据中没有间隙，如果您发布数据样本，可能会对我们有所帮助？如果问题不大，请编辑您的问题，并包括dput（data.frame（time，pt））的输出。
。谢谢！我知道伸展运动——当我这样做的时候，它只在1-18岁。因为我的数据有26个值，其中8个是NA。因此，尽管图看起来正确，但事实并非如此。那么也许你应该添加xlim=c（1,26）
我不想要轴为1-18。我想要一个-1-24的轴。我有18个值，并且有8次当R跳过一个轴上的标签时（比如你的x轴），没有足够的空间来打印标签。尝试将窗口水平拉伸一点。打印的数据中没有间隙，如果您发布数据样本，可能会对我们有所帮助？如果问题不大，请编辑您的问题，并包括dput（data.frame（time，pt））的输出。
。谢谢！我知道伸展运动——当我这样做的时候，它只在1-18岁。因为我的数据有26个值，其中8个是NA。因此，尽管图看起来正确，但事实并非如此。那么也许你应该添加xlim=c（1,26）
我不想要轴为1-18。我想要一个-1-24的轴。我有18个值，在时间
和pt
中有8个值是NA
s，我相信OP表明只有pt
有NA
s。如何将NA值的lty更改为lty=2？@marirosem.Mina:give toplot
函数参数lty=2
<代码>绘图（…，lty=2）
其中，..
是上面在绘图函数调用中列出的所有内容。您的数据在时间和pt
中都有NA
s，我相信OP建议只有pt
具有NA
s。如何将NA值的lty更改为lty=2？@marirosem.Mina:give toplot
函数参数lty=2
<代码>绘图（…，lty=2）
其中…
是上面在绘图函数调用中列出的所有内容。嘿，它成功了，谢谢！我想知道我是否可以更改（x），因为每次我都必须重命名notna，尽管我的所有子集都有NA值，并且我正在绘制许多图。这就是我的意思，不，我看不出有什么问题。每次重复使用notna
（只要您为每个数据集计算），或者每次使用不同的名称，例如，pt\u notna嘿，它工作了，谢谢！我想知道我是否可以更改（x），因为每次我都必须重命名notna，尽管我的所有子集都有NA值，并且我正在绘制许多图。这就是我的意思，不，我看不出有什么问题。每次重用notna
（只要您为每个数据集计算），或者每次使用不同的名称，例如pt_notna
 plot(time, pt, type="o", pch=16, col="blue", 
    xlab="Time (months) relative to implant", ylab="Concentration (ng/ml)", 
    main="Concentration Overtime", 
    xaxt='n')
    axis(1, at=seq(-1, 24, by=1))

 plot(na.omit(pt), type="o", pch=16, col="blue", xlab="Time (months) relative 
        to implant", ylab="Concentration (ng/ml)", 
        main="Concentration Overtime", 
        xaxt='n')
        axis(1, at=seq(-1, 24, by=1))

notna <- !is.na(pt)
plot(time[notna], pt[notna], type="o", pch=16, col="blue", 
    xlab="Time (months) relative to implant", ylab="Concentration (ng/ml)", 
    main="Concentration Overtime", 
    xaxt='n')
    axis(1, at=seq(-1, 24, by=1))

plot(na.omit(pt), ...)

df <- data.frame(time=c(-1, 0, 1:24),
pt=c(7.0, 6.9, NA, 5.5, 5, 3, 14, NA, 23, NA, 14.5, 7, 9, NA, 11, 8, 5.2, 5.3, NA, 5, 3, NA, 1.5, NA, NA, 2))

png("test.png")
plot(pt~time, type="o", data=na.omit(data.frame(df)),
     pch=16, col="blue",
     xlab="Time (months) relative to implant",
     ylab="Concentration (ng/ml)",
     main="Concentration Overtime",
     xlim=c(-1, 24),
     xaxt='n')
axis(1, at=seq(-1, 24, by=1))
dev.off()