plot(t,y,pch=20) Error in plot.window(...) : 'xlim'值不能是无限的 In addition: Warning messages: 1: In xy.coords(x, y, xlabel, ylabel, log) : NAs introduced by coercion 2: In min(x) : no non-missing arguments to min; returning Inf 3: In max(x) : no non-missing arguments to max; returning -Inf

这个错误通常是由于输入的数据存在缺失值或者无限值导致的。请检查你的数据，确认数据是否完整、是否存在缺失值或者无限值，并对这些数据进行处理。如果数据缺失较多，可能需要考虑删除这些数据或者使用插值等方法进行填充。如果数据中存在无限值，可以使用 `is.finite()` 函数来判断，然后将其替换为一个合适的值或者删除这些数据。另外，如果你使用了一些函数或操作，可能会导致数据中出现缺失值或者无限值，请检查这些操作的结果是否符合预期。

在你的代码中，出现了无限值的可能原因是 `y` 向量中存在缺失值，导致 `min(x)` 和 `max(x)` 返回 `Inf` 和 `-Inf`，从而导致绘图的 x 轴范围出现了问题。你可以使用 `na.omit()` 函数来删除 `y` 向量中的缺失值，代码如下所示：

#画时序图 
postscript('plot1',horizontal=T,width=6,height=6) 
t <- data[,1] 
t <- t[2:n] 
y <- na.omit(y)  # 删除y中的缺失值
plot(t,y,pch=20) 

dev.off()  #关闭设备

这样应该就能够正常绘制图形了。

相关问题

用r语言使用plot画一个螺旋线的动态图 # 螺旋线方程: # x = tcos(ct) # c为某个实数 # y = tsin(ct)

以下是用 R 语言绘制螺旋线动态图的代码：

# 定义参数
c <- 0.1  # 实数c
t_max <- 100  # 时间范围
dt <- 0.1  # 时间步长

# 创建空白画布
plot(0, 0, type="n", xlim=c(-50, 50), ylim=c(-50, 50), xlab="", ylab="")

# 绘制螺旋线
for (t in seq(0, t_max, by=dt)) {
  x <- t * cos(c * t)
  y <- t * sin(c * t)
  points(x, y, pch=19, col="red")
  Sys.sleep(0.01)  # 控制绘图速度
}

这段代码将创建一个空白画布，并在循环中逐步绘制螺旋线。`seq()` 函数用于生成时间序列，`Sys.sleep()` 函数用于控制绘图速度。你可以根据需要调整参数来改变螺旋线的形状和动态效果。

R语言基础知识学习（四）：R中的画图函数--plot()函数

在R语言中，`plot()`函数是一种基本的数据可视化工具，可以用于绘制散点图、折线图、柱状图等各种类型的图形。下面我们来看一些`plot()`函数的常用参数和示例。

## 常用参数

`plot()`函数的常用参数如下：

- `x`：横坐标的数据；
- `y`：纵坐标的数据；
- `type`：绘制的图形类型，如“p”表示散点图，“l”表示折线图，“b”表示同时绘制散点图和折线图等；
- `main`：图形的标题；
- `xlab`：横坐标的标签；
- `ylab`：纵坐标的标签；
- `xlim`：横坐标的范围；
- `ylim`：纵坐标的范围；
- `pch`：散点图中点的形状；
- `col`：绘制的颜色；
- `lwd`：线条的宽度。

## 示例

下面是一些`plot()`函数的示例：

# 绘制散点图
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
plot(x, y, type = "p", main = "Scatterplot", xlab = "X", ylab = "Y", pch = 16, col = "red")

# 绘制折线图
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
plot(x, y, type = "l", main = "Line chart", xlab = "X", ylab = "Y", col = "blue")

# 绘制柱状图
x <- c("A", "B", "C", "D")
y <- c(3, 5, 2, 7)
barplot(y, names.arg = x, main = "Bar chart", xlab = "Category", ylab = "Value", col = "green")

# 绘制箱线图
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
boxplot(y ~ x, main = "Box plot", xlab = "X", ylab = "Y", col = "orange")

以上示例中，我们分别绘制了散点图、折线图、柱状图和箱线图。你可以根据自己的需求选择不同类型的图形，并且根据需要调整参数来美化图形。